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
  
Text1.SelLength = 0

Text1.SelStart = Len(Text1.Text)

  Debug.Print Data

  End Sub