Help Wanted on New Irc Connection

[spyderspawn]

help wanted on the auth process to this certain chat it's like msn but different auth proccess I tryed basing it off the ocx the creator of the chat had created for it but it kept making me hang in the chat so I am trying to get it worken on an msn chat client so far syam101 has gotten it worken but he never sent me the code so it's left for me to figure out .

'-----------------------this source is off the ocx
Private Sub Command3_Click()

WS.Connect "myenetwork.net", 6667 '-----------------------------
Command3.Enabled = False
End Sub

Private Sub WS_Connect()

WS.Senddata "IRCVERS IRC" & vbCrLf
End Sub

Private Sub WS_DataArrival(ByVal bytesTotal As Long)


WS.GetData Data, vbString
'txtmain.SelText = Data

Dim dynData() As String, i As Integer

dynData = Split(Data, vbCrLf)
ReDim Preserve dynData(UBound(dynData)) As String

For i = 0 To UBound(dynData)
Data = dynData(i)
Call Server2DataArrival
Next i
'if data contains multiple string (i.e access/names)
Erase dynData


End Sub

Public Sub Server2DataArrival()
Dim S1 As String
Dim S2 As String
Dim S3 As String
On Error Resume Next
S1 = Split(Data, " ")(1)
S2 = Split(Data, " ")(2)
S3 = Split(Data, " ")(3)

txtmain.SelStart = Len(txtmain.Text)
If Data Like ":TK2CHATWBC04 800*" Then
If NickNames = "" Then
WS.Senddata "PROP $ MSNREGCOOKIE :" & Text9.Text & "$" & Text10.Text & vbCrLf
Exit Sub
End If
If NickNames <> "" Then
WS.Senddata "NICK " & NickNames & vbCrLf
End If

Exit Sub
End If

If Data Like ":TK2CHATWBC04 433 *" Then
MsgBox "Nickname already in use.", vbOKOnly, "Nick in use"
WS.Close
Exit Sub
End If

If Data Like ":TK2CHATWBC04 913 *" Then
MsgBox "You are banned from this chatroom.", vbOKOnly, "Banned"
WS.Close
Exit Sub
End If

If Data Like ":TK2CHATWBC04 NOTICE *" Then
Call Broadcast
Exit Sub
End If

If Data Like ":TK2CHATWBC04 473 *" Then
MsgBox "Invite only chatroom.", vbOKOnly, "Invite only mode"
WS.Close
Exit Sub
End If

'If S1 = "332" Then
'RMname = S3
'Exit Sub
'End If

Dim topics As String
Dim ChatWcMessage As String
If S1 = "332" Then
RMname = S3
'ListView1.ListItems(ListView1.ListItems.Count).Text = Replace(ListView1.ListItems(ListView1.ListItems.Count).Text, ">", "Guest_")
txtmain.SelColor = &HC0&
txtmain.SelItalic = False
txtmain.SelText = "Connected." & vbCrLf
Label2.Caption = Replace(Replace(RMname, "%#", ""), "\b", " ")
'topics = Mid(Data, Loc(" :%") + 3)
lFoundPos = Len(txtmain.Text) - 1
topics = Split(Data, " :")(1)
topics = Replace(topics, "\b", " ")

'lFoundPos3 = Len(txtMain.Text) - 1
txtmain.SelItalic = False
txtmain.SelColor = &HFF0000
txtmain.SelText = vbCrLf & "The chat topic is: " & topics & vbCrLf & vbCrLf
Call SetPic
lFoundPos = Len(txtmain.Text) - 1
Exit Sub
End If

If Loc(":" & RMname & " PRIVMSG " & RMname & " :") Then

'lFoundPos3 = Len(txtMain.Text) - 1
ChatWcMessage = Split(Data, " :")(1)
'ChatWcMessage = Mid(Data, InStr(Len(txtroomname.text) + 1, Data, txtroomname.text, 1) + Len(txtroomname.text) + 1)
'If Left(ChatWcMessage, 1) = ":" Then ChatWcMessage = Right(ChatWcMessage, Len(ChatWcMessage) - 1)
txtmain.SelColor = &H8000&
txtmain.SelBold = True
txtmain.SelText = ChatWcMessage & vbCrLf & vbCrLf
txtmain.SelBold = False
Call SetPic
lFoundPos = Len(txtmain.Text) - 1
Exit Sub
End If


