Hallo zusammen,
befasse mich seit kurzem mit AutoIt. Folgendes Problem. Aus einer Telefonbuch CD möchte ich automatisiert die Daten exportieren. Wir Ihr wisst ist eine Exportbeschränkung von 75 Datensätzen vorhanden. Ich habe dazu auch im Netzt einen Skript dazu gefunden, der fast funktioniert. Die Koordinatoren der Maus habe ich auf mein Monitor angepasst. Der User der es reingestellt hatte, behauptete das dies problemlos funktioniert. Hier sehe ich allerdings das Problem, das nach dem ersten Mausklick der Befehl kommen müsste 50 Datensätze runterzuscrollen? und mit gehaltener Shift Taste erneut zu drücken.
Das kann ich aus der Programmierung nicht deuten. Zumal für den nächsten Datensatz er dann ja von der letzten Markierung an anfangen müsste, dieses erkenne ich hier leider auch nicht. Falls ich hier einen Lösungsvorschlag von euch bekomme, wäre ich euch sehr dankbar.
Ich füge noch mal den Script bei.
Spoiler anzeigen
;-----------------------------------------------------------------------------------------
; Telefonbucheinträge aus Klicktel exportieren
;-----------------------------------------------------------------------------------------
MsgBox(64, "Klicktel 1", "Telefoneinträge exportieren, Start beim Aktivieren des Klicktelfensters")
Opt("WinTitleMatchMode", 2)
WinWaitActive("Adressanzeige", "", 10)
Dim $Zaehler
Dim $Anzahl = InputBox("Anzahl der Datensätze", "Geben Sie die Anzahl der Datensätze ein", 0)
Dim $Dateiname1 = InputBox("Dateiname", "Geben Sie einen Dateinamen an: ", "Seelow")
Dim $Dateiname
$Anzahl = Int($Anzahl / 50) + 1
MsgBox(0, "Anzahl der Durchläufe", $Anzahl)
For $Zaehler = 1 To $Anzahl
MouseClick("left", 20, 200, 50) ; Pfeil runter ->50 Datensätze weiter
Send("{SHIFTDOWN}") ; Shifttaste runterdrücken
MouseClick("left", 20) ; letzte Zeile markieren
Send("{SHIFTUP}") ; Shifttaste loslassen
Send("!a") ; Alt+a -> Menü: Adressen
Send("e") ; e -> Unterpunkt exportieren
MouseClick("left", 400, 480) ; Auswahl -> markierte Datensätze
Send("{ENTER}") ; Fenster bestätigen
$Dateiname = $Dateiname1 & String($Zaehler) ; Dateinamen bilden
Send("!n") ; Alt+n -> Fokus ins Dateiname-Textfeld
Send($Dateiname) ; Dateinamen eintragen
Send("{ENTER}") ; Eingabe bestätigen
Sleep(1500) ; Speichervorgang abwarten
Send("{ENTER}") ; zum nächsten Datensatz
Send("{DOWN}") ; eine Zeile runter
MouseClick("left", 100, 440) ; letzte Zeile markieren
Next
bernd670: Beitrag formatiert!