REGCookie + ... + ... + UserRole = Empty!!

[Mosh]

hi all ..
anyone can help me to get cookies from a group!
my gabber gives me nothing
should i navigate to something esle after the Url of that group!

hmm and i use [glow=red,2,300]" syam's GetInfo "[/glow] to get it
Thanks

cookie = Mid(data, InStr(1, data, "MSNREGCookie", 1) + 22)
cookie = Mid(cookie, 1, InStr(1, cookie, Chr$(34), 1) - 1)

[Lazer]

if u the WebBrowser1.Document.documentelement.innerhtml

and save it to a richtextbox u can use this


Dim Cookie As String
Dim Profile As String
Dim Ticket As String
Ticket = Mid(RichTextBox1.Text, InStr(1, RichTextBox1.Text, "PassportTicket", 1) + 23)
Ticket = Mid(Ticket, 1, InStr(1, Ticket, Chr(34), 1) - 1)
Cookie = Mid(FoRichTextBox1.Text, InStr(1, RichTextBox1.Text, "MSNREGCookie", 1) + 22)
Cookie = Mid(Cookie, 1, InStr(1, Cookie, Chr$(34), 1) - 1)
Profile = Mid(RichTextBox1.Text, InStr(1, RichTextBox1.Text, "PassportProfile", 1) + 24)
Profile = Mid(Profile, 1, InStr(1, Profile, Chr$(34), 1) - 1)
Text1.Text = Cookie
Text2.Text = Ticket
Text3.Text = Profile

[Mosh]

thanks for the help

but hmmm same thing
i use
RichTextBox1.Text = WebBrowser1.Document.documentelement.innerhtmlbr]when webbrowser1_DocumentComplete
but i get nothing

can you give me a hint when should i use it to get the info ..
or should i navigate to something else after the group url ??

thanks again

[Lazer]

i prosume u have 3 textbox's ? 1 2 and 3 and a richtextbox ? this is what i used on my first client


Private Sub webbrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
On Error Resume Next

If WebBrowser1.LocationURL Like "*http://chat.msn.com/chatroom_ui.msnw?rd=false*" Then
RichTextBox1.Text = WebBrowser1.Document.documentelement.innerhtml
Call ExtractInfo
End If
End Sub

Public Sub ExtractInfo()
Dim Cookie As String
Dim Profile As String
Dim Ticket As String
Ticket = Mid(RichTextBox1.Text, InStr(1, RichTextBox1.Text, "PassportTicket", 1) + 23)
Ticket = Mid(Ticket, 1, InStr(1, Ticket, Chr(34), 1) - 1)
Cookie = Mid(FoRichTextBox1.Text, InStr(1, RichTextBox1.Text, "MSNREGCookie", 1) + 22)
Cookie = Mid(Cookie, 1, InStr(1, Cookie, Chr$(34), 1) - 1)
Profile = Mid(RichTextBox1.Text, InStr(1, RichTextBox1.Text, "PassportProfile", 1) + 24)
Profile = Mid(Profile, 1, InStr(1, Profile, Chr$(34), 1) - 1)
Text1.Text = Cookie
Text2.Text = Ticket
Text3.Text = Profile
End Sub

[Mosh]

thanks lazer ...
but first of all im talking about Groups.msn.com [glow=red,2,300]Not[/glow] Chat.msn.com

[Lazer]

all u will need to do is change the url

[Ziggy]

instead of + for strings, use &

[SudsyUncle®]

Ziggy said:

instead of + for strings, use &

the + in this case refers to position, i dont think that & would work.

[syam101]

syam101.net/Groupsgrabber.zip ( EXE + Source Code)

It works with the current groups chat.