Jump to content
Sign in to follow this  


Recommended Posts

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.




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 = "", 6668


I need for "", 6668 to switch to 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, ":", "")
    End If
    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
        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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Sign in to follow this  

  • Create New...