El nuevo code de thanks checked para autoit disfruten
Tutorial para detectar el HTML Thanks
- Code:
$navegated = _IECreateEmbedded()
$Form1 = GUICreate("HS4L- Thanks Checker", 0x02AD, 0x017C, 0x02A0, 0x015E)
$Net = GUICtrlCreateObj($navegated, 0, 0, 0x0261, 0x0179)
_IENavigate($navegated, "http://www.elitepvpers.com/forum/s4-league-hacks-bots-cheats-exploits/3772767-xigncode-full-bypass-auto-update.html")
$Button = GUICtrlCreateButton("Continue", 0x0260, 0, 0x004B, 0x0179)
GUICtrlSetState($Button, 0x0080)
GUISetState(@SW_SHOW)
While 1
$epvp = $navegated .document.url
If $epvp = "http://www.elitepvpers.com/forum/s4-league-hacks-bots-cheats-exploits/3772767-xigncode-full-bypass-auto-update.html" Then
GUICtrlSetState($Button, 0x0040)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button
$URL = readURL("http://www.elitepvpers.com/forum/s4-league-hacks-bots-cheats-exploits/3839853-release-darkspirit-d3d.html")
If StringInStr($URL, 'onclick="return post_thanks_give(32757561, false);" style="display:none"') Then
MsgBox(0, "Info", "Thanks ;)")
GUISetState(@SW_HIDE, $Form1)
ToolTip("S4 League Wait...", 0, 0)
WinWait("error")
Else
MsgBox(0, "Info", "Por favor, dar gracias a mí")
EndIf
EndSwitch
WEnd
EndIf
WEnd
Func readURL($url, $ArgOpt01 = True)
Local $Local017F = InetRead($url, 1)
Local $Local0070 = @error, $Local0071 = @extended
If $ArgOpt01 = Default Or $ArgOpt01 Then $Local017F = BinaryToString($Local017F)
Return SetError($Local0070, $Local0071, $Local017F)
EndFunc
Tutorial para detectar el HTML Thanks
- Code:
If StringInStr($URL, 'onclick="return post_thanks_give(32757561, false);" style="display:none"') Then