Ich vergebe hier meinen Bot für eine deutsche Toplist.
Dieser arbeitet im Hintergrund, votet automatisch versteckt über den Internet Explorer. Um die Funktion kurz zu Erläutern:
1. Öffnung von IE + Reflink Eurer Seite
2. Votet für den Server
3. Schließt komplett den IE. (= killt den Prozess für alle Schlaumeier)
Dieser votet alle 15 Minuten automatisch. Erfolgreich unter Win7 x64 Ultimate und Win7 x64 Home getestet. Geschrieben ist er in AutoIt3.
Der Bot ist kostenlos und es entstehen keinerlei weitere Kosten.
Mit freundlichen Grüßen,
Crazy
Dieser arbeitet im Hintergrund, votet automatisch versteckt über den Internet Explorer. Um die Funktion kurz zu Erläutern:
1. Öffnung von IE + Reflink Eurer Seite
2. Votet für den Server
3. Schließt komplett den IE. (= killt den Prozess für alle Schlaumeier)
Dieser votet alle 15 Minuten automatisch. Erfolgreich unter Win7 x64 Ultimate und Win7 x64 Home getestet. Geschrieben ist er in AutoIt3.
Code:
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=Letter-V-icon.ico
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <IE.au3>
#include <string.au3>
$url1 = "http://wow-portal.eu/toplist.php?mode=in&id=308"
HotKeySet("+!a", "a")
HotKeySet("+!s", "s")
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ###
$Form1 = GUICreate("Power Voter", 233, 107, 524, 302)
$Label1 = GUICtrlCreateLabel("Shift + Alt + A | Activate Voter (10 minutes)", 16, 16, 203, 17)
$Label2 = GUICtrlCreateLabel("Shift + Alt + S | Stop Voter and close", 16, 48, 126, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
Func a()
GUICtrlSetData($Label1, "Votebot aktiv!")
while 1
$oIE = _IECreate($url1, 0, 0, 0)
GUICtrlSetData($Label1, "Votebot aktiv! | Vote started.")
sleep(10000)
$fullHTML = _IEDocReadHTML ($oIE)
$Between = _StringBetween($fullHTML,'innerHTML=\"<button onclick=','>Klick hier')
_IENavigate($oIE,"javascript:"&$Between[0], 0)
sleep(2500)
_IEQuit($oIE)
GUICtrlSetData($Label1, "Votebot aktiv! | Vote successfully.")
sleep(3600000)
Wend
Endfunc
Func s()
Exit
EndFunc
Mit freundlichen Grüßen,
Crazy
