Beiträge von x0r
-
-
ah ok, dann ist das kein "L", sondern irgendwas... Wenn ich nämlich "guictrlcreatelistview" eingebe, bleibt er auf "GUICtrlCreateList" stehen und springt nicht weiter!
Bei "guictrlcreatelistviewi" (das i ist so gewollt und kein Fehler!) springt er auf "GUICtrlCreateListView" - das kann doch niemals so stimmen?!
Für mich sieht das alles sehr unlogisch aus
-
-
Hi,
wirst du nicht auf jeden Fall ausgeloggt, unabhängig, ob du Webseiten anpingst oder Sachen runterlädst (Traffic erzeugst)?
Da bringt dir so ein Tool quasi gar nix, weil der DL sowieso abbrechen wird
Gruß
x0r -
-
€dit: Done!!!
Gruß
x0r -
Hi,
ich hatte mir mal son Teil gebaut, wurde bissl was dran rumgenörgelt.
Z.b., dass man statt den ganzen If's ne "Select-" bzw "Switch-" Abfrage machen könnte. Mir hat das so gereicht, funktioniert ja auch bestens!
Spoiler anzeigen
[autoit]#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
[/autoit] [autoit][/autoit] [autoit]
#AutoIt3Wrapper_icon=AutoIT_Icons\PPG.ico
#AutoIt3Wrapper_outfile=MsgBox_Generator.exe
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
;msgbox-generator#include <ButtonConstants.au3>
[/autoit] [autoit][/autoit] [autoit]
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>#Region ### START Koda GUI section ### Form=
[/autoit] [autoit][/autoit] [autoit]
$msgbox = GUICreate("MsgBox-Generator", 366, 507, 373, 20)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$btn0 = GUICtrlCreateRadio("OK", 16, 32, 33, 17)
$btn1 = GUICtrlCreateRadio("OK und Abbrechen", 16, 48, 113, 17)
$btn2 = GUICtrlCreateRadio("Abbrechen, Wiederholen, Ignorieren", 16, 64, 193, 17)
$btn3 = GUICtrlCreateRadio("Ja, Nein, Abbrechen", 16, 80, 121, 17)
$btn4 = GUICtrlCreateRadio("Ja und Nein", 16, 96, 81, 17)
$btn5 = GUICtrlCreateRadio("Wiederholen und Abbrechen", 16, 112, 161, 17)
$btn6 = GUICtrlCreateRadio("Abbrechen, Wiederholen, Weiter", 16, 128, 177, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$std0 = GUICtrlCreateRadio("Erster Button", 224, 32, 81, 17)
$std1 = GUICtrlCreateRadio("Zweiter Button", 224, 48, 89, 17)
$std2 = GUICtrlCreateRadio("Dritter Button", 224, 64, 81, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$ic0 = GUICtrlCreateRadio("Kein Icon", 16, 168, 65, 17)
$ic1 = GUICtrlCreateRadio("Stopp-Zeichen", 16, 184, 89, 17)
$ic2 = GUICtrlCreateRadio("Fragezeichen", 16, 200, 89, 17)
$ic3 = GUICtrlCreateRadio("Ausrufezeichen", 16, 216, 97, 17)
$ic4 = GUICtrlCreateRadio("Information", 16, 232, 73, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$mod0 = GUICtrlCreateRadio("Anwendung", 224, 200, 81, 17)
$mod1 = GUICtrlCreateRadio("System-modal", 224, 216, 89, 17)
$mod2 = GUICtrlCreateRadio("Task-modal", 224, 232, 81, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$son0 = GUICtrlCreateRadio("nichts weiteres", 224, 104, 113, 17)
$son1 = GUICtrlCreateRadio("immer im Vordergrund", 224, 120, 121, 17)
$son2 = GUICtrlCreateRadio("Text rechtsbündig", 224, 136, 105, 17)
$Label1 = GUICtrlCreateLabel("Buttons:", 16, 16, 43, 17)
$Label2 = GUICtrlCreateLabel("Icon:", 16, 152, 28, 17)
$Label3 = GUICtrlCreateLabel("Standard Button:", 224, 16, 84, 17)
$Label4 = GUICtrlCreateLabel("Sonstiges:", 224, 88, 53, 17)
$Label5 = GUICtrlCreateLabel("Modalität:", 224, 184, 50, 17)
$Label6 = GUICtrlCreateLabel("Ausgabe:", 16, 448, 49, 17)
$out = GUICtrlCreateInput("", 16, 472, 329, 21)
$go = GUICtrlCreateButton("MsgBox Generieren", 16, 384, 331, 41, $WS_GROUP)
$Label7 = GUICtrlCreateLabel("Titel:", 16, 256, 27, 17)
$ititel = GUICtrlCreateInput("Überschrift", 16, 280, 329, 21)
$Label8 = GUICtrlCreateLabel("Text:", 16, 304, 28, 17)
$itext = GUICtrlCreateInput("Ich bin eine Msgbox!", 16, 328, 329, 21)
$testing = GUICtrlCreateCheckbox("Testen?", 280, 440, 65, 17)
GUICtrlSetState($testing,$GUI_CHECKED)
$Label9 = GUICtrlCreateLabel("_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _", 16, 352, 340, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###GUICtrlSetState($btn0,$GUI_CHECKED)
[/autoit] [autoit][/autoit] [autoit]
GUICtrlSetState($std0,$GUI_CHECKED)
GUICtrlSetState($ic0,$GUI_CHECKED)
GUICtrlSetState($mod0,$GUI_CHECKED)
GUICtrlSetState($son0,$GUI_CHECKED)While 1
[/autoit] [autoit][/autoit] [autoit]
$nMsg = GUIGetMsg()
Switch $nMsg
Case $go
generate()
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEndfunc generate()
[/autoit] [autoit][/autoit] [autoit]
Local $test
Local $flag = 0
Local $titel = GUICtrlRead($ititel)
Local $text = GUICtrlRead($itext)if GUICtrlRead($btn0) = 1 Then $flag += 0
[/autoit] [autoit][/autoit] [autoit]
if GUICtrlRead($btn1) = 1 Then $flag += 1
if GUICtrlRead($btn2) = 1 Then $flag += 2
if GUICtrlRead($btn3) = 1 Then $flag += 3
if GUICtrlRead($btn4) = 1 Then $flag += 4
if GUICtrlRead($btn5) = 1 Then $flag += 5
if GUICtrlRead($btn6) = 1 Then $flag += 6
if GUICtrlRead($ic0) = 1 Then $flag += 0
if GUICtrlRead($ic1) = 1 Then $flag += 16
if GUICtrlRead($ic2) = 1 Then $flag += 32
if GUICtrlRead($ic3) = 1 Then $flag += 48
if GUICtrlRead($ic4) = 1 Then $flag += 64
if GUICtrlRead($mod0) = 1 Then $flag += 0
if GUICtrlRead($mod1) = 1 Then $flag += 4096
if GUICtrlRead($mod2) = 1 Then $flag += 8192
if GUICtrlRead($std0) = 1 Then $flag += 0
if GUICtrlRead($std1) = 1 Then $flag += 256
if GUICtrlRead($std2) = 1 Then $flag += 512
if GUICtrlRead($son0) = 1 Then $flag += 0
if GUICtrlRead($son1) = 1 Then $flag += 262144
if GUICtrlRead($son2) = 1 Then $flag += 524288$test = 'MsgBox(' & $flag & ',"' & $titel & '","' & $text & '")'
[/autoit] [autoit][/autoit] [autoit]GUICtrlSetData($out,$test)
[/autoit] [autoit][/autoit] [autoit]if GUICtrlRead($testing) = 1 then Execute($test)
[/autoit] [autoit][/autoit] [autoit]EndFunc
[/autoit]Grüße
x0r -
Hi,
besonders unschön ist auch:
http://www.seidseit.de/
http://www.einzigste.info/
http://sockenseite.de/usenet/plenken.html(Letzteres ist ganz schlimm!)
Gruß
x0r -
-
sorry ich bin raus.
ich hab leider keine Ahnung, wie bzw ob man in einem "ListView" die Schriftart ändern kann!
Edit: vielleicht hilft dir das weiter -> http://www.autoitscript.com/forum/topic/89…ckcol-and-font/
Gruß
x0r -
du meinst sowas:
[autoit]$Text = "1"
[/autoit]
$Edit1 = GUICtrlCreateEdit("", 16, 48, 345, 169)
GUICtrlSetFont($Edit1 8, 400, 0, "Wingdings") ; 1 wird umgewandelt in Ordnersymbol
GUICtrlSetData($Edit1,$Text) -
Hi,
Edit: Ok, wer lesen kann, ist klar im Vorteil! (ist wohl noch zu früh für mein Hirn :))
Wie man Schriftarten kombiniert, kann ich dir nicht sagen, schätze mal, dass das wieder irgendwie mit diesem speziellen "Edit" möglich sein sollte!
(hab den Befehl grad nicht zur Hand, sorry!)Gruß
x0r -
Hi,
mal eine Frage zu deinem Backup:
Wieso schreibst du die Backups nicht in je eine Datei pro Tag/Klick, anstatt immer die selbe Datei zu überschreiben?
So hättest du immer ausrechend Backups, falls doch mal was schief geht (wie im aktuellen Fall), wie siehst du das?
"Ja/Nein"-Klicks sind immer sone Sache, nach 5x klickst du sowieso immer auf "Ja"
P.S.: Nach 2-3 Jahren würde ich jedes Windows mal neu installieren, man merkt den Unterschied deutlich
Gruß
x0r -
Hi,
wie krieg ich es fertig, dass ich per VBA-Code alle vorhandenen Abfragen "zählen" kann.
Hab ich z.b. 20 Abfragen, möchte ich "20" angezeigt bekommen.
->
Edit: Sorry, einfacher als gedacht -> CurrentDb.QueryDefs.Count
<-Gruß
x0r -
-
Hi,
versuchs mal so:
Spoiler anzeigen
[autoit]dim $AdditionsZahl1, $AdditionsZahl2, $DivisionsZahl1, $DivisionsZahl2, $MultiplikationsZahl1, $MutliplikationsZahl1, $MultiplikationsZahl2, $SubtraktionsZahl1, $SubtraktionsZahl2
[/autoit] [autoit][/autoit] [autoit]HotKeySet("{F1}", "Add")
[/autoit] [autoit][/autoit] [autoit]
HotKeySet("{F2}", "Sub")
HotKeySet("{F3}", "Multi")
HotKeySet("{F4}", "Divi")
HotKeySet("{F5}", "Ende")MsgBox(64, "Rechner", "Klicke F1 für eine Addition" & @CRLF & "Klicke F2 für eine Subtraktion" & @CRLF & "Klicke F3 für eine Multiplikation" & @CRLF & "Klicke F4 für eine Division" & @CRLF & "Klicke F5 um den Rechner zu beenden.")
[/autoit] [autoit][/autoit] [autoit]While 1
[/autoit] [autoit][/autoit] [autoit]
sleep(10)
WEndFunc Ende ()
[/autoit] [autoit][/autoit] [autoit]
Exit
EndFuncFunc Add()
[/autoit] [autoit][/autoit] [autoit]
$AdditionsZahl1 = Number(InputBox("Rechner", "Gebe die erste zu rechnende Zahl ein."))
$AdditionsZahl2 = Number(InputBox("Rechner", "Gebe die zweite zu rechnende Zahl ein."))
MsgBox(0,"Rechner", $AdditionsZahl1 + $AdditionsZahl2)
EndFuncFunc Sub()
[/autoit] [autoit][/autoit] [autoit]
$SubtraktionsZahl1 = Number(InputBox("Rechner", "Gebe die erste zu rechnende Zahl ein."))
$SubtraktionsZahl2 = Number(InputBox("Rechner", "Gebe die zweite zu rechnende Zahl ein."))
MsgBox(0,"Rechner", $SubtraktionsZahl1 - $SubtraktionsZahl2)
EndFuncFunc Multi()
[/autoit] [autoit][/autoit] [autoit]
$MultiplikationsZahl1 = Number(InputBox("Rechner", "Gebe die erste zu rechnende Zahl ein."))
$MultiplikationsZahl2 = Number(InputBox("Rechner", "Gebe die zweite zu rechnende Zahl ein."))
MsgBox(0,"Rechner", $MultiplikationsZahl1 * $MultiplikationsZahl2)
EndFuncFunc Divi()
[/autoit]
$DivisionsZahl1 = Number(InputBox("Rechner", "Gebe die erste zu rechnende Zahl ein."))
$DivisionsZahl2 = Number(InputBox("Rechner", "Gebe die zweite zu rechnende Zahl ein."))
MsgBox(0,"Rechner", $DivisionsZahl1 / $DivisionsZahl2)
EndFuncDiese ganzen While-Schleifen brauchste nicht, da passiert dann nämlich gar nix mehr
P.S.: Könnte man jetzt noch mit einem GUI aufwerten
Gruß
x0r -
Edit: Ok vergesst es, hab die Nicks nicht gelesen - ich werde wohl für immer dumm bleiben :wacko:
Gruß
x0r -
Hi,
ich stimme da Chip vollkommen zu.
Mit Access erstellst schneller ein Formular, als du den Code für AutoIT schreibst (und dich da ggf. erst noch einlesen musst?).
Für SQL oder Excel ein GUI dazu würd ich noch verstehen, aber so frage ich mich nach dem tieferen Sinn
Gruß
x0r -
Hi Mars,
perfekt!
Schon cool was dabei rauskommt, wenn man offenbar klar strukturierte Wege abläuft
Edit: Siehe Anhang -> nach ca 4.6 mio Frames
Sieht aus wie der Grundriss eines riesigen TempelsGruß
x0r -
Hi Ilse,
ich hätte den geschriebenen Text in eine Hilfsvariable geschrieben, dann das alte Edit gelöscht, ein neues erstellt mit den neuen Styles und den Inhalt der Hilfsvariable wieder eingefügt:
Spoiler anzeigen
[autoit]While 1
[/autoit]
$nMsg = GUIGetMsg()
Switch $nMsg
Case $Button1
$temp = GUICtrlRead($Edit1)
GUICtrlDelete($Edit1)
$Edit1 = GUICtrlCreateEdit("", 8, 8, 289, 225, $ES_Center)
GUICtrlSetData($Edit1,$temp)
EndSwitch
WEndGruß
x0r -
Hi Mars,
deine Version hab ich laufen lassen (darum ja hier kommentiert), Pixel werden aber trotzdem nicht mehr angezeigt.
-> scheinen schon noch da zu sein, nur eben unsichtbar!
Gruß
x0r