If Data Like ":*!*@*" And S1 = "KICK" Then
Call UserKicked
Exit Sub
End If


If Data Like ":*!*@*" And S1 = "JOIN" Then

Call UserJoined
Exit Sub
End If

If S1 = "PART" Then
Call UserParted
Exit Sub
End If

If S1 = "353" Then
'lst.ListItems.Clear
Call ReadNames
Exit Sub
End If

If Data Like ":*!*@*" And Loc(":
ACTION") <> 0 And S1 = "PRIVMSG" Then
Call UserAction
Exit Sub
End If

If S1 = "PRIVMSG" And Loc("
ACTION") = 0 Then
'txtMain.SelText = Data & vbCrLf
Call UserSpoke
Exit Sub
End If

If Data Like ":*!*@* WHISPER *:*" And S1 = "WHISPER" Then
Call UserWhisper
Exit Sub
End If


If S1 = "001" Then

'MyName = Mid(Data, Loc("001 ") + 4, Loc(" :") - 21)
MYname = S2
mYname2 = Replace(MYname, ">", "Guest_")
ListView1.ListItems.Add , MYname, MYname, "blank", "blank"
WS.Senddata "JOIN %#" & Text5.Text & vbCrLf
'das = True
Exit Sub

End If

If Data Like ":*!*@*" And S1 = "MODE" And S3 = "+q" Then Call MadeOwner

If Data Like ":*!*@*" And S1 = "MODE" And S3 = "+o" Then Call MadeHost

If Data Like ":*!*@*" And S1 = "MODE" And S3 = "-q" Then Call PartOwner

If Data Like ":*!*@*" And S1 = "MODE" And S3 = "-o" Then Call PartHost

If Data Like "PING :*" Then WS.Senddata "PONG bla" & vbCrLf


End Sub

' this has only one winsocket on it . but I want to try to get this connected with an msn chat client . its been done once .. but here is the catch with out the msnchatx.ocx running neither has to be with the regular chat control .. feel free to get a hold me for more details of coding ..

[Lazer]

i havent really read it all but shouldnt this be

If Data Like "PING :*" Then WS.Senddata "PONG bla" & vbCrLf

If Data Like "PING :*" Then WS.Senddata "PONG " & Split(Data, "PING :")(1) & vbCrLf

[Rift]

I'm not sure either exactly what your looking for but that's not your fault im sure, it's early where im at. Is the source you've posted working to connect, but you want to use it to connect a pre-existing client? or do you want to use a pre-existing client to connect your vb project. Or am I off completely.. If you are trying to make a connection that will connect a pre-existing msn client then i can probably help you with that, I've connected pretty much anything and everything to MSN chat, comic chat, telnet, pIRCh, admClient, etc.

-Rift-

[Webagent]

its related to this Rift groups.msn.com/msnchatteam/general.msnw?action=get_message&mview=0&ID_Message=4902&LastModified=4675467928898279216

my guess is he wants to connect the msnchat.ocx there rather then a connection itself

[Lazer]

is this a ziggy ignition server alike creation? cause that would explain LOL

hmmmm

[Webagent]

Well.. I ment with that, thats it is buggy. (don't blaim me, blaim the people that tried it and said so)

[Ziggy]

ignitionServer 0.1.0/0.1.1 is buggier than a roach motel. I assume this is for PaperChat, which, unlike iS 0.1.0/0.1.1, has SEVERAL Buffer Overrun exploits. That, and the entire server crashes at a flood of 4 clients/sec. ignitionServer 0.1.0/0.1.1 crashed at a flood of 50-60 clients/sec.

If you want this to work, you need to send a real IRCVERS (IRCVERS IRC is illegal ).

IRCVERS IRC8 MSN-OCX!9.02.0310.2405

[Ziggy]

Actually... this is Syam's My eNetwork. I don't have the problem of a PART showing inbetween MOTD file is missing and crap. How dumb do I look, Webby?

(P.S. Syam wrote his own server about the same time I wrote iS 0.1.0/0.1.1)

[spyderspawn]

thanks for all your reponds now I will show you the coding of an msn chat client example I am trying to get to connect to myenetwork syam told me there is some things I would need fix to get it worken just right . all he told me it had something to do with this WS.Senddata "IRCVERS IRC" & vbCrLf I wasn't for sure but I found a basic client if you want to download that I will besure to put it on my site www.spxzone.net - look in the downloads area so what I am saying is I just want any msn chat client to connect to this server
(All I want is some help getting this connected and want to learn more so please some one help me with this in return I will try to help you out any way can in return I feel like I get jerked around alot I was recommended to post on here from some guy I asked ..)
ziggy,webagent,AG,anthrax, to be honest to say I've looked up to you people cause you people are way good at this stuff so just please help me on this project you won't regret it .

[Webagent]

if thats the case then try what Ziggy said.

If it helps you, here is the test I used to connect www.webagent007.org/myenetwork.zip from the printscreen. Just make sure the room excists and you should connect.

Doesn't Syam has some manual about his servers protocols? I mean how is anyone supposed to know how to connect there without it?

[spyderspawn]

it's a webchat myenetwork.net/chat/ I got his ocx sourcecode I heared he had it connected using an msn chat client is that possable ? yes it works great for me .. I found some parts I forgot to give you want to race and see who can get it fixed that fast lol .. I will leave this code out for more peeps to come up with Ideas onces I get this nicklist workin I will put it up on mysite www.spxzone.net - working . spx.250free.com/enetworkChatPrivate.zip here is the whole ocx source code .. the reason I want to make a client for it to help the staff out .

[Webagent]

spyderspawn said:

it's a webchat myenetwork.net/chat/ I got his ocx sourcecode I heared he had it connected using an msn chat client is that possable ?

that link you gave, if you look in the source of that webpage you will seebr]

<OBJECT ID="ChatFrame" CLASSID="CLSID:F58E1CEF-A068-4c15-BA5E-587CAF3EE8C6" width="100%" height="100%" CODEBASE="http://fdl.msn.com/public/chat/msnchat45.cab#Version=9,02,0310,2401">
<PARAM NAME="RoomName" VALUE="MelayuMasaKini">
<PARAM name="LOCALE" value="">
<PARAM NAME="NickName" VALUE="Guest">
<PARAM NAME="Server" VALUE="myenetwork.net:6668">
<PARAM name="URLBack" value="index.php">
<PARAM NAME="BaseURL" VALUE="http://chat.myenetwork.net/">
<PARAM NAME="ChatMode" VALUE=2>
<PARAM name="ButtonTextColor" value="0">
<PARAM name="ButtonBackColor" value="10768896">
<PARAM name="ButtonFrameColor" value="13607026">
<PARAM name="BackColor" value="16380652">
<PARAM name="InputBorderColor" value="15521988">
<PARAM name="BackHighlightColor" value="16248815">
<PARAM name="TopBackHighlightColor" value="11498810">
<PARAM NAME="Category" VALUE="UL">
<PARAM NAME="MessageOfTheDay" VALUE="(M)(R)Welcome to <B><COLOR #000000>eNetwork Chat</COLOR></B>. Important: We do not control or endorse the content, messages or information found in chat. We specifically disclaim any liability with regard to these areas . You <B>MUST</B> read our Term Of Use at least once. Click here : http://chat.myenetwork.net/about/tos.htm. MSN Chat Client is Copyright MSN Chat. .:: (R)(M)">
<PARAM NAME="Feature" VALUE="4">
<PARAM NAME="Topic" VALUE="Sembang je lah ape ape pon">
<PARAM NAME="AuditMessage" VALUE="Note: We have detected that you are connected to this chat session from the IP address <B>%1</B>.">
<PARAM NAME="ResDLL" VALUE="">
</OBJECT>

mind thebr]

<OBJECT ID="ChatFrame" CLASSID="CLSID:F58E1CEF-A068-4c15-BA5E-587CAF3EE8C6" width="100%" height="100%" CODEBASE="fdl.msn.com/public/chat/msnchat45.cab#Version=9,02,0310,2401">

that webchat is not using the Syam-ocx-source you showed but this is using the real current msnchat45.ocx, it answers your question if its possible to use MSN's client (the answer is yes), their ocx is their client.

I dont know exactly how though, if Syam made a server that has 10630 clients and 1635 channels formed.. well pretty good... but I think thats not actually the real number lol

:TK2CHATWBC04 800 * 1 0 GateKeeper,NTLM 512 *



RichTextBox1:TK2CHATWBC04 001 >Guest :Welcome to the eNetwork Chat Service, Syam20

:TK2CHATWBC04 002 >Guest :Your host is TK2CHATWBC04, running version 2.106.4

:TK2CHATWBC04 003 >Guest :This server was created Oct 2 2003 at 13:57:35 PDT

:TK2CHATWBC04 004 >Guest TK2CHATWBC04 2.106.4 aioxz abcdefhiklmnoprstuvxyz

:TK2CHATWBC04 251 >Guest :There are 10630 users and 325 invisible on 1 servers

:TK2CHATWBC04 252 >Guest 1 :operator(s) online

:TK2CHATWBC04 253 >Guest 8 :unknown connection(s)

:TK2CHATWBC04 254 >Guest 1635 :channels formed

:TK2CHATWBC04 255 >Guest :I have 10630 clients and 0 servers

:TK2CHATWBC04 265 >Guest :Current local users: 10630 Max: 16557

:TK2CHATWBC04 266 >Guest :Current global users: 10630 Max: 16557



:TK2CHATWBC04 422 >Guest :MOTD File is missing

:>Guest!A0208E137050EDE0C@GateKeeperPassport JOIN H,U,RX, :%#Helpdesk

:TK2CHATWBC04 332 >Guest %#Helpdesk :Chat Room Help!

:TK2CHATWBC04 353 >Guest = %#Helpdesk :H,G,RXB,.'Guide_Spirit H,G,RXB,.'Guide_Spawnx H,U,RXB,.MY_InTeRnEt H,U,RX,>Guest

:TK2CHATWBC04 366 >Guest %#Helpdesk :End of /NAMES list.

:%#Helpdesk PRIVMSG %#Helpdesk :<b><color #1851E7> Welcome :)To <color #F72609>Help (ip)Desk<color #1851E7> Check Out Our Community And Join <color #008000>http://groups.msn.com/MyeNetwork



Connected.

The chat topic is: Chat Room Help!

lpdesk PRIVMSG %#Helpdesk :<b><color #1851E7> Welcome :)To <color #F72609>Help (ip)Desk<color #1851E7> Check Out Our Community And Join <color #008000>http://groups.msn.com/MyeNetwork:'Guide_Spawnx!A028E13405012DE4C@GateKeeperPassport PRIVMSG %#Helpdesk :
S

ZapfHumnst\bBT;0 Hello how can I help you ?

[spyderspawn]

i did forget to tell you that they switched back to msnchat control for now .. they use to have there ocx running my bad ... I was trying to get the nicklist working last night and through out today .. here is the link spx.250free.com/myenetwork.zip I filled in most of the blinks .. hope this helps you some . . Rifts idea in making a just an normal msn chat client thats all I want something that is not as buggy as the sources I got ..

[Ziggy]

I think the number of clients was copied and pasted from MSN; I don't think that he's really keeping the number of users. Although, Spawn, you should be able to connect if you have the value of an AUTH GateKeeper I : (an initial connection auth) and if you send the right IRCVERS. I realize you'll be IRC, but you should still send the MSN "user-agent". For the latest MSN, it's IRCVERS IRC8 MSN-OCX!9.02.0310.2405 (maybe 2401, I forget, but I doubt Syam depends on that). Hope that helps.

[spyderspawn]

thanks ziggy for the sugguestion .