Post by viper73 » 07 Oct 2023, 15:04
@KHA
Du hast mir mal folgendes Script gemacht, welches auch super funktioniert.
Nun habe ich Autohotkey 2.0.10 installiert und da meckert es bei mir das es ein Script nur für AHK v1 ist.
Könntest du mir das umschreiben damit es in AHK 2.0 funktioniert? Ich weiß nicht welche Befehle sich hier geändert haben...
Noch eine zweite Sache, wenn nach 30 Sekunden das Script automatisch der "Taschenrechner" startet, dann schließt sich das Menü nicht selbst, sondern ich muß das manuell mit "beenden" machen. Könnte man das noch so machen das sich das Menü automatisch schließt wenn nach dem Timer das Programm automatisch gestartet wird?
Code: Select all
#NoEnv
#Singleinstance Force
ProgrammListe := {"Taschenrechner" : "Calc.exe"
,"Editor" : "Notepad.exe"
,"Zeichnen" : "MsPaint.exe"}
TimerInSek := 30
Gui, 1: Font, S12 cBlack w400, Arial
Gui, 1: Color, White, White
Gui, 1: margin, 10, 10
For Programm, ProgrammPfad in ProgrammListe
Gui, 1:Add, Button, w250 gProgrammStarten,% Programm
Gui, 1:Add, Text, vTimer Center w250, % TimerInSek
SetTimer, Count, 1000
Gui, 1:Show,Center, Programm Starter
Return
ProgrammStarten:
Run, % ProgrammListe[A_GuiControl]
ExitApp
Return
Count:
If (TimerInSek = 0) {
SetTimer, Count, Off
Run, % ProgrammListe["Taschenrechner"]
}Else{
TimerInSek--
GuiControl, Text, Timer, %TimerInSek%
}
Return
1GuiClose:
GuiClose:
ExitApp
Vielen Dank schonmal,
Gruß, Viper73
[mention]KHA[/mention]
Du hast mir mal folgendes Script gemacht, welches auch super funktioniert.
Nun habe ich Autohotkey 2.0.10 installiert und da meckert es bei mir das es ein Script nur für AHK v1 ist.
Könntest du mir das umschreiben damit es in AHK 2.0 funktioniert? Ich weiß nicht welche Befehle sich hier geändert haben...
Noch eine zweite Sache, wenn nach 30 Sekunden das Script automatisch der "Taschenrechner" startet, dann schließt sich das Menü nicht selbst, sondern ich muß das manuell mit "beenden" machen. Könnte man das noch so machen das sich das Menü automatisch schließt wenn nach dem Timer das Programm automatisch gestartet wird?
[code]
#NoEnv
#Singleinstance Force
ProgrammListe := {"Taschenrechner" : "Calc.exe"
,"Editor" : "Notepad.exe"
,"Zeichnen" : "MsPaint.exe"}
TimerInSek := 30
Gui, 1: Font, S12 cBlack w400, Arial
Gui, 1: Color, White, White
Gui, 1: margin, 10, 10
For Programm, ProgrammPfad in ProgrammListe
Gui, 1:Add, Button, w250 gProgrammStarten,% Programm
Gui, 1:Add, Text, vTimer Center w250, % TimerInSek
SetTimer, Count, 1000
Gui, 1:Show,Center, Programm Starter
Return
ProgrammStarten:
Run, % ProgrammListe[A_GuiControl]
ExitApp
Return
Count:
If (TimerInSek = 0) {
SetTimer, Count, Off
Run, % ProgrammListe["Taschenrechner"]
}Else{
TimerInSek--
GuiControl, Text, Timer, %TimerInSek%
}
Return
1GuiClose:
GuiClose:
ExitApp
[/code]
Vielen Dank schonmal,
Gruß, Viper73