#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