Quote:
Sid - Intoxic says:
*applied
Checker says:
*You're being promoted in a few min's.
Sid - Intoxic says:
*Woot
*Thanks
*I'll just go post the login source for some noob pet site
*misticpets, or something
Checker says:
*lmao
|
Pointless to the extreme!
Main Function:
Code:
Public Function MisticpetsLogin(ByVal Username As String, ByVal Password As String)
Dim strHTML As String
wrapper.clearcookies()
wrapper.getwrapper("http://www.misticpets.com/login.php")
strHTML = wrapper.postwrapper("http://www.misticpets.com/login.php", "username=" & Username & "&password=" & password, "http://www.misticpets.com/login.php")
If strHTML.Contains("You have been logged") Then
Return True
Else : Return False
End If
End Function Download Project:
Linear Mode
