Hey Leute, verwende autoit v. 3.2.10.0. Habe sie normal installiert.
Wenn ich es nun verwende kommt folgende Fehlermeldung
[Blockierte Grafik: http://img266.imageshack.us/my.php?image=errorxz6.jpg%5D%5Bimg%5Dhttp://img266.imageshack.us/img266/3496/errorxz6.th.jpg]
dazu hier mein script :
Code
;Script for Dac Farren , starts from Shenk area , stops near Dac , double check for confirming Dac is present
; Scripted by Tiger
AutoItSetOption("ColorMode", 1)
AutoItSetOption("MouseCoordMode", 0)
AutoItSetOption("PixelCoordMode", 0)
HotKeySet("{ESC}", "KillScript")
Const $GenSleep = 450
Const $Blue = 16759444
Const $LGreen = 9240485
Dim $Confirm = 0
Global $Col
Func CheckBlock($BColor)
$Block = PixelSearch(0,35,790,550,$BColor,0,1)
If IsArray($Block) Then
If (PixelGetColor($Block[0] + 10,$Block[1]) = $BColor) And (PixelGetColor($Block[0] + 20,$Block[1]) = $BColor) Then
$Confirm = 1
EndIf
EndIf
EndFunc
$GlobalT = TimerInit()
Sleep(200)
Right()
Func Right()
$Confirm = 0
Do
MouseMove(799,300,0)
Sleep($GenSleep)
MouseClick("Right")
CheckBlock($Blue)
Until ($Confirm = 1) Or (TimerDiff($GlobalT) > 40000)
ToDac()
EndFunc
Func ToDac()
$Confirm = 0
Do
MouseMove(799,466,0)
Sleep($GenSleep)
MouseClick("Right")
Sleep($GenSleep)
$Col = PixelSearch(3,340,790,550,$LGreen,0,1)
If IsArray($Col) Then return
If PixelGetColor($Col[0] + 25,$Col[1] - 215) = $Blue Then
ExitLoop
EndIf
EndIf
Until TimerDiff($GlobalT) > 20000
Position()
EndFunc
Func Position()
MouseMove($Col[0] - 100,$Col[1] + 100,0)
Sleep($GenSleep + 100)
MouseClick("Right")
EndFunc
Func KillScript()
Exit(1)
EndFunc
Exit(1)
Alles anzeigen
funktioniert halt nicht -.-
wäre sehr dankbar für etwas hilfe
gruß