Rockage's Neopets Login [VB6]

[Rockage]

this is very simple here :P for the programmer newbies.

PHP Code:

Private Sub Command1_Click()
strhtml = wrapper.PostWrapper("http://www.neopets.com/login.phtml", "username=" & txtuser & "&password=" & txtpass & "&destination=%2Fpetcentral.phtml", "http://www.neopets.com/hi.phtml")
  If InStr(strhtml, "badpassword.phtml") Then
        MsgBox "Bad Password"
    ElseIf InStr(strhtml, "petcentral.phtml") Then
        MsgBox "Login Was Successful"
    ElseIf InStr(strhtml, "FROZEN") Then
        MsgBox "That account was frozen, Sorry"
    End If
End Sub 


Need any help feel free to ask

[Zachafer]

Sam...
You should know this (because you accuse me of ripping everything)
You have to name strings, and also use txtUser.text and txtPass.text...
Also use Instr(1, strhtml, "petcentral.phtml", vbtextcompare)
The 1 at the beginning tells VB6 to search from the start of strhtml.
vbtextcompare makes it so that it won't be CaSe SeNsItIvE

Private Sub Command1_Click()
Dim strhtml as String
strhtml = wrapper.PostWrapper("http://www.neopets.com/login.phtml", "username=" & txtuser.text & "&password=" & txtpass.text & "&destination=%2Fpetcentral.phtml", "http://www.neopets.com/hi.phtml")
  If InStr(1, strhtml, "badpassword.phtml", vbtextcompare) Then
        MsgBox "Bad Password"
    ElseIf InStr(1, strhtml, "petcentral.phtml", vbtextcompare) Then
        MsgBox "Login Was Successful"
    ElseIf InStr(1, strhtml, "FROZEN", vbtextcompare) Then
        MsgBox "That account was frozen, Sorry"
    End If
End Sub

Let me know what you think.

[Rockage]

It doesnt have to be case sensitive. Stop trying to act smart by out smarting me. You havent. You just made my simple login a little more complicated.

Also, I named strings at the start of the project kthkzbai.

[Zachafer]

Ok. Sorry for trying to help...

But using InStr(1, strhtml, "FROZEN") is better than using
InStr(1, strhtml, "FROZEN")

Because then it searches from the first character to the last.

Originally Posted by Zachafer

Ok. Sorry for trying to help...

But using InStr(1, strhtml, "FROZEN") is better than using
InStr(1, strhtml, "FROZEN")

Because then it searches from the first character to the last.

Technically if you're only using InStr to check whether or not the substring is in the string it would be faster to use InStrB as it's significantly faster.

[Aethean]

Originally Posted by Zachafer

Sam...
You should know this (because you accuse me of ripping everything)
You have to name strings, and also use txtUser.text and txtPass.text...
Also use Instr(1, strhtml, "petcentral.phtml", vbtextcompare)
The 1 at the beginning tells VB6 to search from the start of strhtml.
vbtextcompare makes it so that it won't be CaSe SeNsItIvE

Private Sub Command1_Click()
Dim strhtml as String
strhtml = wrapper.PostWrapper("http://www.neopets.com/login.phtml", "username=" & txtuser.text & "&password=" & txtpass.text & "&destination=%2Fpetcentral.phtml", "http://www.neopets.com/hi.phtml")
  If InStr(1, strhtml, "badpassword.phtml", vbtextcompare) Then
        MsgBox "Bad Password"
    ElseIf InStr(1, strhtml, "petcentral.phtml", vbtextcompare) Then
        MsgBox "Login Was Successful"
    ElseIf InStr(1, strhtml, "FROZEN", vbtextcompare) Then
        MsgBox "That account was frozen, Sorry"
    End If
End Sub

Let me know what you think.

But.. you even admitted you ripped things at another site xD