vb6 =]

[fairydust201]

dose any one have the right code for the log in box ??????

and another question what file should i save it on ? im new to vb6 =)

ive been working on something for a while .

well really playing with vb6 =)

[Ashleys165]

dose any one have the right code for the log in box ??????

and another question what file should i save it on ? im new to vb6 =)

ive been working on something for a while .

well really playing with vb6 =)

What kind of log in box?

And what file??? What do you mean, your whole project?

[fairydust201]

Ashleys165 nope i mean saving the file incase i have to work on it later i have it ;; & A regular log in box =)

[Ashleys165]

Well you just hit file>Save then save it in a folder you will remember, and when you want to work on it again just double click it.
As for a log in box... you make your own.... here I will post back in one minute.. I will show you in video.

[fairydust201]

thank you so much for your help Ashleys165 =)

[Ashleys165]

Sorry its taking so long, uploading takes forever.

[Zachafer]

What are you trying to login to? Neopets?

[Ashleys165]

Well here is the video. It will help with web debugging too.


[Only registered and activated users can see links]

And if you just want the raw code...


Dim strhtml As String

strhtml = Wrapper1.GetWrapper("[Only registered and activated users can see links]")
If InStr(strhtml, "<a href=""/logout.phtm""><b>Logout</b></a>") Then
strhtml = Wrapper1.GetWrapper("[Only registered and activated users can see links]")
End If

strhtml = Wrapper1.GetWrapper("[Only registered and activated users can see links]")
strhtml = Wrapper1.PostWrapper("[Only registered and activated users can see links]", "destination=&username=" & user & "&password=" & pass, "[Only registered and activated users can see links]")

If InStr(1, strhtml, "badpassword") Then
msgbox "Bad Password Or Username, Try Again"
ElseIf (InStr(strhtml, "<span style='color: #ff0000; font-weight: bold;'>If you DID break the rules, please do not contact us again.</span>")) Then
msgbox "Brrrr... This account is FROZEN."
ElseIf InStr(1, strhtml, "index") Then
msgbox "You succesfully logged in as " & user.Text & ". Have fun cheating!"


strhtml = Wrapper1.GetWrapper("[Only registered and activated users can see links]")


Else
msgbox "You Might Be Frozen :( Or There Is An Unknown Error D:"
End If

[fairydust201]

Thanks Ashleys165 Zachafer ash beat you too it lol =]