Simple Automatisierung klappt nicht

[svenjatzu]

Hi

ich stehe vor dem problem, dass unsere firme ein neues wirtschaftssystem angeschafft hat.

Ich habe unsere 1500 Artikel über excelimport eingefügt und die sind jetzt alle im bestand drinnen.

jetzt muss ich aber jeden artikel im besand einmal über den grauen butten anklicken um den artikel auch zu aktivieren.

das problem dabei ist dass es 3 verschiedene probleme gibt.

1. es taucht nach dem butten eine box auf um den lieferanten zu bestätigen.
2. manchmal taucht ein weitere box auf die woanders positioniert ist und auch ok geklickt werden muss.
3. manchmal nach dem klicken auf die 2. box schliesst sich das besatandsfenster wieder woraufhin ich dann den bestand wieder öffnen muss.
4. die liste zeigt nicht alle artikel an wenn ich nach unten scrolle, dann muss ich wieder auf den butten alle anzeigen klicken damit die weiteren geladen werden.

desshalb hab ich mit autoit einen code geschrieben der alle artikel für mich aktivieren soll.

mein problem ist nur, er klickt nur den 1. butten die weiteren beachtet er nicht.

könnt ihr mir bitte helfen den code umzuändern so dass es funktioniert? bekommt ein dickes thanks von mir.

hier ist der code

 Spoiler

;~ #include <ImageSearch.au3>


HotKeySet("{numpad0}","_go")
HotKeySet("{numpad1}","_go2")
HotKeySet("{f8}","tp")

;~ $x1=0
;~ $y1=0

;~ send("{f7}")

While 1
Sleep(50)
WEnd

;~ func _ast()
;~ While 1
;~ $result=_ImageSearch("1.bmp",0,$x1,$y1,80)
;~ $result=PixelSearch(856, 286,1002, 446,0xF7F8F9,10)
;~ Local $aCoord = PixelSearch(856, 286,1002, 446,0xF7F8F9,10)
;~ If Not @error Then
;~ MouseClick("left",$x1,$y1,1,1)


;~ AdlibEnable("Test", 1000) ; Aktiviert die AdmlipEnable Funktion. In diesem Fall wir jede Sekunde die Func _Test () angesteuert.
func _go()
While 1
;~ Local $bCoord = PixelSearch(856, 286,1002, 446,0xF7F8F9,1) ;suche nach fisch angebissen
;~ If not @error Then

$coord = PixelSearch(840, 261,997, 663,0xF7F8F9,1,1) ;add
If Not @error then
Mouseclick("left",$coord[0],$coord[1],1,1)
send("{enter}")
send("{down 2}")
MouseClick("left",832, 199,1,1)
Sleep(600)



$coord = PixelSearch(865, 641,957, 655,0xEDEFF4,1,1) ;mehr
If Not @error then
Mouseclick("left",$coord[0],$coord[1],1,1)
sleep(400)
send("{numpad1}")
$coord = PixelSearch(813, 522,814, 523,0x7E988F,1,5) ;reload
If Not @error then
Mouseclick("left",819, 199,1,1)
sleep(4500)
$coord = PixelSearch(1058, 451,1121, 467,0x3E5C9A,1,1) ;bestätigen
If Not @error then
Mouseclick("left",$coord[0],$coord[1],1,1)


;~ send("{numpad1}")

;~ send("{down}")
;~ MouseClick("left",832, 199,1,1)
;~ Sleep(300)
EndIf
EndIf
EndIf
;~ Wend

;~ Local $aCoord = PixelSearch(560,717,593,736,0x2F89A5,40) ;suche nach fisch angebissen
;~ If Not @error Then
;~ MsgBox(1,"","gfun")
;~ MouseMove($x1,$y1,10)
;~ Opt("MouseClickDownDelay", 100)
;~ MouseClick("left",578,727,1,2) ;angeln stoppen
;~ ShellExecute("C:\Users\Asus\Desktop\ggo2.exe")
;~ MouseClick("left",546,747,1,2) ;angeln stoppen

;~ MouseClick("left",1547,674,3,0) ;start ggo2
;~ send("{f9}")
;~ Exit
;~ EndIf
EndIf
WEnd
EndFunc

Func _go2()
While 1
$coord = PixelSearch(1058, 451,1121, 467,0x3E5C9A,1,1) ;bestätigen
If Not @error then
Mouseclick("left",$coord[0],$coord[1],1,1)
send("{numpad0}")
EndIf
;~ EndIf
WEnd
EndFunc

;~ EndIf
;~ WEnd
;~ EndFunc

func tp()
Exit
EndFunc

etwas unsauber wegen den ausgeqouteten zeilen aber lesbar.

[Moneypulation]

1. send("{down 2}") geht soweit ich weiß nicht. es muss send("{2 down}") sein
2. du solltest den pixelsearch besser mit If IsArray($result) abfragen, da die abfrage mit @error zu fehlern führen kann
3. Vielleicht braucht das Programm länger als 0,6 bzw. 0,4 sekunden den button anzuzeigen. hast du es schon mal mit etwas mehr zeit versucht?

Außerdem würde ich add, mehr, reload und bestätigen in einzelne funktionen packen. Mithilfe eines timers könntest du den pixel für z.b. 2 sekunden suchen. sobald gefunden oder zeit verstrichen, gehts dann zur nächsten funktion