
MineCraft Account Check
;MineCraft has updated the login page .. script wont work anymore :/
;------------------------------
;Coded by ShadowzKnowledge
;visit my YouTube Channel:
;http://www.youtube.com/user/ShadowzKnowledge
;------------------------------
#include <IE.au3>
$user = InputBox("", "Pls enter username")
If @error Or $user = "" Then Exit
$pw = InputBox("", "Pls enter the password")
If @error Or $pw = "" Then Exit
ToolTip("User: " & $user & @CRLF & "PW: " & $pw, 0, 0, "Checking account ...")
$ret = MineCraft($user, $pw)
If $ret = "acc_valid" Then
MsgBox(0, "", "User and password match!")
ElseIf $ret = "acc_unvalid" Then
MsgBox(0, "", "Don't match")
Else
MsgBox(16, "", "An error occurred")
EndIf
Func MineCraft($user, $pw)
$url = "http://www.minecraft.net/login.jsp"
$oIE = _IECreate($url, 0, 0)
$oForm = _IEGetObjByName($oIE, "input")
$oInput = _IEFormElementGetObjByName($oForm, "username")
_IEFormElementSetValue($oInput, $user)
$oPW = _IEFormElementGetObjByName($oForm, "password")
_IEFormElementSetValue($oPW, $pw)
_IEFormSubmit($oForm, 0)
_IELoadWait($oIE)
$txt = _IEBodyReadText($oIE)
$ans = StringRegExp($txt, "Failed to log in. Wrong username and/or password.")
If $ans = 1 Then
$status = "acc_unvalid"
Else
$status = "acc_valid"
EndIf
_IEQuit($oIE)
Return $status
EndFunc ;==>MineCraft