Beiträge von Lottich

Beispiel einer Steigerung mehrerer Wörter

Käckchen am Stöckchen
Kacke am Stock
Scheisse am Knüppel

Diesen Code verwende ich, um in einem Programm die Namen der Buttons zu ändern, ohne dass ich dafür in den Quelltext muss. Die Daten stehen in einer INI. als Beispiel:

[Daten für Buttons]
bereich1 =2|Renate|Einkaufen
bereich2 =5|helga|heidi|dagmar|günther|Peter

Mit der folgenden Funktion

Global $tempfile = "pfad zur INI"
Func daten_buttons($daten_to_check, $datenpart = 1)
$splittext = IniRead($tempfile,"Daten für Buttons",$daten_to_check, 0)
If $splittext <> "0" Then
$datencomplett = StringSplit($splittext,"|")
Return $datencomplett[$datenpart]
Else
Return 0
EndIf
EndFunc

kann man dann ganz einfach die Daten ermitteln, die man braucht.
Beispiel:

daten_buttons("bereich1"); gibt 2 zurück, in meinem Fall werden dann, durch eine andere Funktion, 2 Buttons für den Bereich 1 erstellt
daten_buttons("bereich2"); gibt 5 zurück, der mir dann 5 Buttons im 2. Bereich erstellt

GuiCtrlCreateButton(daten_buttons("bereich2",2), .... ); würde dann einen Button erstellen mit Namen Renate

Das wäre dann ganz leicht in der INI änderbar

#region: Inputbox um eine Wartzezeit einzutragen (inkl. "Erklärungs-Fehlerhandling")
Dim $checkwert = False, $sleeptime

Func sleepdemo()
$sleeptime = InputBox("Sleeptime eintragen",@CR&"Eingabe erfolgt in Sekunden, weil in der Sleep-Zeile"&@CR&"der Wert dieser Inputbox mit 1000 multipliziert wird."& _
@CR&@CR&"Beispiel:"&@CR&"Wert = 69"&@TAB&"mal 1000 = Sleep(69 * 1000) ==> Sleep(69000)", "", "", 350, 200)
Switch @error
Case 0 ;==> Okay-Button wurde gedrückt
If Not StringRegExp($sleeptime, "\A\d+\z") Then ;==> String wird auf Korrektheit geprüft (nur Zahlen ohne Leerzeichen / Punkt / Komma usw...)
MsgBox(0,"????", "Du weisst schon, dass du eine Zahl eingeben musst???")
Else
$checkwert = True
EndIf
Case 1 ;==> Abbrechen- oder Exit-Button wurde gedrückt
MsgBox(0,"Was denn nun?","Warum hast du die Demonstration abgebrochen???." & @CR & "Weisst wohl nicht was du willst?!")
Exit
Case Else
MsgBox(0,"Fehler", "Ein unerwarteter Fehler ist aufgetreten." & @CR & "Die Demo wird abgebrochen!")
Exit
EndSwitch
EndFunc

Do
sleepdemo()
Until $checkwert = True

Sleep($sleeptime * 1000)
MsgBox(0,"Siehste?","War doch gar nicht so schwer."&@CRLF&"Die Wartezeit ist abgelaufen."&@CRLF&@CRLF&"Die Demo wurde erfolgreich beendet."&@CRLF&"Herzlichen Glückwunsch!!")
#endregion ;==> sobald dieses Prinzip verstanden wurde, was echt keine Schwierigkeit darstellen sollte, wird der nächste Code ausreichend sein:

#region: Kurzform des oberen Prinzips
$sleep = InputBox("Sleeptime","in Sekunden eintragen")
Sleep($sleep*1000)
#endregion

#region: Beispiel mit einer GUI (Demo via ToolTip)
#include "EditConstants.au3" ;==> wegen $ES_NUMBER (nur zahlen schreiben ist möglich)
$gui = GUICreate("Sleeptime",200,100)
GUICtrlCreateLabel("Stunden", 25,10)
GUICtrlCreateLabel("Minuten", 80,10)
GUICtrlCreateLabel("Sekunden",130,10)
$input_stunde = GUICtrlCreateInput("", 30,30,30,-1,$ES_NUMBER)
$input_minute = GUICtrlCreateInput("", 85,30,30,-1,$ES_NUMBER)
$input_second = GUICtrlCreateInput("",140,30,30,-1,$ES_NUMBER)
$button_ok = GUICtrlCreateButton("übernehmen", 10,70,80)
$button_esc = GUICtrlCreateButton("abbruch", 110,70,80)
GUISetState()
while 1
Switch GUIGetMsg()
Case $button_esc
ExitLoop
Case $button_ok
$wert_sleeptime = GUICtrlRead($input_stunde) * 3600000 + GUICtrlRead($input_minute) * 60000 + GUICtrlRead($input_second) * 1000
GUIDelete($gui)
If $wert_sleeptime <> 0 Then
sleepdemo2($wert_sleeptime)
ExitLoop
Else
$wert_sleeptime = 10000
MsgBox(0,"Achtung","Keine Werte eingetragen. $wert_sleeptime wurde zur Demo auf 10 Sekunden gesetzt.")
sleepdemo2($wert_sleeptime)
ExitLoop
EndIf
EndSwitch
WEnd

Func sleepdemo2($wert_sleeptime)
For $i = $wert_sleeptime/1000 To 1 Step -1
ToolTip(@CR & "Der Befehl" & @TAB & "Sleep($wert_sleeptime)" & @CR & "endet in" & @TAB & @TAB & $i & " Sekunden." ,"","","Countdown" & @TAB & "$wert_sleeptime = " & $wert_sleeptime & " ms ",1,1)
sleep(1000)
Next
For $i = 1 To 0 Step -1
ToolTip(@CR & "Der Befehl" & @TAB & "Sleep($wert_sleeptime)" & @CR & "endet jetzt." ,"","","Countdown" & @TAB & "$wert_sleeptime = " & $wert_sleeptime & " ms ",1,1)
Sleep(1000)
Next
EndFunc
#endregion

Es wird im @UserProfileDir ein neuer Ordner angelegt mit dem Namen des Programms.
Dieser neue Ordner dient als Basis, indem neue Ordner erstellt werden, ganz wie der Wunsch des Users ist.

Will man seinen Desktop aufräumen, kann man so auch gleich eine vernünftige Ordnung in die ganze Geschichte reinbringen (zB alle .rar-Dateien in einen Ordner "RAR Files").

Anmerkung: Das Programm KOPIERT sich automatisch in das Basisverzeichnis. Die neue Datei wird für die Verknüpfungen auf den Desktop und nach @StartupDir genutzt.

Per Buttonklick kann ein neuer Ordner angelegt werden. Bei Erstausführung wird automatisch die Funktion dafür aufgerufen, denn es muss mind. 1 Ordner in der Basis existieren.
In der Combobox kann man die vorhandenen Ordner in der Basis auswählen. Mit Klick auf den 2. Button wird der in der Combobox gewählte Ordner geöffnet.

