Beiträge von BugFix

**BugFix**

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 ?

[autoit]

#include <GUIConstants.au3>
Dim $StartWinkel = 90, $Child[61], $gr[61] ; seltsamerweise ist 0° = 90
$Form1 = GUICreate("Main", 200, 200, 40, 40)
GUISetState()
CreateChild()

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

Do
$msg = GUIGetMsg()
Until $msg=$GUI_EVENT_CLOSE

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

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

[/autoit]

**BugFix**

Und dazu eine schöne Weihnachtsgeschichte:

Spoiler anzeigen

Zitat

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?

Alles anzeigen

Ach ja, wer noch die Tradition von Gedichten unterm Weihnachtsbaum kennt, für den hab ich hier was schönes gefunden:

Spoiler anzeigen

Zitat

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 Weihnachtszeit

Every 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...

Alles anzeigen

**BugFix**

[autoit]

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

[/autoit]

@Error ist "2"
Zitat Hilfe:

Zitat

2 = $avArray has less than 2 elements or it has more than 1 dimension.

**BugFix**

Du kannst auch erst alle Installpfade in einem eigenen Array sammeln und dann irgendwann später ausführen:

Spoiler anzeigen

[autoit]

#include <GUIConstants.au3>
#include <array.au3>

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

; .....
; .....
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

[/autoit]

**BugFix**

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.

**BugFix**

In Abwandlung des Bsp. aus der Hilfe:

[autoit]

If Not ProcessExists("notepad.exe") Then
; starte anderes Programm
EndIf

[/autoit]

**BugFix**

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

[/autoit]

**BugFix**

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:

[autoit]

If MsgBox(262694, '', '') = 2/10/11 Then ; Abbrechen/Wiederholen/Weiter

[/autoit]

Spoiler anzeigen

[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

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

$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)

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

While 1
Sleep(100)
WEnd

Func AForm1Close()
Exit
EndFunc

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

Func ARadio1Click()
_Disable_2_3()
_IsChecked()
_TextBox()
EndFunc

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

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

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

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

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

Func ARadio20Click()
_CodeMost()
EndFunc

Func ARadio21Click()
_CodeMost()
EndFunc

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

Func _CodeSome()
_Enable_2_3()
_Disable_3()
_IsChecked()
_TextBox()
EndFunc

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

Func _CodeMost()
_IsChecked()
_TextBox()
_Enable_2_3()
EndFunc

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

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

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

Func _Disable_3()
GUICtrlSetState($aRadio[14][0], BitOR($GUI_DISABLE, $GUI_UNCHECKED))
GUICtrlSetState($aRadio[12][0], $GUI_CHECKED)
EndFunc

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

Func _Enable_2_3()
GUICtrlSetState($aRadio[13][0], $GUI_ENABLE)
GUICtrlSetState($aRadio[14][0], $GUI_ENABLE)
EndFunc

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

Func _Enable_3()
GUICtrlSetState($aRadio[14][0], $GUI_ENABLE)
EndFunc

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

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

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

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

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

Func _IsChecked()
$sum = 0
For $i = 0 To 20
If GUICtrlRead($aRadio[$i][0]) = 1 Then $sum += $aRadio[$i][1]
Next
EndFunc

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

Func _TextBox()
GUICtrlSetData($MsgBox, "MsgBox(" & $sum & ", 'title', 'text')")
EndFunc

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

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

[/autoit]

**BugFix**

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

[/autoit]

**BugFix**

Zitat

Button Pressed Return Value
OK 1
CANCEL 2
ABORT 3
RETRY 4
IGNORE 5
YES 6
NO 7
TRY AGAIN ** 10
CONTINUE ** 11

Alles anzeigen

Soweit die Hilfe zu den Rückgabewerten der MsgBox-Buttons.

**BugFix**

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

[/autoit]

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

**BugFix**

Zitat

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

**BugFix**

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!

**BugFix**

Code

dateiname /p

oder auch probiert

Code

dateiname -p

**BugFix**

Ich 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.

[autoit]

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

[/autoit]

**BugFix**

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:

**BugFix**

Und hier noch ne Variante, falls die *.txt unterhalb eines Startpfades in diversen Ordnern liegen, also rekursiv gesucht werden müssen.

Spoiler anzeigen

[autoit]

Dim $Pfad_txt = "C:\Files" ; Startpfad für rekursive Suche nach TXT-Files
Dim $Pfad_Backup = "C:\Backup\" ; Wurzelpfad für Sicherungen
Dim $SaveDir
Dim $arTXT ; Array mit den ermittelten TXT-Files

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

$arTXT = _GetFileList($Pfad_txt, "*.txt")
If IsArray($arTXT) Then
$SaveDir = DirCreate($Pfad_Backup & @YEAR & "-" & @MON & "-" & @MDAY)
For $i = 1 To $arTXT[0]
$var = StringSplit($arTXT[$i], "\")
FileMove($arTXT[$i], $SaveDir & "\" & $var[$var[0]]) ; Datei in Backupordner verschieben
Next
EndIf

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

; AutoIt Version: 3.0
; Language: English
; Platform: Win9x/NT/XP
; Author: jos van der Zande
;
; Find files in directory and subdirectories and return it in an Array, all coded in Autoit3
;
; _GetFileList($DIR, $FILEMASK, 1) ; _GetFileList($DIR, $FILEMASK [, Flag]) Flag GetFile(Default) = 0 , GetDirOnly = 1
;********************************************************************************
;Recursive search for filemask
;********************************************************************************

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

Func _GetFileList($T_DIR,$T_MASK,$DIR_ONLY=0)
Dim $N_DIRNAMES[200000] ; max number of directories that can be scanned
Local $N_DIRCOUNT = 0
Local $N_FILE
Local $N_SEARCH
Local $N_TFILE
Local $N_OFILE
Local $T_FILENAMES
Local $T_FILECOUNT
Local $T_DIRCOUNT = 1
Local $FILEMASK
; check Filemask \ for empty File-Array by GetDirOnly
If $FILEMASK = "n" Then $FILEMASK = "*.no"
; remove the end \ If specified
If StringRight($T_DIR,1) = "\" Then $T_DIR = StringTrimRight($T_DIR,1)
$N_DIRNAMES[$T_DIRCOUNT] = $T_DIR
; Exit if base dir doesn't exists
If Not FileExists($T_DIR) Then Return 0
; keep on looping until all directories are scanned
While $T_DIRCOUNT > $N_DIRCOUNT
$N_DIRCOUNT = $N_DIRCOUNT + 1
; find all subdirs in this directory and save them in a array
$N_SEARCH = FileFindFirstFile($N_DIRNAMES[$N_DIRCOUNT] & "\*.*")
While 1
$N_FILE = FileFindNextFile($N_SEARCH)
If @error Then ExitLoop
; skip these references
If $N_FILE = "." Or $N_FILE = ".." Then ContinueLoop
$N_TFILE = $N_DIRNAMES[$N_DIRCOUNT] & "\" & $N_FILE
; if Directory than add to the list of directories to be processed
If StringInStr(FileGetAttrib( $N_TFILE ),"D") > 0 Then
$T_DIRCOUNT = $T_DIRCOUNT + 1
$N_DIRNAMES[$T_DIRCOUNT] = $N_TFILE
EndIf
Wend
FileClose($N_SEARCH) ; find all Files that mtach the MASK
$N_SEARCH = FileFindFirstFile($N_DIRNAMES[$N_DIRCOUNT] & "\" & $T_MASK )
If $N_SEARCH = -1 Then ContinueLoop
While 1
$N_FILE = FileFindNextFile($N_SEARCH)
If @error Then ExitLoop
; skip these references
If $N_FILE = "." Or $N_FILE = ".." Then ContinueLoop
$N_TFILE = $N_DIRNAMES[$N_DIRCOUNT] & "\" & $N_FILE
; if Directory than add to the list of directories to be processed
If StringInStr(FileGetAttrib( $N_TFILE ),"D") = 0 Then
$T_FILENAMES = $T_FILENAMES & $N_TFILE & @CR
$T_FILECOUNT = $T_FILECOUNT + 1
;MsgBox(0,'filecount ' & $T_FILECOUNT ,$N_TFILE)
EndIf
Wend
FileClose($N_SEARCH)
Wend
If $DIR_ONLY = 0 Then
$T_FILENAMES = StringTrimRight($T_FILENAMES,1)
$N_OFILE = StringSplit($T_FILENAMES,@CR)
Return( $N_OFILE )
Else
ReDim $N_DIRNAMES[$N_DIRCOUNT+1]
$N_DIRNAMES[0] = $N_DIRCOUNT
Return $N_DIRNAMES
EndIf
EndFunc ;==>_GetFileList

[/autoit]

EDIT:
Man soll nicht unbedingt nach 12 Std. Arbeit versuchen Programmierprobleme zu lösen , da war ich etwas unaufmerksam und ein Fehler hat sich eingeschlichen.
Hab ihn hiermit geBugFixt

**BugFix**

Du machst nichts falsch - ist wie beim Highlander: Es kann nur einen geben!
Wieso möchtest du zeitgleich 4 Tooltipps anzeigen?

Edit:
Egal warum, Lösungsvorschlag - 4 Popupwindows, die kannst du zeitgleich positionieren, mit OnTop-Style sind sie auch garantiert im Vordergrund.

**BugFix**

Zitat

Wenn man einmal weiß was es ist klickt man nicht mehr hin...
Was für einen SINN hat die Werbung, wenn KEINER VON UNS draufklickt?

Naja, ich habe ein bischen Probleme mit deiner Einstellung zur Werbung bzw. mehr damit, wie du sie verkaufen willst.

Nachdem, was du schreibst, hört sich das so an, als ob du User auf die Werbelinks locken willst! Und das ist tiefstes Bildzeitungsniveau.

Ich denke, jeder Mensch soll bewusst handeln und nicht manipuliert werden. Soviel Achtung und Würde hat jeder verdient.

zu deiner Abstimmung:
[X] Ich bevorzuge die Variante mit der Box
[] Ich bevorzuge die Zwischen-Posts
[] Ich hasse Werbung, weg damit!
[] kann beides bleiben!

**BugFix**

Zitat

Was hast du dagegen dass die Admins etwas bekommen

Woraus schlussfolgerst du das?

Ich habe nichts gegen Werbung, wenn sie unaufdringlich ist. Unaufdringlich sehe ich so: etwas, dass mir nicht sofort ins Auge springt. Sowas finde ich akzeptabel.

Aber da werden die Meinungen sicher immer auseinander gehen.

EDIT: Wow, die Werbeecke gefällt mir. Das hat was. Super Idee find ich.

Beiträge von BugFix

Grafik mit Autoit

Frohe Weihnachten

Suche in Quelltext

In Variablen Namen von UDFs speichern, die später ausgeführt werden?

MsgBox - alle Parameter auf einen Blick

Programmaufruf vermeiden

In Variablen Namen von UDFs speichern, die später ausgeführt werden?

MsgBox - alle Parameter auf einen Blick

Ja/Nein-Klick-Überprüfen

Ja/Nein-Klick-Überprüfen

Bug? No matching EndFunc; Aber es ist 100% da!

Command Line Parameters

Command Line Parameters

Command Line Parameters

Command Line Parameters

HAPPY BIRTHDAY weedhead

backup mit ordner erstellung

mehrere ToolTip anzeigen

Werbung die 2e

Werbung?