Mirage Source
IRC Bot - Printable Version

+- Mirage Source (https://mirage-engine.uk/forums)
+-- Forum: Mirage Source (Nostalgia) (https://mirage-engine.uk/forums/forumdisplay.php?fid=61)
+--- Forum: Archive (2006-2011) (https://mirage-engine.uk/forums/forumdisplay.php?fid=18)
+---- Forum: General (https://mirage-engine.uk/forums/forumdisplay.php?fid=17)
+---- Thread: IRC Bot (/showthread.php?tid=749)

IRC Bot - Reece - 16-02-2007

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 Big Grin

- Reece - 16-02-2007

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