Witam wszystkich
Niedawno pobrałem bota do tej gryGram, ten bot używa Autoit do automatyzacji ruchów na ekranie, wraz z Autoit pobrałem kilka skryptów, które pozwalają mi zautomatyzować ruchy w grze. Ściągnąłem te skrypty na mój główny komputer i laptop, więc w razie potrzeby mogę je uruchomić na 2 kontach. Pobieranie przebiega dokładnie tak samo i chociaż bot działa idealnie na moim komputerze, robi coś dziwnego na moim laptopie:
Kursor wydaje się być w stanie przejść do miejsc Ikonkretnie nakazali mu iść, ale gdy potrzebuje przeszukiwania obrazów lub pikseli, po prostu się zatrzymuje. Program nie przestaje działać i będzie kontynuował wykonywanie czynności, które może wykonać, we właściwym czasie, jednak wszystkie funkcje wyszukiwania obrazów zostaną pominięte.
Jedyną istotną różnicą między komputerem a laptopem jest to, że na laptopie działa system Windows 8.
Rzeczy, które Iv próbował, przeszukując przed zapytaniem tutaj:
Przeczytałem, że imagesearch.dll powinien znajdować się w sysWOW64, aby działał i wierzę, że zrobiłem to, kopiując pliki DLL i wklejając je do syswow64. To nie pomogło.
Próbowałem też dodać #requireadmin na początku skryptu, co też nie pomogło.
dzieje się tak ze WSZYSTKIMI skryptamipobrane. Wszystkie działają na komputerze PC i żaden nie działa na laptopie. Nie mam zbytniego zrozumienia z tym kodem, ponieważ sam go nie napisałem. Jednak trochę się z nim zapoznałem, ponieważ edytuję go na własne potrzeby na moim komputerze i sprawiam, że działa bardzo dobrze. Pomyślałem więc, że nie działa na moim laptopie, to pewnie jakiś amatorski błąd dotyczący Windowsa 8 lub podobnego.
oto przykładowy skrypt.
#RequireAdmin
#include <Misc.au3>
HotKeySet("{[}", "MakeLock")
HotKeySet("{z}", "Start")
HotKeySet("{ESC}", "_Exit")
HotKeySet("{x}", "Shafts")
HotKeySet("{c}", "Heads")
HotKeySet("{v}", "bsb")
$handle = WinGetHandle("Wurm Online", "")
Global $running=0
Global $shaftLoc
Global $headLoc
Global $shaft=0
Global $head=0
Global $bsb=0
Global $bsbloc
Func _Exit()
Exit
EndFunc ;==>_Exit
Func Getfrombsb()
MouseMove($bsbloc[0], $bsbloc[1], 5)
MouseDown("left")
Sleep(100)
MouseMove($shaftloc[0], $shaftloc[1], 5)
Sleep(100)
MouseUp("left")
sleep(2500)
send ("4")
sleep(250)
Send("{Enter}")
sleep(3000)
EndFunc
Func Shafts()
MsgBox(0, "", "title of items")
$shaft=1
EndFunc
Func Drop()
MouseMove($shaftloc[0], $shaftloc[1], 5)
MouseDown("left")
Sleep(250)
MouseMove($bsbloc[0], $bsbloc[1], 5)
MouseUp("left")
EndFunc
Func bsb()
MsgBox(0, "", "item in bsb")
$bsb=1
EndFunc
Func Heads()
MsgBox(0, "", "Click on what ur continuing")
$head=1
EndFunc
Func continue()
MouseMove($shaftloc[0], $shaftloc[1], 5)
MouseClick("left")
Sleep(100)
MouseMove($shaftloc[0], $shaftloc[1], 5)
MouseClick("right")
Sleep(1000)
$line = GetLine()
If IsArray($line) Then
Local $random2 = Random(200, 250, 1)
MouseMove($line[0], $line[1]+3*16-8, 5)
Sleep($random2-51)
MouseMove($line[0]+120, $line[1]+3*16-8, 5)
Sleep($random2+38)
MouseMove($line[0]+120, $line[1]+3*16-8+2*16, 5)
Sleep(500)
MouseMove($line[0]+200, $line[1]+3*16-8+2*16, 5)
Sleep($random2+161)
MouseMove($line[0]+200, $line[1]+3*16-8+2*16+44, 25)
Sleep($random2)
MouseClick("left")
EndIf
EndFunc
Func Start()
if $running==0 Then
$running=1
TrayTip("", "Macro started", 5)
ElseIf $running==1 Then
$running=0
TrayTip("", "Macro stopped", 5)
EndIf
EndFunc
Func GetLine()
$pos = MouseGetPos()
$samp = $pos
For $i = 0 To 48 Step 1
$samp[0] = $pos[0]+32
$samp[1] = $pos[1]+$i
$s0 = PixelGetColor($samp[0], $samp[1], $handle)
If $s0 == 0xFFFFFF Then
$s1 = PixelGetColor($samp[0]+1, $samp[1], $handle)
If $s1 == 0xFFFFFF Then
$s2 = PixelGetColor($samp[0]+2, $samp[1], $handle)
$s3 = PixelGetColor($samp[0]+3, $samp[1], $handle)
If $s2 == 0xFFFFFF AND $s3 == 0xFFFFFF Then
$line = $samp
ExitLoop
EndIf
EndIf
EndIf
$line = 0
Next
Return $line
EndFunc
While (1)
if _IsPressed("01") And $shaft==1 Then
$shaftloc = MouseGetPos()
$shaft=0
MsgBox(0, "", "shaft loc loaded")
endif
if _IsPressed("01") And $head==1 Then
$headloc = MouseGetPos()
$head=0
MsgBox(0, "", "head loc loaded")
EndIf
if _IsPressed("01") And $bsb==1 Then
$bsbloc = MouseGetPos()
$bsb=0
MsgBox(0, "", "bsb loc loaded")
EndIf
if $running==1 Then
Getfrombsb()
Local $random = Random(24000, 25000, 1)
continue()
Sleep($random)
sleep(500)
Drop()
sleep(2000)
Drop()
sleep(2000)
EndIf
Sleep(10)
WEnd
Po obejrzeniu dokładnie tego, co robi, a czego nie, widzę, że pojawia się problem z sekcją kodu poniżej, która robi wszystko do; $ line = GetLine ()
$line = GetLine()
If IsArray($line) Then
Local $random2 = Random(200, 250, 1)
MouseMove($line[0], $line[1]+3*16-8, 5)
Sleep($random2-51)
MouseMove($line[0]+120, $line[1]+3*16-8, 5)
Sleep($random2+38)
MouseMove($line[0]+120, $line[1]+3*16-8+2*16, 5)
Sleep(500)
MouseMove($line[0]+200, $line[1]+3*16-8+2*16, 5)
Sleep($random2+161)
MouseMove($line[0]+200, $line[1]+3*16-8+2*16+44, 25)
Sleep($random2)
MouseClick("left")
EndIf
EndFunc
Każda pomoc będzie mile widziana. I chociaż nie jestem zaznajomiony z kodem, wiem, jak używać przepełnienia stosu, ponieważ mój brat jest programistą .net. Zaznaczę pytanie, które mi pomaga i popieram i takie.
Z poważaniem.
Odpowiedzi:
0 dla odpowiedzi № 1Wiem, jaki jest twój problem… myślę. Spróbuj zamienić dane wyjściowe funkcji PixelGetColor () na Hex. Ponadto, gdy wysyła, nie zawiera „0x” na początku znacznika koloru. Możesz więc powiedzieć:
#Include <Misc.au3> ;for the _ispressed() function
Do
Until _IsPressed("01") ;wait for click
$mouse = MouseGetPos() ;Get cursor info
$color = Hex(PixelGetColor($mouse[0], $mouse[1]), 6) Get info on the pixel under the mouse.
;Lets just say the color is white
If $color == "FFFFFF" Then
MsgBox(0, "Success", "Colors match!")
EndIf
Jeśli chodzi o niedziałające ImageSearch, to może byćproblem ze zgodnością AutoHotKey z Windows 8. Ponieważ AutoIt nie ma funkcji ImageSearch, programiści używają funkcji ImageSearch AutoHotKey i umieszczają ją w bibliotece AutoIt. To może być miejsce, w którym pojawia się problem