[Suche][AutoIt] Source(s)

[Lumi]

Ich denke mein Titel ist aussagekräftigt.

Ich benutze diese Source nur für Lernzwecken.
Bitte Treasure posten mit entsprechende Titel und der Preis.

[Givemoney]

Suchste Eventuell etwas bestimmtes? könnte dir was erstellen.

[Lumi]

Mich würde etwas interessieren. Ich habe dir mal eine Nachricht hinterlassen.

[Requi]

Ich könnte dir alle meine Sources zur Verfügung stellen
Adde mich ma auf Skype. Dann besprechen wir nen Preis

[Player-Services]

Was suchst du denn genau also welche Funktionen gerne auch per PN

[Lumi]

Ich suche nichts bestimmtes.
Lasst mich überraschen.

[Player-Services]

Features:
Endless Loop
Auto ReLogin
Reset if crashed
Random Movements in game


Code:

HotKeySet("{f12}", "finished")

Run("E:\Games\World_of_Tanks\WOTLauncher", "E:\Games\World_of_Tanks") ;Runs the program, edit to your computer's path
$k = 0
$i = 0
Do
$i = $i + 1
Sleep(1000)
PixelSearch(1250, 830, 1280, 850, 0x770002)
Until Not
@error
Or $i = 120
Sleep(500)
MouseClick("Left", 1266, 837,10) ; Press Start or Play from the launcher
Sleep(5000)
MouseClick("Left", 1266, 837,10)

$i = 0
Do
$i = $i + 1
WinActivate("W.o.T. Client")
Sleep(1000)
PixelSearch(947, 738, 967, 758, 0x42120B); Logs you in
Until Not
@error
Or $i = 120
WinMove("W.o.T. Client", "", 0, 0) ; Sets coordinates to 0,0 so mouse points are now universal aka no need to change any more coordinates
Sleep(1000)
MouseClick("Left", 512, 569, 10)
Sleep(5000)
MouseClick("Left", 512, 569, 10)
While 1
$k = $k + 1
if ($k > 1) Then
restart()
EndIf
$i = 0
Do
$i = $i + 1
Sleep(1000);sss;sssssss
PixelSearch(504, 54, 524, 74, 0xC11E1F)
Until Not
@error
Or $i = 180
Sleep(1000)
MouseClick("Left", 502, 75,10)
Sleep(5000)
MouseClick("Left", 502, 75,10)

$i = 0
Do
$i = $i + 1
Sleep(1000)
PixelSearch(504, 54, 524, 74, 0xC11E1F)
Until
@error
Or $i = 180
Sleep(1000)
MouseClick("Left", 502, 75,10)
Sleep(5000)
MouseClick("Left", 502, 75,10)
Do
$random = Random(1,20,1)
if ($random = 1 or $random = 5) Then
Send("{s down}")
EndIf
if ($random = 2) Then
Send("{d down}")
EndIf
if ($random = 3 or $random = 6) Then
Send("{w down}")
EndIf
if ($random = 4) Then
Send("{a down}")
EndIf
$i = $i + 1
sleep(100)
Send("{esc}")
sleep(100)
Send("{ENTER}")
Sleep(800)
Send("{a up}")
Send("{w up}")
Send("{d up}")
Send("{s up}")
PixelSearch(504, 54, 524, 74, 0xC11E1F)
Until Not
@error
Or $i = 1260

WEnd


Func finished()
ProcessClose("WOTLauncher.exe")
ProcessClose("WorldOfTanks.exe")
Exit
EndFunc ;==>finished

Func restart()
ProcessClose("WOTLauncher.exe")
ProcessClose("WorldOfTanks.exe")
Sleep(10000)
Run("E:\Games\World_of_Tanks\WOTLauncher", "E:\Games\World_of_Tanks")

$i = 0
Do
$i = $i + 1;sssssssssssssss
Sleep(1000)
PixelSearch(1250, 830, 1280, 850, 0x770002)
Until Not
@error
Or $i = 120
Sleep(500)
MouseClick("Left", 1266, 837,10)
Sleep(5000)
MouseClick("Left", 1266, 837,10)
$i = 0
Do
$i = $i + 1
WinActivate("W.o.T. Client")
Sleep(1000)
PixelSearch(947, 738, 967, 758, 0x42120B)
Until Not
@error
Or $i = 120
WinMove("W.o.T. Client", "", 0, 0)
Sleep(1000)
MouseClick("Left", 512, 569, 10)
Sleep(5000)
MouseClick("Left", 512, 569, 10)
Return
EndFunc ;==>restart

--

[Lumi]

Was bitte schön möchte ich damit anfangen?
Es sollen schon nützliche Dinge sein.

[SkibbelsHD]

Einen rechner?