IRC Bot

[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