Hallo ihr lieben,
kann mir jemand helfen diesen C# code in vb.net umzusetzen? Ich versuche einen Discord Bot in vb.net mit dem Nuget paket Discord.net zu schreiben. Leider ist mein c# wissen weit im minus bereich.
Dies habe ich mit einem Converter gemacht aber lauffähig scheint das noch lange nicht
Danke!
kann mir jemand helfen diesen C# code in vb.net umzusetzen? Ich versuche einen Discord Bot in vb.net mit dem Nuget paket Discord.net zu schreiben. Leider ist mein c# wissen weit im minus bereich.
C#-Quellcode
- class Program
- {
- public static void Main(string[] args) => new Program().MainAsync().GetAwaiter().GetResult();
- private DiscordSocketClient _client;
- public async Task MainAsync()
- {
- _client = new DiscordSocketClient();
- _client.Log += Log;
- _client.MessageReceived += ClientOnMessageReceived;
- var token = "Your Token Here";
- await _client.LoginAsync(TokenType.Bot, token);
- await _client.StartAsync();
- // Block this task until the program is closed.
- await Task.Delay(-1);
- }
- private static Task Log(LogMessage msg)
- {
- Console.WriteLine(msg.ToString());
- return Task.CompletedTask;
- }
- private static Task ClientOnMessageReceived(SocketMessage arg)
- {
- if (arg.Content.StartsWith("!helloworld"))
- {
- arg.Channel.SendMessageAsync($"User '{arg.Author.Username}' successfully ran helloworld!");
- }
- return Task.CompletedTask;
- }
- }
Dies habe ich mit einem Converter gemacht aber lauffähig scheint das noch lange nicht
VB.NET-Quellcode
- Class Program
- Public Shared Sub Main(ByVal args As String())
- Return New Program().MainAsync().GetAwaiter().GetResult()
- End Sub
- Private _client As DiscordSocketClient
- Public Async Function MainAsync() As Task
- _client = New DiscordSocketClient()
- _client.Log += AddressOf Log
- _client.MessageReceived += AddressOf ClientOnMessageReceived
- Dim token = "Your Token Here"
- Await _client.LoginAsync(TokenType.Bot, token)
- Await _client.StartAsync()
- Await Task.Delay(-1)
- End Function
- Private Shared Function Log(ByVal msg As LogMessage) As Task
- Console.WriteLine(msg.ToString())
- Return Task.CompletedTask
- End Function
- Private Shared Function ClientOnMessageReceived(ByVal arg As SocketMessage) As Task
- If arg.Content.StartsWith("!helloworld") Then
- arg.Channel.SendMessageAsync($"User '{arg.Author.Username}' successfully ran helloworld!")
- End If
- Return Task.CompletedTask
- End Function
- End Class
Danke!
Liebe Grüße,
C.O.D.E
Testautomatisierung (TA):
C.O.D.E
Testautomatisierung (TA):
5%
Du findest meinen Beitrag Hilfreich? Dann drück auf Hilfreich!