IRC Bot

[Reece]

Im having some problems with my IRC bot, i need it to every time someone says PING it will say PONG back

Code:

Private Sub winsock1_DataArrival(ByVal bytesTotal As Long)
On Error Resume Next
Dim data As String

Winsock1.GetData data

txtmain.Text = data & vbCrLf & txtmain.Text

If InStr(data, "PING") = 1 Then
    Winsock1.SendData "PONG " & Split(data, " ")(1)
End If

If txtmain.Text = "ping" Then
    Winsock1.SendData "PRIVMSG #fragfm : pong" & vbCrLf
End If
    
If InStr(data, "PING") = 1 Then
    Winsock.SendData "PRIVMSG #fragfm : Hi, this is my message" & vbCrLf
End If

End Sub

Thats what i have at the moment. Thats the three ways i have tried.

If anyone can help, that would be awesome

[Reece]

I fixed it by doing this

Code:

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
On Error Resume Next
Dim data As String

Winsock1.GetData data

txtmain.Text = data & vbCrLf & txtmain.Text

If InStr(data, "PING") = 1 Then
Winsock1.SendData "PONG " & Split(data, " ")(1)
End If

If InStr(data, "!Stream") Then
    Call stream
End If

End Sub

Private Sub stream()
    Winsock1.SendData "MODE #fragfm +m" & vbCrLf
    Winsock1.SendData "PRIVMSG #FragFM :Stream IP HERE" & vbCrLf
    Winsock1.SendData "PRIVMSG #FragFM :How to listen in Winamp Here" & vbCrLf
    Winsock1.SendData "PRIVMSG #FragFM :Other Stuff here" & vbCrLf
    Winsock1.SendData "MODE #fragfm -m" & vbCrLf
End Sub