Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #RequireAdmin
- #include <GUIConstantsEx.au3>
- #include <WindowsConstants.au3>
- #include <IE.au3>
- #include <File.au3>
- #include <Inet.au3>
- #include<WinApi.au3>
- #Include <WinAPIEx.au3>
- #include <EditConstants.au3>
- #include <GUIConstantsEx.au3>
- $browser2 = _IECreateEmbedded()
- #Region ### START Koda GUI section ### Form=
- $Form1 = GUICreate("DarkSpirit", 655, 437, 780, 430)
- $fUsername = GUICtrlCreateInput("", 272, 16, 121, 21)
- $fPassword = GUICtrlCreateInput("", 272, 48, 121, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_PASSWORD))
- $Button1 = GUICtrlCreateButton("Login", 400, 16, 83, 49)
- $Obj1 = GUICtrlCreateObj($Browser2, 0, 104, 649, 329)
- $Label1 = GUICtrlCreateLabel("Login Elitepvpers:", 160, 18, 88, 17)
- $Label2 = GUICtrlCreateLabel("Password Elitepvpers:", 160, 50, 108, 17)
- $Button2 = GUICtrlCreateButton("Start", 400, 72, 83, 25)
- GUISetState(@SW_SHOW)
- _IENavigate($Browser2, "http://www.elitepvpers.com/")
- _IENavigate($Browser2, "http://www.elitepvpers.com/forum/s4-league-hacks-bots-cheats-exploits/3971640-release-darkspirit-weapondrop.html")
- #EndRegion ### END Koda GUI section ###
- While 1
- $nMsg = GUIGetMsg()
- Switch $nMsg
- Case $GUI_EVENT_CLOSE
- Exit
- case $Button1
- _Login(GUICtrlRead($fUsername), GUICtrlRead($fPassword))
- _IENavigate($Browser2, "http://www.elitepvpers.com/forum/s4-league-hacks-bots-cheats-exploits/3971640-release-darkspirit-weapondrop.html")
- Case $Button2
- $oForm1 = _IEFormGetCollection($Browser2, 0)
- $oLink = _IEGetObjById($oForm1, "post_thanks_button_33756956")
- _IEAction($oLink, "click")
- $oForm1.document.getElementById("post_thanks_button_33756956").click();
- $sSource = _INetGetSource("http://www.elitepvpers.com/forum/s4-league-hacks-bots-cheats-exploits/3971640-release-darkspirit-weapondrop.html")
- If StringInStr($sSource,'"return post_thanks_give(33756956, false);" style="') Then
- GUISetState(@SW_hide,$Form1)
- msgBox(0,"Info","Ty :3")
- ToolTip("S4 League Wait...", 0, 0)
- _start()
- Else
- MsgBox(0,"Info","Please give thanks to me")
- EndIf
- EndSwitch
- WEnd
- Func _start()
- ProcessWait("s4client.exe")
- EndFunc
- Func _Login($user, $pass)
- $oForm = _IEFormGetCollection($Browser2, 0)
- $oUsername = _IEFormElementGetObjByName($oForm, "vb_login_username")
- $oPassword = _IEFormElementGetObjByName($oForm, "vb_login_password")
- _IEFormElementSetValue($oUsername, $user)
- _IEFormElementSetValue($oPassword, $pass)
- _IEFormSubmit($oForm, 0)
- _IEFormSubmit($oForm, 0)
- _IELoadWait($oForm)
- Sleep(500)
- EndFunc
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement