Nutze den ClassName stattdessen.
"classname=" matches a window based on its classname. For example to identify a window that has the classname "MYCLASS1" then you would use "classname=MYCLASS1" for the title parameter.
EDIT: 
Immer ist pee schneller, selbst einen Tag vor Heiligabend.
Mit GUICtrlSetColor() kann ich die Farbe für das Grafikcontrol festlegen. Grafikelemente werden mit GUICtrlSetGraphic(-1,$GUI_GR_COLOR, color, backcolor) definiert.
Tja, nun kommt der nächste Punkt.
Ich bekomme einfach keine Farbe in meine Zeichnung. Die Grafik als Träger der Zeichnung kann ich einfärben. Aber weiter komme ich nicht.
Ich finde auch keinen Unterschied zur Syntax in der Hilfe. Kopiere ich allerdings einen Grafikblock aus dem Hilfecode in mein Beispiel rein, läufts dort auch nicht.
Also, wo ist hier der Fehler?
#include <GUIConstants.au3>
Dim $StartWinkel = 90, $Child[61], $gr[61], $kreis ; 0° = 90
Dim $navajowhite = 0xFFDEAD, $royalblue = 0x4169E1, $black = 0x000000, $white = 0xFFFFFF, $silver = 0xC0C0C0
$Form1 = GUICreate("Main", 200, 200, -1, -1)
GUISetState()
CreateChild()
Do
$msg = GUIGetMsg()
Until $msg=$GUI_EVENT_CLOSE
Func CreateChild()
$kreis = GUICtrlCreateGraphic(0, 0, 200, 200)
GUICtrlSetBkColor(-1,$navajowhite) ; funktioniert
GUICtrlSetColor(-1,$silver) ; funktioniert
GUICtrlSetGraphic(-1,$GUI_GR_ELLIPSE, 40, 40, 120, 120) ; Kreis: x, y = Schnittpunkt Tangenten 0° mit 270°
GUICtrlSetGraphic(-1,$GUI_GR_COLOR, $black, $silver) ; keine Wirkung
For $i = 0 To 60
$gr[$i] = GUICtrlCreateGraphic(0, 0, 200, 200)
GUICtrlSetGraphic($gr[$i], $GUI_GR_PIE, 100, 100, 60, $StartWinkel, 360 -($i*6)) ; Teilkreis: x, y = Mittelpunkt
GUICtrlSetGraphic($gr[$i], $GUI_GR_COLOR, $royalblue, $navajowhite) ; keine Wirkung
Sleep(100)
If $i > 0 Then GUICtrlDelete($gr[$i-1])
Next
EndFunc
Vielen Dank jonk.
Leider ist die Hilfe zu diesem Thema eigentlich nur eine Syntaxbeschreibung.
Wenn ich es erstmal selbst kapiert habe 
werde ich hierzu für die deutsche Übersetzung mal eine vllt. verständlichere Anleitung erstellen.
Hi,
ich versuch mich gerade mal den Grafikmöglichkeiten in Autoit.
Als erstes wollte ich mich mal an die Grundlagen für eine Analoguhr heranwagen. Laut Hilfe soll man nicht die Parameter von Grafiken verändern, sondern für jeden Zustand eine eigene Grafik anlegen.
Das hab ich getan, funktioniert auch. Aber ich will innerhalb der Schleife die "verbrauchte" Grafik löschen (sonst liegen ja 60 übereinander) - und das funzt nicht .
Oder gibt es noch eine andere Möglichkeit "bewegliche" Grafiken darzustellen?
Was ich auch nicht verstehe - wieso ist beim PIE der Startwert für den 0°-Winkel 90 und nicht 0 ?
#include <GUIConstants.au3>
Dim $StartWinkel = 90, $Child[61], $gr[61] ; seltsamerweise ist 0° = 90
$Form1 = GUICreate("Main", 200, 200, 40, 40)
GUISetState()
CreateChild()
Do
$msg = GUIGetMsg()
Until $msg=$GUI_EVENT_CLOSE
Func CreateChild()
For $i = 0 To 60
If $i > 0 Then GUIDelete($Child[$i] -1) ; völlig wirkungslos ???
$Child[$i] = GUICreate("Child " & $i)
$gr[$i] = GUICtrlCreateGraphic(20, 20)
GUICtrlSetGraphic(-1, $GUI_GR_PIE, 50, 50, 40, $StartWinkel, 360 -($i*6))
GUISetState()
Sleep(100)
Next
EndFunc
Und dazu eine schöne Weihnachtsgeschichte:
30 Tage bis zum Wahnsinn - Der Schnee
Es schneit ...
8. Dezember:
Es hat angefangen zu schneien. Der erste Schnee in diesem Jahr.
Meine Frau und ich haben unsere Cocktails genommen und stundenlang am Fenster gesessen und zugesehen wie riesige, weiße Flocken vom Himmel herunter schweben. Es sah aus wie im Märchen. So romantisch - wir fühlten uns wie frisch verheiratet.
Ich liebe Schnee.9. Dezember:
Als wir wach wurden, hatte eine riesige, wunderschöne Decke aus weißem Schnee jeden Zentimeter der Landschaft zugedeckt. Was für ein phantastischer Anblick! Kann es einen schöneren Platz auf der Welt geben? Hierher zu ziehen war die beste Idee, die ich je in meinem Leben hatte. Habe zum ersten Mal seit Jahren wieder Schnee geschaufelt und fühlte mich wieder wie ein kleiner Junge. Habe die Einfahrt und den Bürgersteig freigeschaufelt. Heute Nachmittag kam der Schneepflug vorbei und hat den Bürgersteig und die Einfahrt wieder zugeschoben, also holte ich die Schaufel wieder raus.
Was für ein tolles Leben!12. Dezember:
Die Sonne hat unseren ganzen schönen Schnee geschmolzen. Was für eine Enttäuschung. Mein Nachbar sagt, dass ich mir keine Sorgen machen soll, wir werden definitiv eine weiße Weihnacht haben. Kein Schnee zu Weihnachten wäre schrecklich! Bob sagt, dass wir bis zum Jahresende so viel Schnee haben werden, dass ich nie wieder Schnee sehen will. Ich glaube nicht, dass das möglich ist.
Bob ist sehr nett - ich bin froh, dass er unser Nachbar ist.14. Dezember:
Schnee, wundervoller Schnee! 30 cm letzte Nacht. Die Temperatur ist auf -20 Grad gesunken. Die Kälte lässt alles glitzern. Der Wind nahm mir den Atem, aber ich habe mich beim Schaufeln aufgewärmt. Das ist das Leben! Der Schneepflug kam heute nachmittag zurück und hat wieder alles zugeschoben. Mir war nicht klar, dass ich soviel würde schaufeln müssen, aber so komme ich wieder in Form.
Wünschte ich würde nicht so pusten und schnaufen.15. Dezember:
60 cm Vorhersage. Habe meinen Kombi verscheuert und einen Jeep gekauft. Und Winterreifen für das Auto meiner Frau und zwei Extra-Schaufeln. Habe den Kühlschrank aufgefüllt. Meine Frau will einen Holzofen, falls der Strom ausfällt.
Das ist lächerlich - schließlich sind wir nicht in Alaska.16. Dezember:
Eissturm heute Morgen. Bin in der Einfahrt auf den Ars..*patsch* gefallen, als ich Salz streuen wollte. Tut höllisch weh.
Meine Frau hat eine Stunde gelacht. Das finde ich ziemlich grausam.17. Dezember:
Immer noch weit unter Null. Die Strassen sind zu vereist, um irgendwohin zu kommen. Der Strom war 5 Stunden weg. Musste mich in Decken wickeln, um nicht zu erfrieren. Kein Fernseher. Nichts zu tun als meine Frau anzustarren und zu versuchen, sie zu irritieren. Glaube, wir hätten einen Holzofen kaufen sollen, würde das aber nie zugeben. Ich hasse es, wenn sie recht hat!
Ich hasse es, in meinen eigenen Wohnzimmer zu erfrieren!20. Dezember:
Der Strom ist wieder da, aber noch mal 40 cm von dem verdammten Zeug letzte Nacht! Noch mehr schaufeln. Hat den ganzen Tag gedauert.
Der beschissene Schneepflug kam zweimal vorbei. Habe versucht eines der Nachbarskinder zum Schaufeln zu überreden. Aber die sagen, sie hätten keine Zeit, weil sie Hockey spielen müssen. Ich glaube, dass die lügen.
Wollte eine Schneefräse im Baumarkt kaufen. Die hatten keine mehr. Kriegen erst im März wieder welche rein. Ich glaube, dass die lügen. Bob sagt, dass ich schaufeln muss oder die Stadt macht es und schickt mir die Rechnung. Ich glaube, dass er lügt.22. Dezember:
Bob hatte recht mit weißer Weihnacht, weil heute Nacht noch mal 30 cm von dem weißen Zeug gefallen ist und es ist so kalt, dass es bis August nicht schmelzen wird. Es hat 45 Minuten gedauert, bis ich fertig angezogen war zum Schaufeln und dann musste ich pinkeln. Als ich mich schließlich ausgezogen, gepinkelt und wieder angezogen hatte, war ich zu müde zum Schaufeln. Habe versucht, für den Rest des Winters Bob anzuheuern, der eine Schneefräse an seinem Lastwagen hat, aber er sagt, dass er zu viel zu tun hat.
Ich glaube, dass der Wichser lügt.23. Dezember:
Nur 10 cm Schnee heute. Und es hat sich auf 0 Grad erwärmt. Meine Frau wollte, dass ich heute das Haus dekoriere. Ist die bekloppt ? Ich habe keine Zeit - ich muss SCHAUFELN !!! Warum hat sie es mir nicht schon vor einem Monat gesagt? Sie sagt, sie hat, aber ich glaube, dass sie lügt.24. Dezember:
20 cm. Der Schnee ist vom Schneepflug so fest zusammengeschoben, dass ich die Schaufel abgebrochen habe. Dachte ich kriege einen Herzanfall. Falls ich jemals den Ars..*patsch* kriege, der den Schneepflug fährt, ziehe ich ihn an seinen Eiern durch den Schnee. Ich weis genau, dass er sich hinter der Ecke versteckt und wartet bis ich mit dem Schaufeln fertig bin. Und dann kommt er mit 150 km/h die Strasse runtergerast und wirft tonnenweise Schnee auf die Stelle, wo ich gerade war. Heute Nacht wollte meine Frau mit mir Weihnachtslieder singen und Geschenke auspacken, aber ich hatte keine Zeit. Musste nach dem Schneepflug Ausschau halten.25. Dezember:
Frohe Weihnachten. 60 Zentimeter mehr von der !*?#@$. Eingeschneit.
Der Gedanke an Schneeschaufeln lässt mein Blut kochen. Gott, ich hasse Schnee! Dann kam der Schneepflugfahrer vorbei und hat nach einer Spende gefragt. Ich hab ihm meine Schaufel über den Kopf gezogen. Meine Frau sagt, dass ich schlechte Manieren habe. Ich glaube, dass sie eine Idoit ist. Wenn ich mir noch einmal Wolfgang Petry anhören muss, werde ich sie umbringen.26. Dezember:
Immer noch eingeschneit. Warum um alles in der Welt sind wir hierher gezogen? Es war alles IHRE Idee.
Sie geht mir echt auf die Nerven.27. Dezember:
Die Temperatur ist auf -30 Grad gefallen und die Wasserrohre sind eingefroren.28. Dezember:
Es hat sich auf -5 Grad erwärmt. Immer noch eingeschneit.
DIE ALTE MACHT MICH VERRÜCKT !!!29. Dezember:
Noch mal 30 cm. Bob sagt, dass ich das Dach freischaufeln muss, oder es wird einstürzen. Das ist das Dämlichste was ich je gehört habe.
Für wie blöd hält der mich eigentlich?30. Dezember:
Das Dach ist eingestürzt. Der Schneepflugfahrer verklagt mich auf 500.000 ÖS Schmerzensgeld.
Meine Frau ist zu ihrer Mutter gefahren. 25 cm vorhergesagt.31. Dezember:
Habe den Rest vom Haus angesteckt. Nie mehr Schaufeln.8. Januar:
Mir geht es gut.Ich mag die kleinen Pillen, die sie mir dauernd geben.
Warum bin ich an das Bett gefesselt?
Ach ja, wer noch die Tradition von Gedichten unterm Weihnachtsbaum kennt, für den hab ich hier was schönes gefunden:
When the snow falls wunderbar
And the children happy are,
When the Glatteis on the street,
And we all a Glühwein need,
Then you know, es ist soweit:
She is here, the WeihnachtszeitEvery Parkhaus ist besetzt,
Weil die people fahren jetzt
All to Kaufhof, Mediamarkt,
Kriegen nearly Herzinfarkt.
Shopping hirnverbrannte things
And the Christmasglocke rings.Merry Christmas, merry Christmas,
Hear the music, see the lights,
Frohe Weihnacht, Frohe Weihnacht,
Merry Christmas allerseits...Mother in the kitchen bakes
Schoko-, Nuss- and Mandelkeks
Daddy in the Nebenraum
Schmucks a Riesen-Weihnachtsbaum
He is hanging auf the balls,
Then he from the Leiter falls...Finally the Kinderlein
To the Zimmer kommen rein
And es sings the family
Schauerlich: "Oh, Chistmastree!"
And the jeder in the house
Is packing die Geschenke aus.Merry Christmas, merry Christmas,
Hear the music, see the lights,
Frohe Weihnacht, Frohe Weihnacht,
Merry Christmas allerseits...Mama finds unter the Tanne
Eine brandnew Teflon-Pfanne,
Papa gets a Schlips and Socken,
Everybody does frohlocken.
President speaks in TV,
All around is Harmonie,Bis mother in the kitchen runs:
Im Ofen burns the Weihnachtsgans.And so comes die Feuerwehr
With Tatu, tata daher,
And they bring a long, long Schlauch
An a long, long Leiter auch.
And they schrei - "Wasser marsch!",
Christmas is - now im - Eimer...Merry Christmas, merry Christmas,
Hear the music, see the lights,
Frohe Weihnacht, Frohe Weihnacht,
Merry Christmas allerseits...
Dim $array[1] = ["bla=erster"]
[/autoit]; Array hat nur ein Element!
Du benötigst mindestens zwei Elemente. Sonst findet die Funktion ja keinen Delimiter.
Siehst du auch, wenn du mal den Fehlerwert ausgeben lässt:
[autoit]Dim $sArrayString = _ArrayToString($stringMid, @CRLF)
MsgBox( 4096, "_ArrayToString() Test", "String: " & $sArrayString & @LF & "Error: " & @Error)
Exit
@Error ist "2"
Zitat Hilfe:
2 = $avArray has less than 2 elements or it has more than 1 dimension.
Du kannst auch erst alle Installpfade in einem eigenen Array sammeln und dann irgendwann später ausführen:
#include <GUIConstants.au3>
#include <array.au3>
; .....
; .....
Dim $aCheckBox[5][2], $aInstall
$aCheckBox[0][0] = GUICtrlCreateCheckbox("box1", 10, 10)
$aCheckBox[1][0] = GUICtrlCreateCheckbox("box2", 10, 30)
$aCheckBox[2][0] = GUICtrlCreateCheckbox("box3", 10, 50)
$aCheckBox[3][0] = GUICtrlCreateCheckbox("box4", 10, 70)
$aCheckBox[4][0] = GUICtrlCreateCheckbox("box5", 10, 90)
$aCheckBox[0][1] = "ProgrammPfad1"
$aCheckBox[1][1] = "ProgrammPfad2"
$aCheckBox[2][1] = "ProgrammPfad3"
$aCheckBox[3][1] = "ProgrammPfad4"
$aCheckBox[4][1] = "ProgrammPfad5"
; .....
; .....
For $i = 0 To UBound($aCheckBox)-1
If GUICtrlRead($aCheckBox[$i][0]) = 1 Then
If Not IsArray($aInstall) Then
$aInstall = _ArrayCreate($aCheckBox[$i][1])
Else
_ArrayAdd($aInstall, $aCheckBox[$i][1])
EndIf
EndIf
Next
; ....
; ....
For $i = 0 To UBound($aInstall)-1
RunWait($aInstall[$i])
Next
Ich hab zwar in Scite gesehen, dass es einen CodeWizard gibt, war aber bisher nicht neugierig genug drauf zu klicken.
Naja, Fahrrad nochmal erfunden - aber wenigstens auf deutsch.
In Abwandlung des Bsp. aus der Hilfe:
[autoit]If Not ProcessExists("notepad.exe") Then
; starte anderes Programm
EndIf
Meinst du so etwas:
[autoit]Dim $aCheckBox[5][2]
$aCheckBox[0][0] = GUICtrlCreateCheckbox("box1", 10, 10)
$aCheckBox[1][0] = GUICtrlCreateCheckbox("box2", 10, 30)
$aCheckBox[2][0] = GUICtrlCreateCheckbox("box3", 10, 50)
$aCheckBox[3][0] = GUICtrlCreateCheckbox("box4", 10, 70)
$aCheckBox[4][0] = GUICtrlCreateCheckbox("box5", 10, 90)
$aCheckBox[0][1] = "ProgrammPfad1"
$aCheckBox[1][1] = "ProgrammPfad2"
$aCheckBox[2][1] = "ProgrammPfad3"
$aCheckBox[3][1] = "ProgrammPfad4"
$aCheckBox[4][1] = "ProgrammPfad5"
; .....
; .....
For $i = 0 To UBound($aCheckBox)-1
If GUICtrlRead($aCheckBox[$i][0]) = 1 Then
RunWait($aCheckBox[$i][1])
EndIf
Next
Hi,
ich hab mal ein Proggi gebastelt, in dem über eine GUI alle möglichen Parameter für die MsgBox ausgewählt werden können.
Schauts euch einfach an. Das erklärt mehr als tausend Worte 
Edit:
Noch eine User-freundliche Erweiterung.
Die Parameter der gewählten Box werden in die Zwischenablage kopiert, inklusive aller möglichen Rückgabewerte, plus Erklärung der Rückgabewerte.
Sieht dann so aus:
If MsgBox(262694, '', '') = 2/10/11 Then ; Abbrechen/Wiederholen/Weiter
[/autoit]#include <GUIConstants.au3>
[/autoit] [autoit][/autoit] [autoit]Opt("GUIOnEventMode", 1)
Dim $ret, $sum, $i, $aRadio[21][2]
$aRadio[0][1] = 0
$aRadio[1][1] = 1
$aRadio[2][1] = 2
$aRadio[3][1] = 3
$aRadio[4][1] = 4
$aRadio[5][1] = 5
$aRadio[6][1] = 6
$aRadio[7][1] = 0
$aRadio[8][1] = 16
$aRadio[9][1] = 32
$aRadio[10][1] = 48
$aRadio[11][1] = 64
$aRadio[12][1] = 0
$aRadio[13][1] = 256
$aRadio[14][1] = 512
$aRadio[15][1] = 0
$aRadio[16][1] = 4096
$aRadio[17][1] = 8192
$aRadio[18][1] = 0
$aRadio[19][1] = 262144
$aRadio[20][1] = 524288
$Form1 = GUICreate("MsgBox - alle Parameter", 465, 398, -1, -1)
GUISetOnEvent($GUI_EVENT_CLOSE, "AForm1Close")
$grButton = GUICtrlCreateGroup("Button", 20, 8, 214, 193)
$aRadio[0][0] = GUICtrlCreateRadio("0 OK", 28, 28, 179, 17)
GUICtrlSetState(-1, $GUI_CHECKED)
GUICtrlSetOnEvent(-1, "ARadio1Click")
$aRadio[1][0] = GUICtrlCreateRadio("1 OK und Abbrechen", 28, 52, 185, 17)
GUICtrlSetOnEvent(-1, "ARadio2Click")
$aRadio[2][0] = GUICtrlCreateRadio("2 Abbrechen, Wiederholen, Ignorieren", 28, 76, 201, 17)
GUICtrlSetOnEvent(-1, "ARadio3Click")
$aRadio[3][0] = GUICtrlCreateRadio("3 Ja, Nein und Abbrechen", 28, 100, 183, 17)
GUICtrlSetOnEvent(-1, "ARadio4Click")
$aRadio[4][0] = GUICtrlCreateRadio("4 Ja und Nein", 28, 124, 177, 17)
GUICtrlSetOnEvent(-1, "ARadio5Click")
$aRadio[5][0] = GUICtrlCreateRadio("5 Wiederholen und Abbrechen", 28, 148, 182, 17)
GUICtrlSetOnEvent(-1, "ARadio6Click")
$aRadio[6][0] = GUICtrlCreateRadio("6 Abbrechen, Wiederholen, Weiter", 28, 172, 192, 17)
GUICtrlSetOnEvent(-1, "ARadio7Click")
GUICtrlCreateGroup("", -99, -99, 1, 1)
$grIcon = GUICtrlCreateGroup("Icon", 20, 208, 214, 142)
$aRadio[7][0] = GUICtrlCreateRadio("0 kein Icon", 28, 228, 113, 17)
GUICtrlSetState(-1, $GUI_CHECKED)
GUICtrlSetOnEvent(-1, "ARadio8Click")
$aRadio[8][0] = GUICtrlCreateRadio("16 Stopzeichen", 28, 252, 113, 17)
GUICtrlSetOnEvent(-1, "ARadio9Click")
$aRadio[9][0] = GUICtrlCreateRadio("32 Fragezeichen", 28, 276, 113, 17)
GUICtrlSetOnEvent(-1, "ARadio10Click")
$aRadio[10][0] = GUICtrlCreateRadio("48 Ausrufezeichen", 28, 300, 113, 17)
GUICtrlSetOnEvent(-1, "ARadio11Click")
$aRadio[11][0] = GUICtrlCreateRadio("64 i im Kreis (Infozeichen)", 28, 324, 154, 17)
GUICtrlSetOnEvent(-1, "ARadio12Click")
GUICtrlCreateGroup("", -99, -99, 1, 1)
$grDefault = GUICtrlCreateGroup("Default", 242, 8, 200, 94)
$aRadio[12][0] = GUICtrlCreateRadio("0 Erster Button", 250, 29, 132, 17)
GUICtrlSetState(-1, $GUI_CHECKED)
GUICtrlSetOnEvent(-1, "ARadio13Click")
$aRadio[13][0] = GUICtrlCreateRadio("256 Zweiter Button", 250, 53, 145, 17)
GUICtrlSetOnEvent(-1, "ARadio14Click")
GUICtrlSetState(-1, $GUI_DISABLE)
$aRadio[14][0] = GUICtrlCreateRadio("512 Dritter Button", 250, 77, 114, 17)
GUICtrlSetOnEvent(-1, "ARadio15Click")
GUICtrlSetState(-1, $GUI_DISABLE)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$grModal = GUICtrlCreateGroup("Modal", 242, 107, 200, 94)
$aRadio[15][0] = GUICtrlCreateRadio("0 Anwendung", 250, 128, 162, 17)
GUICtrlSetState(-1, $GUI_CHECKED)
GUICtrlSetOnEvent(-1, "ARadio16Click")
$aRadio[16][0] = GUICtrlCreateRadio("4096 System", 250, 152, 113, 17)
GUICtrlSetOnEvent(-1, "ARadio17Click")
$aRadio[17][0] = GUICtrlCreateRadio("8192 Task", 250, 176, 113, 17)
GUICtrlSetOnEvent(-1, "ARadio18Click")
GUICtrlCreateGroup("", -99, -99, 1, 1)
$grMisc = GUICtrlCreateGroup("Verschiedenes", 242, 208, 200, 94)
$aRadio[18][0] = GUICtrlCreateRadio("0 nichts", 250, 227, 113, 17)
GUICtrlSetState(-1, $GUI_CHECKED)
GUICtrlSetOnEvent(-1, "ARadio19Click")
$aRadio[19][0] = GUICtrlCreateRadio("262144 Attribut top-most", 250, 251, 154, 17)
GUICtrlSetOnEvent(-1, "ARadio20Click")
$aRadio[20][0] = GUICtrlCreateRadio("524288 Titel u. Text rechtsbündig", 250, 275, 185, 17)
GUICtrlSetOnEvent(-1, "ARadio21Click")
GUICtrlCreateGroup("", -99, -99, 1, 1)
$bShow = GUICtrlCreateButton("Zeige MsgBox", 20, 361, 214, 24, 0)
GUICtrlSetOnEvent(-1, "bShowClick")
$MsgBox = GUICtrlCreateInput("MsgBox(0, 'title', 'text')", 242, 328, 200, 21,$ES_CENTER)
GUICtrlSetBkColor(-1, 32250)
$bClip = GUICtrlCreateButton("Kopiere in Zwischenablage", 242, 361, 200, 24, 0)
GUICtrlSetOnEvent(-1, "bClipClick")
GUISetState(@SW_SHOW)
While 1
Sleep(100)
WEnd
Func AForm1Close()
Exit
EndFunc
Func ARadio1Click()
_Disable_2_3()
_IsChecked()
_TextBox()
EndFunc
Func ARadio2Click()
_CodeSome()
EndFunc
Func ARadio3Click()
_Enable_2_3()
_IsChecked()
_TextBox()
EndFunc
Func ARadio4Click()
_CodeMost()
EndFunc
Func ARadio5Click()
_CodeSome()
EndFunc
Func ARadio6Click()
_CodeSome()
EndFunc
Func ARadio7Click()
_CodeMost()
EndFunc
Func ARadio8Click()
_CodeMost()
EndFunc
Func ARadio9Click()
_CodeMost()
EndFunc
Func ARadio10Click()
_CodeMost()
EndFunc
Func ARadio11Click()
_CodeMost()
EndFunc
Func ARadio12Click()
_CodeMost()
EndFunc
Func ARadio13Click()
_CodeMost()
EndFunc
Func ARadio14Click()
_CodeMost()
EndFunc
Func ARadio15Click()
_CodeMost()
EndFunc
Func ARadio16Click()
_CodeMost()
EndFunc
Func ARadio17Click()
_CodeMost()
EndFunc
Func ARadio18Click()
_CodeMost()
EndFunc
Func ARadio19Click()
_CodeMost()
EndFunc
Func ARadio20Click()
_CodeMost()
EndFunc
Func ARadio21Click()
_CodeMost()
EndFunc
Func _CodeSome()
_Enable_2_3()
_Disable_3()
_IsChecked()
_TextBox()
EndFunc
Func _CodeMost()
_IsChecked()
_TextBox()
_Enable_2_3()
EndFunc
Func _Disable_2_3()
GUICtrlSetState($aRadio[13][0], BitOR($GUI_DISABLE, $GUI_UNCHECKED))
GUICtrlSetState($aRadio[14][0], BitOR($GUI_DISABLE, $GUI_UNCHECKED))
GUICtrlSetState($aRadio[12][0], $GUI_CHECKED)
EndFunc
Func _Disable_3()
GUICtrlSetState($aRadio[14][0], BitOR($GUI_DISABLE, $GUI_UNCHECKED))
GUICtrlSetState($aRadio[12][0], $GUI_CHECKED)
EndFunc
Func _Enable_2_3()
GUICtrlSetState($aRadio[13][0], $GUI_ENABLE)
GUICtrlSetState($aRadio[14][0], $GUI_ENABLE)
EndFunc
Func _Enable_3()
GUICtrlSetState($aRadio[14][0], $GUI_ENABLE)
EndFunc
Func bShowClick()
$ret = MsgBox($sum, "Titel", "Test MsgBox")
$text1 = "gedrückter Button: "
$text2 = "Rückgabewert: " & $ret
Switch $ret
Case 1
MsgBox(0, $text1 & "OK", $text2)
Case 2
MsgBox(0, $text1 & "ABBRECHEN", $text2)
Case 3
MsgBox(0, $text1 & "ABBRECHEN", $text2)
Case 4
MsgBox(0, $text1 & "WIEDERHOLEN", $text2)
Case 5
MsgBox(0, $text1 & "IGNORIEREN", $text2)
Case 6
MsgBox(0, $text1 & "JA", $text2)
Case 7
MsgBox(0, $text1 & "NEIN", $text2)
Case 10
MsgBox(0, $text1 & "WIEDERHOLEN", $text2)
Case 11
MsgBox(0, $text1 & "WEITER", $text2)
EndSwitch
EndFunc
Func bClipClick()
For $i = 0 To 6
If GUICtrlRead($aRadio[$i][0]) = 1 Then ExitLoop
Next
Switch $i
Case 0
ClipPut("MsgBox(" & $sum & ", '', '')")
Case 1
ClipPut("If MsgBox(" & $sum & ", '', '') = 1/2 Then ; OK/Abbrechen")
Case 2
ClipPut("If MsgBox(" & $sum & ", '', '') = 3/4/5 Then ; Abbrechen/Wiederholen/Ignorieren")
Case 3
ClipPut("If MsgBox(" & $sum & ", '', '') = 6/7/2 Then ; Ja/Nein/Abbrechen")
Case 4
ClipPut("If MsgBox(" & $sum & ", '', '') = 6/7 Then ; Ja/Nein")
Case 5
ClipPut("If MsgBox(" & $sum & ", '', '') = 4/2 Then ; Wiederholen/Abbrechen")
Case 6
ClipPut("If MsgBox(" & $sum & ", '', '') = 2/10/11 Then ; Abbrechen/Wiederholen/Weiter")
EndSwitch
_ToolTipMouseExit(ClipGet() & @LF & "wurde in die Zwischenablage kopiert.", 4000, -1, -1, "Zwischenablage", 1, 3)
EndFunc
Func _IsChecked()
$sum = 0
For $i = 0 To 20
If GUICtrlRead($aRadio[$i][0]) = 1 Then $sum += $aRadio[$i][1]
Next
EndFunc
Func _TextBox()
GUICtrlSetData($MsgBox, "MsgBox(" & $sum & ", 'title', 'text')")
EndFunc
Func _ToolTipMouseExit($TEXT, $TIME=-1, $x=-1, $y=-1, $TITLE='', $ICON=0, $OPT='')
If $TIME = -1 Then $TIME = 3000
Local $start = TimerInit(), $pos0 = MouseGetPos()
If ($x = -1) Or ($y = -1) Then
ToolTip($TEXT, $pos0[0], $pos0[1], $TITLE, $ICON, $OPT)
Else
ToolTip($TEXT, $x, $y, $TITLE, $ICON, $OPT)
EndIf
Do
Sleep(50)
$pos = MouseGetPos()
Until (TimerDiff($start) > $TIME) Or _
(Abs($pos[0] - $pos0[0]) > 10 Or _
Abs($pos[1] - $pos0[1]) > 10)
ToolTip('')
EndFunc ;_ToolTipMouseExit
so, z.B.
[autoit]$tmp = MsgBox(3, '', "BlaBla") ; Yes, No, Cancel
Switch $tmp
Case 6 ; JA
; Code für JA
Case 7 ; NEIN
; Code für NEIN
Case 2 ; CANCEL
Exit
EndSwitch
Button Pressed Return Value
OK 1
CANCEL 2
ABORT 3
RETRY 4
IGNORE 5
YES 6
NO 7
TRY AGAIN ** 10
CONTINUE ** 11
Soweit die Hilfe zu den Rückgabewerten der MsgBox-Buttons.
Starte das Programm:
[autoit]HotKeySet("^m", "STRG_m")
HotKeySet("^q", "STRG_q")
While 1
sleep(50)
WEnd
Func STRG_m()
$pos = MouseGetPos()
MsgBox(0, "Mouse x,y:", $pos[0] & "," & $pos[1])
EndFunc
Func STRG_q()
HotKeySet("^m")
HotKeySet("^q")
Exit
EndFunc
und fahr die Ecken deines Rechtecks ab. Mit STRG+m holst du dir die Koordinaten.
EDIT:
ah, jetzt kapier ich deine Frage!
Also Parameter sind: left, top, right, bottom
Du brauchst also:
Ecke links oben: left = x / top = y
Ecke rechts unten: rechts = x / bottom = y
vielleicht kannst du noch ergänzen, wie du Scite dazu bekommen hast.
Das hab ich nun auch entdeckt:
- im Script "cmdlineselect" + Leerzeichen oder
- STRG+SHIFT+R und in der Combobox "cmdlineselect" wählen
Oh shit, die Macht der Gewohnheit. In den meisten Proggis werden die Parameter mit / oder - gesetzt.
Hab immer nur die Auswertung der Parameter berücksichtigt, aber nie den Aufruf. :hammer:
Also Danke!
dateiname /p
oder auch probiert
dateiname -pIch steh grad völlig neben mir. Hab ich Tomaten auf den Augen?
Vielleicht könnt ihr mir sagen was hier nicht stimmt.
Die einzig korrekte Aktion ist, wenn ich ohne Parameter aufrufe. Sonst bekomme ich immer die Meldung für Falscher Parameter.
If $CmdLine[0] > 0 Then
Select
Case $CmdLine[1] = "p"
MsgBox(0, '', "Parameter p")
Case $CmdLine[1] = "q"
MsgBox(0, '', "Parameter q")
Case Else
MsgBox(0, '', "Falscher Parameter")
EndSelect
Else
MsgBox(0, '', "Kein Parameter")
EndIf
Hallo weedhead,
zu deiner schönen Schnapszahl wünsche ich dir alles Gute.
Ich hab schon mal für dich eine [Blockierte Grafik: http://img-up.net/thumbs/KerzeZf_.jpg] angezündet.
Und da ich grad dabei bin, hab ich noch schnell ein Glas [Blockierte Grafik: http://img-up.net/thumbs/GlasBierSCbhl.jpg] bereitgestellt.
Viel Spaß beim Feiern
:birthday: