Beiträge von Ilse

Ilse

Hallo,

Ich komme mit meinem Programm irgendwie nicht richtig weiter.
Habe meine Versuche alle wieder entfernt.

Folgendes sollte passieren:

Wenn man auf Start klickt, sollte der Loop endlos durchlaufen.

1. Das Feld JAHR wird markiert (Dauer 5 Sekunden), zum nächsten Feld gehen...
2. Das Feld Ordner wird markiert (Dauer 5 Sekunden) u.s.w.

Wenn man nun RETURN drückt sollen die Felder gelesen werden und die
Function Eintrag startet...
Wenn die Function fertig ist, geht's wieder mit Jahr los...

Spoiler anzeigen

[autoit]

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

[/autoit] [autoit][/autoit] [autoit]

$Form1_1 = GUICreate("Form1", 615, 484, 192, 124)
$txtJahr = GUICtrlCreateInput("2014", 128, 48, 49, 32)
GUICtrlSetFont(-1, 16, 400, 0, "MS Sans Serif")
$txtOrdner = GUICtrlCreateInput("", 128, 112, 441, 32)
GUICtrlSetFont(-1, 16, 400, 0, "MS Sans Serif")
$txtDatei = GUICtrlCreateInput("", 128, 168, 441, 32)
GUICtrlSetFont(-1, 16, 400, 0, "MS Sans Serif")
$txtAdresse = GUICtrlCreateInput("", 128, 224, 441, 32)
GUICtrlSetFont(-1, 16, 400, 0, "MS Sans Serif")
$txtKopie = GUICtrlCreateInput("", 128, 352, 441, 32)
GUICtrlSetFont(-1, 16, 400, 0, "MS Sans Serif")
$Label1 = GUICtrlCreateLabel("Jahr:", 72, 48, 45, 28)
GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
$lblOrdner = GUICtrlCreateLabel("Ordner", 48, 112, 64, 28, $SS_RIGHT)
GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
$lblDatei = GUICtrlCreateLabel("Datei", 69, 167, 46, 28, $SS_RIGHT)
GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
$lblAdresse = GUICtrlCreateLabel("Adresse", 38, 232, 74, 28, $SS_RIGHT)
GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
$lblKopie = GUICtrlCreateLabel("Kopie", 56, 354, 53, 28, $SS_RIGHT)
GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
$btnEnde = GUICtrlCreateButton("beenden", 496, 416, 75, 25)
$btnStart = GUICtrlCreateButton("Start", 496, 40, 75, 41)
GUICtrlSetFont(-1, 16, 400, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Case $txtJahr
;Send ("{Tab}")
Case $txtOrdner
Case $txtDatei
Case $txtAdresse
Case $txtKopie

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Case $btnEnde
Exit
Case $btnStart
EndSwitch
WEnd

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Func Eintrag()

;Code....

;fertig...
;Alle Felder leeren, Loop läuft weiter

endfunc

[/autoit]

EDIT:

Spoiler anzeigen

[autoit]

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

[/autoit] [autoit][/autoit] [autoit]

$Form1_1 = GUICreate("Form1", 615, 484, 192, 124)
$txtJahr = GUICtrlCreateInput("2014", 128, 48, 49, 32)
GUICtrlSetFont(-1, 16, 400, 0, "MS Sans Serif")
$txtOrdner = GUICtrlCreateInput("", 128, 112, 441, 32)
GUICtrlSetFont(-1, 16, 400, 0, "MS Sans Serif")
$txtDatei = GUICtrlCreateInput("", 128, 168, 441, 32)
GUICtrlSetFont(-1, 16, 400, 0, "MS Sans Serif")
$txtAdresse = GUICtrlCreateInput("", 128, 224, 441, 32)
GUICtrlSetFont(-1, 16, 400, 0, "MS Sans Serif")
$txtKopie = GUICtrlCreateInput("", 128, 352, 441, 32)
GUICtrlSetFont(-1, 16, 400, 0, "MS Sans Serif")
$Label1 = GUICtrlCreateLabel("Jahr:", 72, 48, 45, 28)
GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
$lblOrdner = GUICtrlCreateLabel("Ordner", 48, 112, 64, 28, $SS_RIGHT)
GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
$lblDatei = GUICtrlCreateLabel("Datei", 69, 167, 46, 28, $SS_RIGHT)
GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
$lblAdresse = GUICtrlCreateLabel("Adresse", 38, 232, 74, 28, $SS_RIGHT)
GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
$lblKopie = GUICtrlCreateLabel("Kopie", 56, 354, 53, 28, $SS_RIGHT)
GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
$btnEnde = GUICtrlCreateButton("beenden", 496, 416, 75, 25)
$btnStart = GUICtrlCreateButton("Start", 496, 40, 75, 41)
GUICtrlSetFont(-1, 16, 400, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Global $Paused
HotKeySet("{PAUSE}", "TogglePause")
HotKeySet("{ESC}", "Terminate")
HotKeySet("{Enter}", "Eintrag")

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

;~ $i = 0
;~ for $i=1 to 3
;~ Send ("{Tab}")
;~ Sleep(2000)
;~ next

[/autoit] [autoit][/autoit] [autoit]

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Case $txtJahr
;Send ("{Tab}")
Case $txtOrdner
Case $txtDatei
Case $txtAdresse
Case $txtKopie

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Case $btnEnde
Exit
Case $btnStart
Send ("{Tab}")
Sleep (2000)

[/autoit] [autoit][/autoit] [autoit]

EndSwitch
Send ("{Tab}")
Sleep (2000)

[/autoit] [autoit][/autoit] [autoit]

WEnd

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Func TogglePause()
$Paused = Not $Paused
While $Paused
Sleep(100)
ToolTip('Script ist pausiert', 0, 0)
WEnd
ToolTip("")
EndFunc ;==>TogglePause

[/autoit] [autoit][/autoit] [autoit]

Func Terminate()
Exit 0
EndFunc ;==>Terminate

[/autoit] [autoit][/autoit] [autoit]

Func Eintrag()
MsgBox(4096, "", "Das ist eine Nachricht.")
EndFunc ;==>ShowMessage

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit]

Wie kann ich verhindern, dass die Buttons im Loop nicht aktiviert werden?
Grüße Ilse

Ilse

Hallo,

ich habe mal folgendes auf einem anderen Rechner probiert:

1. Neuinstallation v. Win 7 / 32 bit
2. Neuinstallation Autoit
3. Neuinstallation Scite

Da funktioniert alles prima.

Meine Frage:

Kann man das nicht irgendwie auf einem 64 bit System konfigurieren, damit das klappt.

Liebe Grüße
Ilse

Ilse

Hallo,

vielleicht kann mir jemand bei dieser Frage helfen.
Ich glaube ich habe irgendwie ein Problem mit den Versionen.

Ich habe Windows 7 /64 bit
Auf meine Platte C habe ich Programme\Autoit3
Dort gibt es einen Ordner SCite. Wenn ich diese Version starte erhalte ich Version 2.5

Dann habe ich den Ordner Programme(x84)
Hier gibt es auch Autoit3 und Autoit-old
In diesem Autoit3 Ordner gibt es auch SCite (die Version 3.3.7
In dem Ordner Extras befindet sich Au3Record und ASWhook.dll

In dem Ordner C:\Program Files\AutoIt3\Extras\Au3Record befinden sich Au3Record u, Au3Record_x64
und eine msvcr100.dll und eine ASWhook.dll

Kann es vielleicht damit zusammenhängen dass die Version SCite 3.3.7 eine falsche Au3Record aufruft?

Ich brauche die Au3Record ganz dringend...

Grüße Ilse

Ilse

Hallo,

auf einmal funktioniert der Au3Recorder nicht mehr!
Ich habe Scite 3.3.7

Als es noch funktioniert hat,
wurde Code generiert

[autoit]

#region ---Au3Recorder generated code Start (v3.3.7.0) ---
;code wurde aufgezeichnet

[/autoit]

nun passiert folgendes:

[autoit]

#region --- Au3Recorder generated code Start (v3.3.9.5 KeyboardLayout=00000407) ---
#endregion --- Au3Recorder generated code End ---

[/autoit]

und es wird nichts mehr aufgezeichnet.

Ilse

Ilse

Merci,

Klappt...
Liebe Grüße
Ilse

Ilse

Hallo,

ich habe ein kleines Problem mit Radiobuttons.

Wenn ich auf meine Buttons klicke
muß ich prüfen welcher Radiobutton gewählt wurde.

Je nachdem wird dann eine Funktion gestartet.

Spoiler anzeigen

[autoit]

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

[/autoit] [autoit][/autoit] [autoit]

$PDF = GUICreate("PDF-Canon-Scan", 551, 581, 530, 188)
$btnRechnung = GUICtrlCreateButton("Rechnung", 32, 152, 187, 73)
GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
$Jahr = GUICtrlCreateInput("2014", 168, 32, 49, 21)
$btnSchreiben = GUICtrlCreateButton("Schreiben", 35, 67, 187, 73)
GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
$btnAblage = GUICtrlCreateButton("Ablage", 30, 232, 187, 73)
GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
;$Group1 = GUICtrlCreateGroup("Scan", 312, 64, 145, 89)
$Radio1 = GUICtrlCreateRadio("Simplex", 321, 87, 113, 17)
GUICtrlSetState(-1, $GUI_CHECKED)
$Radio2 = GUICtrlCreateRadio("Duplex", 319, 115, 113, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Label1 = GUICtrlCreateLabel("Jahr", 136, 32, 24, 17)
$btnexit = GUICtrlCreateButton("beenden", 408, 464, 75, 25)
GUISetState(@SW_SHOW)

[/autoit] [autoit][/autoit] [autoit]

$radioread1 = GUICtrlRead($Radio1)
$radioread2 = GUICtrlRead($Radio2)

[/autoit] [autoit][/autoit] [autoit]

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

[/autoit] [autoit][/autoit] [autoit]

Case $btnRechnung
RG()
Case $btnSchreiben
Case $btnAblage
;Case $Radio1
;Case $Radio2
Case $btnexit
;beenden
EndSwitch
WEnd

[/autoit] [autoit][/autoit] [autoit]

Func RG ()

[/autoit] [autoit][/autoit] [autoit]

If $Radioread1 = $GUI_CHECKED Then
MsgBox(4096,"","Radio1")

[/autoit] [autoit][/autoit] [autoit]

;~ Func _Simplex()
Elseif $Radioread2 = $GUI_CHECKED Then
MsgBox(4096,"","Radio2")
EndIf

[/autoit] [autoit][/autoit] [autoit]

;~ Func _Duplex()

[/autoit] [autoit][/autoit] [autoit]

EndFunc

[/autoit]

Grüße
Ilse

Ilse

Hallo Nemi,

geht beides nicht.

Das Fenster wird nicht aktiviert.

Wenn ich WinActivate vorher aufrufe wird das Fenster aktiv.

Auch das funktioniert nicht

[autoit]

ControlClick("[Class:Canon MP Navigator EX - MX870 series]", "", "", "left", 1, 138, 223)

[/autoit]

merci für deine Mühe

Ilse

Ilse

ich habe gerade einen Screenshot gemacht.
von einem unterfenster v. Canon, geht aber auch nicht.

Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist.

Auch hier wird das Fenster aktiviert, aber kein click ausgeführt.

Ilse

Hallo nemi,

leider nicht...

Ich habe die Daten mit
ControlClick Coords: 26, 25 mit Autoit Info gelesen.

Also

[autoit]

WinActivate ("Canon","")
ControlClick("Canon", "", "", "left", 1,26,25)

[/autoit]

es wird einfach kein Click ausgeführt.
Das Fenster kommt nach vorne, und dann passiert nichts.

Ilse

Hallo,

konnte das Problem mit der neuen SCite Version 3.3.7 lösen.

Achtung nach Record am Ende diese Function einfügen
sonst bekommt man eine Fehlermeldung:

[autoit]

#region --- Internal functions Au3Recorder Start ---
Func _WinwaitActivate($title,$text,$timeout=0)
WinWait($title,$text,$timeout)
If Not WinActive($title,$text) Then WinActivate($title,$text)
WinWaitActive($title,$text,$timeout)
EndFunc
#endregion --- Internal functions Au3Recorder End --

[/autoit]

Bei einer Aufnahme wird die Function nicht erzeugt:
sondern nur:

Spoiler anzeigen

[autoit]

#region ---Au3Recorder generated code Start (v3.3.7.0) ---
_WinWaitActivate("Canon MP Navigator EX - MX870 series","")
MouseClick("left",140,230,1)
#endregion --- Au3Recorder generated code End ---

[/autoit]

Grüße Ilse

Ilse

Hallo,

hat leider auch nichts gebracht.

ABER:

Ich habe einfach mal das probiert:

[autoit]

WinActivate ("Canon","")

[/autoit]

dann kann ich das Fenster aktivieren.

[autoit]

ControlClick("Canon", "", "[CLASS:Button; INSTANCE:9]")

[/autoit]

Controlclick in dieser Variante geht auch nicht!

Ilse

Hallo AyKay,

das habe ich alles bereits versucht!
Geht nicht.
Liegt das vielleicht an Win7 / 64 bit?

[autoit]

WinActivate ("[Class:#32770]")

[/autoit]

Fenster minimiert: nichts passiert!
Fenster offen, mit anderem Fenster verdeckt: nichts passiert!

[autoit]

ControlClick( "[Class:#32770]", "Epp", "Button9"

[/autoit]

geht auch nicht!

Mache ich das z.B. mit einem anderen Fenster (Calc)
dann klappt das!

[autoit]

WinActivate ("[Class:CalcFrame]")

[/autoit]

Ilse

Hallo Oscar,

merci für deine Hilfe.

Leider auch nicht.

Was mir aufgefallen ist:

[autoit]

WinActivate ("[Class:#32770]","")
ControlClick("[Class:#32770]", "", "[CLASS:Button; INSTANCE:9]")

[/autoit]

Wenn ich das Fenster verdecke, und dann das Script starte
sollte doch bei Aktivierung das Fenster oben sein.

Das passiert nicht.

Grüße
Ilse

Ilse

Hallo,

Ich habe folgendes Problem:
wenn ich in Scite den Au3ecorder starte passiert folgendes:

Das Fenster öffnet sich normal, klicke ich aber auf Record dann erhalte ich die Fehlermeldung
DLL load fail

Ich benutze die Windows 64 Bit Version.

habt ihr da eine Idee wie ich dieses Problem lösen kann?

Liebe Grüße
Ilse

Ilse

hm...

komme irgendwie nicht weiter.

[autoit]

WinActivate ("[Class:#32770]", "")
Sleep(1000)
ControlClick("[CLASS:Button; INSTANCE:9]", "", "")

[/autoit]

geht auch nicht.

Also die Buttons werden in Autoit Info (Advanced Mode) alle nummeriert angezeigt

[CLASS:Button; INSTANCE:9]
[CLASS:Button; INSTANCE:10]
[CLASS:Button; INSTANCE:11]

Ilse

Hallo,

ich habe mal wieder ein Problem mit Controlclick.

folgendes: auf meinem Desktop ist ein Fenster mit mehreren Buttons.
(Screenshot Canon)
Ich habe zuerst mit Autoit-Info die Taten des Fensters ausgelesen
und dann die Daten des Buttons.
Leider funktioniert das Skript nicht.

[autoit]

WinActivate ("[Class:#32770]", "")
ControlClick("[CLASS:Button]", "", "INSTANCE:9")

[/autoit]

Das sind die Daten des Fensters Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist.

Das sind die Daten des Buttons Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist.

Liebe Grüße

Ilse

Ilse

Hallo,

...die Arbeit, konnte mich gestern nicht mehr melden.

Das Problem liegt an der txt.Datei.

Es werden z.B. 10 Stellen gefunden die fehlerhafte Trenner haben.
Bei einer Songliste v. 1000 ist das schwer zu entdecken.
Manchmal fehlte der Trenner... oder es sah so aus, dass der Titel fehlte: ...;Abba
und dann wurde keine Liste generiert.

Debugging ... und nun klappt jetzt prima.

DANKE DANKE DANKE

Liebe Grüße
Ilse

Ilse

Hallo,

konnte mich leider jetzt erst wieder melden.
Ich habe mal eine Liste beigefügt die den Fehler verursacht.
...continue Loop habe ich deaktiviert.

Die neue Liste wird nicht generiert!

Erst mal die neue Songdatei Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist.

Hier ist der Code

Spoiler anzeigen

[autoit]

#include <File.au3>
#include <Array.au3>

[/autoit] [autoit][/autoit] [autoit]

Local $aTracks
Local $aArray[1][2]
Local $aArray_BU
Local $aArray2[1][2]
Local $aIndexes
Local $sTracklist
Local $hFile
Local $aSplit

[/autoit] [autoit][/autoit] [autoit]

$sTracklist = FileOpenDialog("Select Tracklist...", @ScriptDir, "Tracklist (*.txt)")
_FileReadToArray($sTracklist, $aTracks)

[/autoit] [autoit][/autoit] [autoit]

For $i = 1 To UBound($aTracks) - 1
;If not Ubound($aSplit) = 3 then continueloop
$aSplit = StringSplit($aTracks[$i], ";")
If $i = 1 Then
$aArray[$i - 1][0] = $aSplit[1] & ";" & $aSplit[2]
$aArray[$i - 1][1] = $aSplit[2]
Else
ReDim $aArray[$i + 1][2]
;If not Ubound($aSplit) = 3 then continueloop
$aArray[$i - 1][0] = $aSplit[1] & ";" & $aSplit[2]
$aArray[$i - 1][1] = $aSplit[2]

[/autoit] [autoit][/autoit] [autoit]

EndIf
Next

[/autoit] [autoit][/autoit] [autoit]

$aArray_BU = $aArray

[/autoit] [autoit][/autoit] [autoit]

For $i = 0 To UBound($aArray) - 1
If $aArray[$i][1] <> "" Then
$aIndexes = _ArrayFindAll($aArray, $aArray[$i][1], 0, 0, 0, 0, 2)

[/autoit] [autoit][/autoit] [autoit]

If UBound($aIndexes) > 0 Then
ReDim $aArray2[$i + 1][2]
$aArray2[$i][0] = $aArray[$i][1]
$aArray2[$i][1] = UBound($aIndexes)
For $y = 0 To UBound($aIndexes) - 1
$aArray[$aIndexes[$y]][0] = ''
$aArray[$aIndexes[$y]][1] = ''
Next
EndIf
EndIf
Next

[/autoit] [autoit][/autoit] [autoit]

_ArraySort($aArray2, 2, 0, 0, 1)

[/autoit] [autoit][/autoit] [autoit]

$hFile = FileOpen("Sortierte_Hitliste.txt", 1)
For $i = 0 To UBound($aArray2) - 1
If $aArray2[$i][1] <> "" Then
$aIndexes = _ArrayFindAll($aArray_BU, $aArray2[$i][0], 0, 0, 0, 0, 2)

[/autoit] [autoit][/autoit] [autoit]

If UBound($aIndexes) > 0 Then
FileWriteLine($hFile, $aArray_BU[$aIndexes[0]][1] & "(" & UBound($aIndexes) & "x)" & @CRLF & "--------------------" & @CRLF)
For $y = 0 To UBound($aIndexes) - 1
FileWriteLine($hFile, $aArray_BU[$aIndexes[$y]][0] & @CRLF)
$aArray_BU[$aIndexes[$y]][0] = ''
$aArray_BU[$aIndexes[$y]][1] = ''
Next
FileWriteLine($hFile, @CRLF)
EndIf
EndIf
Next
FileClose($hFile)

[/autoit]

Die Songliste ist länger, aber schon hier wird kein Ergebnis angezeigt!

Liebe Grüße
Ilse

Ilse

Hallo,

muß mich leider wieder melden.
Ich erhalte bei manchen Listen leider eine Fehlermeldung.

Obwohl die Liste mit Trennern alle gleich aufgebaut sind.

Meldung

Spoiler anzeigen

(22) : ==> Array variable has incorrect number of subscripts or subscript dimension range exceeded.:
$aArray[$i - 1][0] = $aSplit[1] & ";" & $aSplit[2]
$aArray[$i - 1][0] = $aSplit[1] & ";" & ^ ERROR

Weiß jemand wie man diese Fehlermeldung abfangen kann.

Ilse

Ilse

Hallo YaeroxXO,

echt Spitze!
1000 Dank.

Liebe Grüße
Ilse

Beiträge von Ilse

Loop m. Return beenden

Au3Recorder nimmt nicht auf

Au3Recorder nimmt nicht auf

Au3Recorder nimmt nicht auf

Radio Button

Radio Button

Controlclick Problem

Controlclick Problem

Controlclick Problem

Au3 Recorder Win7 /Scite

Controlclick Problem

Controlclick Problem

Controlclick Problem

Au3 Recorder Win7 /Scite

Controlclick Problem

Controlclick Problem

Songliste bearbeiten

Songliste bearbeiten

Songliste bearbeiten

Songliste bearbeiten