_____ MAINGUI _________ MINIGUI _______ Auswahl Combo
[Blockierte Grafik: http://www.ifa-clan.de/files/Forumbilder/autoit/maingui.PNG] _____ [Blockierte Grafik: http://www.ifa-clan.de/files/Forumbilder/autoit/minigui.PNG] _____ [Blockierte Grafik: http://www.ifa-clan.de/files/Forumbilder/autoit/combo.PNG]

Bei Klick auf den Button "Hide"Wechselt die GUI zu einer winzigen GUI , die in der linken oberen Ecke des Desktops angezeigt wird. Klickt man auf diese GUI, wird die HauptGUI wieder angezeigt.
Dies dient dazu, dass KEIN Icon in der Taskleiste angezeigt wird.

Der eigentliche Sinn des programms ist jedoch das weisse Feld in der Mitte, die Drag´n´Drop-Zone
Man wählt in der Combobox einen zuvor erstellten Ordner und zieht dann eine oder mehrere Dateien und/oder Ordner ind diese Drag´n´Drop-Zone und die Dateien/Ordner werden in den gewünschten
Ordner verschoben.

Das Programm kann entweder per Tray-Icon beendet werden oder mit ESC wenn die HauptGUI aktiv ist.

Ruckizucki ist der Desktop wieder frei, die verschobenen Ordner/Dateien sind ordentlich verstaut und jederzeit per Buttonklick aufrufbar.
Das Programm baut KEINE Internetverbindung auf, liest KEINE Daten aus, enthält KEINE Werbung/Malware/Viren oder sonstigen Hackermist!

#include "WindowsConstants.au3"
#include "GUIConstantsEx.au3"
#include "ButtonConstants.au3"
#Include "File.au3"

$Name_der_Instanz = "Superior Desktop Cleaner"
If WinExists($Name_der_Instanz) Then
MsgBox(0,"Instanzcheck aktiv","Es wird bereits eine Instanz des soeben gestarteten Programms ausgeführt."&@CRLF&@CRLF&"Die erneute Ausführung zur Laufzeit ist nicht zulässig.")
Exit
EndIf
AutoItWinSetTitle($Name_der_Instanz);....;==> sorgt dafür, dass KEINE Mehrfachstarts des Programms möglich sind. Ähnlich wie _singleton()

Global $name = "Mausers Desk-Cleaner", $iDropItem = -1, $gaDropFiles[1], $button[5], $open_selected_folder, $zielpfad, $combo, $dropper, $h_GUI, $h_Child
Global $basis = @UserProfileDir & "\" & $name & "\"

Func check();...;==> Für Autostart mit Windows und Verknüpfung zum Desktop. Die eigentliche .EXE wird in der $basis hinterlegt und für die Verknüpfungen genutzt.
If Not FileExists($basis & @ScriptName) Then FileCopy(@ScriptFullPath,$basis & @ScriptName)
If Not FileExists(@StartupDir & "\" & $name & ".lnk") Then FileCreateShortcut($basis & @ScriptName,@StartupDir & "\" & $name & ".lnk")
If Not FileExists(@DesktopDir & "\" & $name & ".lnk") Then FileCreateShortcut($basis & @ScriptName,@DesktopDir & "\" & $name & ".lnk")
EndFunc
check()

Func WM_DROPFILES_FUNC($hWnd, $msgID, $wParam, $lParam);...;==> diese Funktion hab ich leider geklaut :-/
Local $nSize, $pFileName
Local $nAmt = DllCall('shell32.dll', 'int', 'DragQueryFileW', 'hwnd', $wParam, 'int', 0xFFFFFFFF, 'ptr', 0, 'int', 255)
For $i = 0 To $nAmt[0] - 1
$nSize = DllCall('shell32.dll', 'int', 'DragQueryFileW', 'hwnd', $wParam, 'int', $i, 'ptr', 0, 'int', 0)
$nSize = $nSize[0] + 1
$pFileName = DllStructCreate('wchar[' & $nSize & ']')
DllCall('shell32.dll', 'int', 'DragQueryFileW', 'hwnd', $wParam, 'int', $i, 'ptr', DllStructGetPtr($pFileName), 'int', $nSize)
ReDim $gaDropFiles[$i + 1]
$gaDropFiles[$i] = DllStructGetData($pFileName, 1)
$pFileName = 0
Next
EndFunc

Func drag_n_drop($kopiere_das_Zeug);==> wie der Name schon sagt...
$zielpfad = $basis & GUICtrlRead($combo);.......................................;==> ermittelt den Zielpfad
$count = StringSplit($kopiere_das_Zeug,"|");....................................;==> ermittelt die Anzahl der zu verschiebenden Ordner/Dateien
For $y = 1 To $count[0]
$name_file = StringMid($count[$y],StringInStr($count[$y], '\', 1, -1)+1);...;==> ermittelt den Dateinamen
$attribute = FileGetAttrib($count[$y]);.....................................;==> ermittelt ob Datei oder Ordner
If $attribute == "D" Then
DirMove($count[$y], $zielpfad & "\" & $name_file);......................;==> verschiebt Ordner zum Ziel
Else
FileMove($count[$y], $zielpfad & "\" & $name_file);.....................;==> verschiebt Dateien zum Ziel
EndIf
Next
GUICtrlSetData($dropper,"");....................................................;==> setzt die Drag´n´Drop-Area zurück
EndFunc

Func aktualisierung();==> aktualisiert den Inhalt der Combobox (Ordnerliste)
Local $inhalt = _FileListToArray($basis, "*", 2), $inhalt_combo
If Not @error Then
For $i = 1 To $inhalt[0]
$inhalt_combo &= $inhalt[$i] & "|"
Next
Return $inhalt_combo
Else
new_folder()
$inhalt = _FileListToArray($basis, "*", 2)
For $i = 1 To $inhalt[0]
$inhalt_combo &= $inhalt[$i] & "|"
Next
Return $inhalt_combo
EndIf
EndFunc

Func new_folder();...;==> erstellt einen neuen Ordner
Local $new_folder = InputBox("","Neuen Ordner erstellen?"&@CRLF&@CRLF&"Wenn ein neuer Ordner erstellt werden soll,"&@CRLF&"dann gib im Eingabefeld einen Namen ein.",">> hier <<")
If Not FileExists($basis & $new_folder) Then DirCreate($basis & $new_folder)
EndFunc

Func GUI_1();........;==> HauptGUI, kann mit ESC beendet werden
$h_GUI = GUICreate($name, 152, 145, 100, 100, $WS_Popupwindow, BitOR($WS_EX_ACCEPTFILES, $WS_EX_OVERLAPPEDWINDOW, $WS_EX_TOOLWINDOW))
GUISetBkColor(0x000000)
$combo = GUICtrlCreateCombo("",35, 4, 80,20)
$dropper = GUICtrlCreateInput("", 0,30,150,80)
$button[1] = GUICtrlCreateButton("", 0, 0, 30, 30, $BS_ICON) ; neuer Ordner
$button[2] = GUICtrlCreateButton("", 120, 0, 30, 30, $BS_ICON) ; Ordner öffnen
$button[3] = GUICtrlCreateButton("Hide", 0, 112, 150, 30, $BS_ICON) ; GUI wechseln
GUICtrlSetImage($button[1], "imageres.dll", -176)
GUICtrlSetImage($button[2], "imageres.dll", -177)
GUICtrlSetState($dropper, $GUI_DROPACCEPTED)
GUICtrlSetData ($combo, aktualisierung())
GUIRegisterMsg($WM_DROPFILES, 'WM_DROPFILES_FUNC')
GUISetState(@SW_SHOW,$h_GUI)
While 1
$msg = GUIGetMsg()
If $msg = $GUI_EVENT_CLOSE Then Exit
If $msg = $GUI_EVENT_DROPPED Then drag_n_drop(GUICtrlRead($dropper))
If $msg = $button[3] Then ExitLoop
If $msg = $button[2] Then ShellExecute($basis & GUICtrlRead($combo))
If $msg = $button[1] Then
new_folder()
GUICtrlSetData($combo, "")
GUICtrlSetData($combo, aktualisierung())
EndIf
WEnd
GUIDelete($h_GUI)
GUI_2()
EndFunc

Func GUI_2();........;==> NebenGUI, klein und somit kaum störend
$h_Child = GUICreate("", 30, 30, 0, 0, $WS_Popupwindow, $WS_EX_TOOLWINDOW)
$button[4] = GUICtrlCreateButton("",0,0,30,30,$BS_ICON)
GUICtrlSetImage($button[4], "imageres.dll", -217)
GUISetState(@SW_SHOW,$h_Child)
While 1
If GUIGetMsg() = $button[4] Then ExitLoop
WEnd
GUIDelete($h_Child)
GUI_1()
EndFunc

GUI_2();.............;==> startet die NebenGUI