Hi all If you want to try and chat with Viper, in this folder are the vconnection folder and the VTS folder for Viper to connect to Net4110 Chat. All you do is replace the existing folders with these. DO NOT FORGET to register the MSNConnectionVProxy.dll in the vconnection folder after you install.
Viper DOES NOT work perfectly but it connects and connects in <<BOT MODE>>. Hopefully if we get enough interest for Viper again and we work at it, we might just figure out a way to get Viper fully functional. Access menus can cause Viper to disconnect, Viper Messages (onjoin, and response files) do not work yet and user commands are not fuctioning. This is still a promising site and the owners are coders and willing to help.
In the Chat html, locate user role and place your sex (male, female, ect) into the ""
On Viper Chat screen, add your registered chat name using the database editor making sure all the cookie fields say Null and in the last field box on the right side (hover your mouse pointer over it ) that says UserRole, add your sex there.
Fill out the Create Room screen under the create tab and hit create. It should make your room for you.
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 = "220.127.116.11", 6668
I need for "18.104.22.168", 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 replace lines have me confused. Anyone want to help me??