Sign in to follow this  
«¤ĶņįĝħţŴĭņĝ¤»

ViperBot

ViperBot has remained on my computer since 2001. I was big into the VPC help forum for years and have had a help site of my own for years. My chat nick is, was and will always be »¤§£¥¤« and it goes to whatever site I chat with along with my Knightwing nick.

 

 

Just curious if there is anyboy that can help me create a connection dll from a open source. As MSN was closing down Vipers connection became a open source as to allow users to connect to the different "MSN clones" by means of changing the ip. Well they have all closed and gone away with the exception of SPCN and Net4110 as they use the MSN chat control.

 

I can connect to 4110 Chat and in Bot Mode (YAY!!!) but I have to fine tune the connection. My feeling is that with the current universal connection dll it could work but I have to get Viper to see as it is blind. The Control board is totally blind but I get raw data from both the connection window and the raw data of the CB.

 

If any one knows how to create a dll and would help walk me through the steps as I have Microsoft Visual Studio 2010 and a decompiler just have no clue as to what to do or make the saved changes I need to make.

 

thanks


 

Share this post


Link to post
Share on other sites

Hi knightwing most of the MSN people are on Techgear so I would also post this on there seeing as a lot of people on Techgear are looking for projects, I rather be honest here and err0r is a good friend of mine as we see eye to eye on things. Haggis and a few others might be interested in this sort of project. so try here http://www.tg007.net/ and post on there also!!

Share this post


Link to post
Share on other sites

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??

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

Sign in to follow this