im alten Forum hat man mir bei der Programmierung eines Tools geholfen, das mir täglich praktische Hilfe leistet. Meine Programmierkenntnisse sind begrenzt; sie reichen beispielsweise, das Tool bei Bedarf anzupassen, aber in meinem Alter lohnt es sich nicht, sie noch wesentlich zu erweitern. Ich hoffe auf erneute Unterstützung: Es wäre nützlich für mich, wenn das Tool den Wochentag ausgeben könnte. Gerne in Kombination mit dem Datum im Format TT.MM.JJJJ, aber der Wochentag ist entscheidend.
Um konkret zu werden, hier das Skript. Unter dem Titel "Starter 1.8" soll das Datum stehen. Den Platz kann ich selber schaffen.
Code: Select all
; Programmiert von "Janemba" in der AutoHotkey Community
; http://de.autohotkey.com/forum/viewtopic.php?p=78425
; Erweitert von Anselm Rapp
; Abmessungen und Positionen Buttons:
; von links (x) 10
; von oben (y) Beginn 40, weitere je plus 50
; Breite 190
; Höhe 40
; Abmessungen Fenster:
; Breite 210
; Höhe Beginn unterster Button plus 50
#NoEnv
#SingleInstance force
#NoTrayIcon
SendMode Input
SetWorkingDir %A_ScriptDir%
Prog0 := "C:\Program Files (x86)\Malwarebytes Anti-Malware\mbam.exe" ; Programm für "gerade" Tage
Prog1 := "C:\Program Files (x86)\EEK\Start Emergency Kit Scanner.exe" ; Programm für "ungerade" Tage
Text0 := "Malwarebytes' Anti-Malware" ; Button-Beschriftung für "gerade" Tage
Text1 := "Emsisoft Emergency Kit" ; Button-Beschriftung für "ungerade" Tage
Beginn := 20000101 ; Startpunkt für die Tageszählung
Tage := SubStr(A_Now, 1, 8) ; Heute
Tage -= Beginn, Days ; Differenz zum Startpunkt in Tagen
Index := (Tage & 1) ; "gerade"/"ungerade" Anzahl von Tagen
if (Index == true) ; ungerade
{
text := Text1
prog := Prog1
}
else ; gerade
{
text := Text0
prog := Prog0
}
Gui, Font, s12 bold,
Gui, Add, Text, x10 y10 w200 h30 +Center H32, Starter 1.8
Gui, Font, s10 norm,
Gui, Add, Button, x10 y40 w190 h40 gLabel1 ,Hinweise
Gui, Add, Button, x10 y90 w190 h40 gLabel2 ,X1 Search
Gui, Add, Button, x10 y140 w190 h40 gLabel3 ,Second Copy 8
Gui, Add, Button, x10 y190 w190 h40 gLabel4 ,RSSOwl
Gui, Add, Button, x10 y240 w190 h40 gLabel5 ,%text%
Gui, Add, Button, x10 y290 w190 h40 gLabel6 ,Willing Webcam
Gui, Add, Button, x10 y340 w190 h40 gLabel7 ,Stunden + Wasser
Gui, Add, Button, x10 y390 w190 h40 gLabel8 ,Beenden
Gui, Show, w210 h440, Starter
Gui, Color, FFFFFF
return
Label1:
Run, notepad.exe starter.txt
GuiControl, Disable, Button1
return
Label2:
Run, C:\Program Files\X1 Search\X1.exe
GuiControl, Disable, Button2
return
Label3:
Run, C:\Program Files (x86)\Second Copy 8\SecCopy.exe
GuiControl, Disable, Button3
return
Label4:
Run, C:\Program Files (x86)\RSSOwl\RSSOwl.exe
GuiControl, Disable, Button4
return
Label5:
Run, %prog%
GuiControl, Disable, Button5
return
Label6:
Run, C:\Program Files (x86)\Willing Webcam\wwcam.exe
GuiControl, Disable, Button6
return
Label7:
Run, C:\Program Files (x86)\Eigene\Helfer\Wasser\wasseruhr.exe
GuiControl, Disable, Button7
return
Label8:
GuiEscape:
GuiClose:
ExitApp