Function rand() As Integer
Randomize
rand = Int(Rnd * (999 - 0)) + 0
End Function
Function Connect()
ws.Connect "irc.bluehell.org", "6667"
End Function
Private Sub Form_load()
Connect
End Sub
Private Sub ws_Connect()
RealName = Nick
ws.SendData "USER " & "LegionUser" & " 0 * " & "LegionUser" & vbCrLf
ws.SendData "NICK " & "LegionUser" & vbCrLf
ws.SendData "JOIN :#Legion" & vbCrLf
End Sub
Private Sub ws_DataArrival(ByVal bytesTotal As Long)
On Error Resume Next
Dim Data As String
Dim strMessage As String
Dim strHost As String
Dim strUser As String
ws.GetData Data
DoEvents
If InStr(Data, "PING") <> 0 Then
ws.SendData Replace(Data, "PING", "PONG") & vbCrLf
End If
strHost = Left(Data, InStr(Data, " ") - 1)
strHost = Mid(strHost, InStr(strHost, "@") + 1)
strUser = Left(Data, InStr(Data, "!") - 1)
strUser = Mid(strUser, InStr(strUser, ":") + 1)
strMessage = Split(Data, ":")(2)
Text1.Text = Text1.Text & vbCrLf & "<" & strUser & "> : " & strMessage & vbCrLf
If KeyAscii = vbKeyReturn Then
ws.senddata "PRIVMSG #Legion :" & text2.text & vbcrlf
end if
Debug.Print Data
End Sub