Well I can now make a dll and It works up to a point. I connect in Bot mode but the raw data in Viper and the onJoin data from the server is incomplete. I need to get the server IPs correct in the following code.
strServ1 = "5.200.9.32", 6668
I need for "5.200.9.32", 6668 to switch to 127.0.0.1 6667 to make the connection to the chat control
My connection is hung here:
Private Sub sck_serv1_DataArrival(ByVal bytesTotal As Long) Dim strServ1 As String
sck_serv1.GetData strServ1, vbString If strServ1 Like ":* 613 * :*" Then ServerIp = Split(strServ1, " ")(3) ServerIp = Replace(ServerIp, ":", "") sck_serv1.Close End If '908 Select Case Split(strServ1, " ")(1) Case "702" MsgBox "The room may need to be created first (create room via normal webchat first, and use another account to connect with Viper)" 'RaiseEvent REventDisconnectVp sck_serv1.Close RaiseEvent REventCloseServ1 RaiseEvent REventConnectionState(0) End Select
The split and replce lines have me confused. Can you help me??