VB 6 Problem mit winsockets und Getdata

[Inkubus]

Also wenn ich das Programm ausfrühe bekomme ich ein, Laufzeitfehler '13'
Typen unverdräglichkeit.

Hier der Code

Private Sub irc_DataArrival(ByVal bytesTotal As Long)
    Dim d As String
    Dim tosend As String
    Dim check As Variant
    Dim sArray() As String
    irc.GetData d
    ReceiveBuffer = ReceiveBuffer + d
    sArray = Split(d, vbCrLf)
    For Each check In sArray
        MsgBox (check)
        !--ping = InStr(0, Str(check), "PING")--!
        TxtAus.Text = TxtAus.Text + "[Server] " + check + vbCrLf
        If ping <> 0 Then
            tosend = Mid(check, 5)
            MsgBox (senden("PONG", tosend))
            irc.SendData senden("PONG", tosend)
        End If
    Next
End Sub

In check ist : ":beer.dk.eu.blitzed.org NOTICE AUTH:***Looking up your Hostname..."

Fehler ist mit !-- --! Markiert.

Vielleicht könnt ihr mir ja helfen.

Baba Tim

 

[Shakie]

So würde es warscheinlich funktionieren:

ping = InStr(1, Str(check), "PING")

Ich hab grad kein VB zum Testen da, aber wenn du ab dem ersten Zeichen suchen willst, musst du 1 und nicht 0 angeben.

 

[Inkubus]

Hab es schon hin bekommen

InStr(check, "PING")