[Tutorial][#1] Bot programmieren [VB.NET]

[Bazs]

Dim applet as Applet => löschen

client = new KNClient(applet) => client = new KNClient()

Jetzt habe ich noch das problem mit KNlib.user

was soll ich dort machen?

If e.KeyCode = Keys.Enter Then
e.SuppressKeyPress = True
client.SendMessage(TextBox4.Text)
TextBox4.Clear()
End If

Und

OnPublicMessage
Onpopup
Onping

sind bei mir unterstrichen wie kann ich die fehler beheben?

[iToxic]

Jetzt habe ich noch das problem mit KNlib.user

was soll ich dort machen?

Auch raus nehmen
Die KNLib von Flav(nicht die neuere von Momo) hat dies nicht .

Kannste aber manuell machen.

[Bazs]

Auch raus nehmen
Die KNLib von Flav(nicht die neuere von Momo) hat dies nicht .

Kannste aber manuell machen.

Ich will da jetzt großartig nichts weg machen, geht es auch ohne das ich dies weg machen muss?

sonst folgendes problem:

If e.KeyCode = Keys.Enter Then
e.SuppressKeyPress = True
client.SendMessage(TextBox4.Text)
TextBox4.Clear()
End If

Und

OnPublicMessage
Onpopup
Onping

sind bei mir unterstrichen wie kann ich die fehler beheben?

[iToxic]

OnPublicMessage
Onpopup
Onping
-----------------

Gib es in der KNlib v1(?) nicht

If e.KeyCode = Keys.Enter Then
e.SuppressKeyPress = True
client.SendMessage(TextBox4.Text)
TextBox4.Clear()
End If

Wo genau liegt der Fehler?

[Bazs]

If e.KeyCode = Keys.Enter Then
e.SuppressKeyPress = True
client.SendMessage(TextBox4.Text)
TextBox4.Clear()
End If

Die sachen sind unterstrichen und zeigen ein fehler an,



Fehler 1 Alle Parameter müssen explizit typisiert sein, wenn einer von ihnen explizit typisiert ist. C:\Users\bazs loves annika\Desktop\Neuer Ordner\KnuddelsLogin Bot\KnuddelsLogin Bot\Form1.vb 32 72 KnuddelsLogin Bot


Fehler 2 Alle Parameter müssen explizit typisiert sein, wenn einer von ihnen explizit typisiert ist. C:\Users\bazs loves annika\Desktop\Neuer Ordner\KnuddelsLogin Bot\KnuddelsLogin Bot\Form1.vb 39 68 KnuddelsLogin Bot

Fehler 3 Das Ereignis "OnChannelJoin" wurde nicht gefunden. C:\Users\bazs loves annika\Desktop\Neuer Ordner\KnuddelsLogin Bot\KnuddelsLogin Bot\Form1.vb 39 89 KnuddelsLogin Bot

Fehler 5 Das Ereignis "OnChannelLeave" wurde nicht gefunden. C:\Users\bazs loves annika\Desktop\Neuer Ordner\KnuddelsLogin Bot\KnuddelsLogin Bot\Form1.vb 43 90 KnuddelsLogin Bot

Fehler 6 Das Ereignis "OnPublicMessage" wurde nicht gefunden. C:\Users\bazs loves annika\Desktop\Neuer Ordner\KnuddelsLogin Bot\KnuddelsLogin Bot\Form1.vb 46 126 KnuddelsLogin Bot

Fehler 7 Das Ereignis "OnPrivateMessage" wurde nicht gefunden. C:\Users\bazs loves annika\Desktop\Neuer Ordner\KnuddelsLogin Bot\KnuddelsLogin Bot\Form1.vb 50 155 KnuddelsLogin Bot

Fehler 8 Das Ereignis "OnPing" wurde nicht gefunden. C:\Users\bazs loves annika\Desktop\Neuer Ordner\KnuddelsLogin Bot\KnuddelsLogin Bot\Form1.vb 54 113 KnuddelsLogin Bot

Fehler 9 Das Ereignis "OnPopup" wurde nicht gefunden. C:\Users\bazs loves annika\Desktop\Neuer Ordner\KnuddelsLogin Bot\KnuddelsLogin Bot\Form1.vb 57 121 KnuddelsLogin Bot

Fehler 10 "KeyCode" ist kein Member von "System.EventArgs". C:\Users\bazs loves annika\Desktop\Neuer Ordner\KnuddelsLogin Bot\KnuddelsLogin Bot\Form1.vb 63 16 KnuddelsLogin Bot

Fehler 11 "SuppressKeyPress" ist kein Member von "System.EventArgs". C:\Users\bazs loves annika\Desktop\Neuer Ordner\KnuddelsLogin Bot\KnuddelsLogin Bot\Form1.vb 64 17 KnuddelsLogin Bot

Fehler 12 Für den Parameter "channel" von "Public Sub SendMessage(message As String, channel As String)" wurde kein Argument angegeben. C:\Users\bazs loves annika\Desktop\Neuer Ordner\KnuddelsLogin Bot\KnuddelsLogin Bot\Form1.vb 65 17 KnuddelsLogin Bot



Die fehler habe ich, was kann ich dagegen tun?

Spoiler:

Imports KNLib
Public Class Form1

    Dim WithEvents client As KNClient

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Control.CheckForIllegalCrossThreadCalls = False
        client = New KNClient()
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim CSystem As New RemoteEndpoint
        Select Case ComboBox1.Text
            Case "DE"
                CSystem = RemoteEndpoint.DE
            Case "AT"
                CSystem = RemoteEndpoint.AT
            Case "CH"
                CSystem = RemoteEndpoint.CH
        End Select
        client.Connect(CSystem)
        client.Login(TextBox1.Text, TextBox2.Text, TextBox3.Text)
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        client.Disconnect()
    End Sub

    Private Sub Form1_FormClosed(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles MyBase.FormClosed
        System.Environment.Exit(0)
    End Sub
    Private Sub client_OnUserListReceive(ByVal sender As Object, ByVal UserList)
        ListView1.Items.Clear()
        For Each User In UserList
            ListView1.Items.Add(User.Name)
        Next
    End Sub

    Private Sub client_OnChannelJoin(ByVal sender As Object, ByVal User) Handles client.OnChannelJoin
        ListView1.Items.Add(User.Name)
    End Sub

    Private Sub client_OnChannelLeave(ByVal sender As Object, ByVal User) Handles client.OnChannelLeave
        ListView1.FindItemWithText(User.Name).Remove()
    End Sub
    Private Sub client_OnPublicMessage(ByVal sender As Object, ByVal Nick As String, ByVal Message As String) Handles client.OnPublicMessage
        RichTextBox1.AppendText(Nick & ": " & Message & vbLf)
    End Sub

    Private Sub client_OnPrivateMessage(ByVal sender As Object, ByVal fromNick As String, ByVal toNick As String, ByVal Message As String) Handles client.OnPrivateMessage
        RichTextBox1.AppendText(fromNick & " an " & toNick & ": " & Message & vbLf)
    End Sub

    Private Sub client_OnPing(ByVal sender As Object, ByVal Nick As String, ByVal Key As String) Handles client.OnPing
        MessageBox.Show("Ping erhalten von " & Nick)
    End Sub
    Private Sub client_OnPopup(ByVal sender As Object, ByVal Message As String, ByVal token() As String) Handles client.OnPopup
        MessageBox.Show(Message, "Popup")
    End Sub

    Private Sub TextBox4_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox4.TextChanged
        If client.IsConnected = True Then
            If e.KeyCode = Keys.Enter Then
                e.SuppressKeyPress = True
                client.SendMessage(TextBox4.Text)
                TextBox4.Clear()
            End If
        Else
            MessageBox.Show("Sind wir eingeloggt?")
        End If
    End Sub
End Class

[iToxic]

@Bazs

Ist easy
Falsches Event, die hast _TextChanged, brauchst aber _KeyDown

[Bazs]

@Bazs

Ist easy
Falsches Event, die hast _TextChanged, brauchst aber _KeyDown

Dies hat nichts gebracht, habe es geändert und dennoch ist dort alles unterstrichen.

Unterstrichen sind:
onpopup
onping
OnPublicMessage
OnChannelLeave
OnChannelJoin
und bei
client_OnUserListReceive(ByVal sender As Object, ByVal UserList)
ListView1.Items.Clear()
For Each User In UserList
ListView1.Items.Add(User.Name)

ist userlist unterstrichen

e.KeyCode
e.SuppressKeyPress
client.SendMessage(TextBox4.Text)


Suche dafür für jedes die lösung weil ich finde keine lösung :x

[iToxic]

onpopup
onping
OnPublicMessage
OnChannelLeave
OnChannelJoin
client_OnUserListReceive(ByVal sender As Object, ByVal UserList)

Liegt daran, dass die KNLib dies nicht beinhaltet > löschen!

ListView1.Items.Clear()
For Each User In UserList
ListView1.Items.Add(User.Name)

Kein ListView1 vorhanden.

For Each User In UserList

Siehe oben > löschen.

Du kannst aber selbst alle User bei einem Channeljoin auslesen und in einer ListView anzeigen.

e.KeyCode
e.SuppressKeyPress

Hast du nur das _TextChanged zu _KeyDown geändert?

client.SendMessage(TextBox4.Text)

TextBox4 vorhanden?

[Bazs]

Liegt daran, dass die KNLib dies nicht beinhaltet > löschen!



Kein ListView1 vorhanden.


Siehe oben > löschen.

Du kannst aber selbst alle User bei einem Channeljoin auslesen und in einer ListView anzeigen.



Hast du nur das _TextChanged zu _KeyDown geändert?



TextBox4 vorhanden?

Listview ist vorhanden.
DIe sachen habe ich auch gelöscht, geht trotzdem nicht.

TextChanged habe ich zu KeyDown geändert.

Geht alles nicht.

[maab]

kannst du auch bald ein tut eröffnen womit man ein Wordmixbot Schreiben kann?