| |
| |
|
 | Hallo,
ich will ein Menu schreiben wo man verschiedene Aktionen auswählen kann wie
z.B. Shutdown, Neustart, Abmelden, Benutzerwechsel .Find aber nirgendwo was was wie ich z.B. den Neustarten Befehl ansprechen, oder wie er überhaupt heißt. Würd das aber gerne wissen denn ich würden den noch gerne in mein Script einbauen.
Bitte postet mir wie der befehl heißt und wenn es noch andere Befehle in diese Richtung gibt.
Hier mal mein Script:
KompilierenMarkierenSeparierenWindow 10,10-200,350
WindowTitle "Shutdownmenu"
Declare herunter&, abmeld&'eingefügt
declare uhrzeit&' eingefügt KHR
declare Text$,Titeltext$
Cls rgb(0,255,0)
print ""
Print " Shutdownmenu "
Print ""
Print ""
Print " by Julian57 "
herunter& = Create("Button",%hwnd,"Herunterfahren",10,90,170,50)
abmeld& = Create("Button",%hwnd,"Abmelden",10,160,170,50)
uhrzeit& = Create("Button",%hwnd,"Uhrzeit",10,230,170,50)
While 1
WaitInput
If Clicked(herunter&)
ExitWindows 0
ElseIf Clicked(abmeld&)
ExitWindows 3
elseIf Clicked (uhrzeit&)' geändert KHR
Text$ = "Wir haben jetzt " + Time$(2) + " Uhr."
Titeltext$ = "I N F O"
Messagebox(Text$,Titeltext$,4160)
EndIf
EndWhile
end
Vlt wisst ihr was man noch in so ein Menu für funktionen einbauen könnte.
Einfach posten!
mfg
Julian57 |
|
| |
| |
| |
|
|
 | Schau mal dies sind Parameter für ExitWindows:
Hilfedatei
Folgende Modis sind möglich:
0 = Herunterfahren (ShutDown)
1 = Neustart (ReBoot)
2 = Ausschalten (PowerOff)
3 = Abmelden (LogOff)
4 = Herunterfahren ohne Nachfragen (ShutDown und Force)
5 = Neustart ohne Nachfragen (ReBoot und Force)
6 = Ausschalten ohne Nachfragen (PowerOff und Force)
7 = Abmelden ohne Nachfragen (LogOff und Force)
Mache doch ein Menü mit Popup und AppendMenu ... |
|
| |
| |
| |
|
|
| hallo,
danke für die schnell Antwort.
probier ich mal aus
mfg
Julian57 |
|
| |
| |
| |
|
|
| Oder hier mal speziell nach Inaktivität [...]  ... |
|
| |
| |
| |
|
|
| hallo,
hab das jetz noch mit einem neuen Button
Hier das Script
KompilierenMarkierenSeparierenWindow 10,10-200,420
WindowTitle "Shutdownmenu"
Declare herunter&, abmeld&
declare uhrzeit&
declare neustart&
declare Text$,Titeltext$
Cls rgb(0,255,0)
print ""
Print " Shutdownmenu "
Print ""
Print ""
Print " by Julian57 "
herunter& = Create("Button",%hwnd,"Herunterfahren",10,90,170,50)
neustart& = Create("Button",%hwnd,"Neustarten",10,160,170,50)
abmeld& = Create("Button",%hwnd,"Abmelden",10,230,170,50)
uhrzeit& = Create("Button",%hwnd,"Uhrzeit",10,300,170,50)
While 1
WaitInput
If Clicked(herunter&)
ExitWindows 0
ElseIf Clicked(abmeld&)
ExitWindows 3
ElseIf Clicked(neustart&)
ExitWindows 1
elseIf Clicked (uhrzeit&)
Text$ = "Wir haben jetzt " + Time$(2) + " Uhr."
Titeltext$ = "I N F O"
Messagebox(Text$,Titeltext$,4160)
EndIf
EndWhile
end
nun hab ich noch eine frage ist es auch möglich das man eine den Shutdown auf eine bestimmte Systemzeit einstellt d.h. das er z.B. um 7.00 Uhr runterfährt, oder das er nach 30Sec runterfährt oder einen neustart macht?
Bitte postet gleich Beispiele
mfg
Julian57 |
|
| |
| |
| |
|
|
| Du kannst einfach Time$(0) vergleichen z.B. mit "07:00" - bitte testen. ^^
KompilierenMarkierenSeparieren
Für Zeitdauervergleiche eignet sich die Systemvariable &getTickCount, also 30 Sekunden sind rum wenn &getTickCount größer als zuvor z.B. per Variable gemerktem Wert &getTickCount+30000 ist.
KompilierenMarkierenSeparieren |
|
| |
| |
| |
|
|
| Hallo,
könntest du mir das vlt anhand meinen Scripts zeigen.
oder gleich ne gute Lösung posten.
ich kenn mich noch so gut mit dem Theme aus (hab heute morgen damit angefangen)
mfg
Julian57 |
|
| |
| |
| |
|
|
| |
| |
| |
| |
|
|
E.T. | Eine Lösung, vor Ewigkeiten mal "zusammengebrutzelt"
Nicht sehr schön aussehend, aber funktionierend.
Das "schön" sollte auch mal noch werden, aber wenn's einmal funktioniert und im Einsatz ist, ist das mit dem "verschöner'n" immer so 'ne Sache... |
|
| |
| Grüße aus Sachsen... Mario  WinXP, Win7 (64 Bit),Win8(.1),Win10, Win 11, Profan 6 - X4, XPSE, und 'nen schwarzes, blinkendes Dingens, wo ich das alles reinschütte... | 13.10.2010 ▲ |
|
| |
|
|
Dietmar
Horn | Hallo Julian,
schaue Dir doch einfach mal die ersten 2 oder 3 Bände meines kleinen XProfan-Lehrbuches an.
Zusätzliche Tools und Tonnen von Demo-Quellcodes findest Du auch im XProfan-Manager und in der MMJ-Quellcodesammlung im Downloadbereich von [...]
Gruß
Dietmar |
|
| |
| Multimedia für Jugendliche und junge Erwachsene - MMJ Hoyerswerda e.V. [...] Windows 95 bis Windows 7 Profan² 6.6 bis XProfan X2 mit XPSE Das große XProfan-Lehrbuch: [...] | 13.10.2010 ▲ |
|
| |
|
|
| Hallo,
habe mich dazu entschlossen das Programm doch selbstzuschreiben.
Hab aber noch ein paar Fragen
1.Frage: Mit was für einen Befehl kann man das Programm Beenden?
2 Frage: Wie kann man Buttuns wieder entfernen, d.h. das sie nicht mehr angezeigt werden.
Weil ich habe noch ein Untermenu geschrieben wo allerdings noch die
Button von Hauptmenu unter dennen von untermenu liegen!!!!!
3 Frage: Wie kann man eine Eingabe von Benutzer verlangen und diese in einer Variable
Speichern?
4 Frage: Ist der Auf Bau von den programm was ich gleich posten werden sinnvoll oder
kann man es noch verbessern?
KompilierenMarkierenSeparierenMein Programm:Window 10,10-200,490
WindowTitle "Shutdownmenu"
declare herunter&, abmeld&,neustart&,exit&
declare uhrzeit&
declare verzögshut&,timeshut&,normalshut&,abort&
declare Text$,Titeltext$
Cls rgb(0,255,0)
print ""
Print " Shutdownmenu "
Print ""
Print ""
Print " by Julian57 "
herunter& = Create("Button",%hwnd,"Herunterfahren",10,90,170,50)
neustart& = Create("Button",%hwnd,"Neustarten",10,160,170,50)
abmeld& = Create("Button",%hwnd,"Abmelden",10,230,170,50)
uhrzeit& = Create("Button",%hwnd,"Uhrzeit",10,300,170,50)
exit& = Create("Button",%hwnd,"Beenden",10,370,170,50)
While 1
WaitInput
If Clicked(herunter&)
cls rgb(0,255,0)
Window 10,10-230,420
Windowtitle "Herunterfahren"
print ""
Print " Shutdownmenu "
Print ""
Print ""
Print " by Julian57 "
verzögshut& = Create("Button",%hwnd,"Verzögertes Herunterfahren",10,90,200,50)
timeshut& = Create("Button",%hwnd,"Herunterfahren nach Timer",10,160,200,50)
normalshut& = Create("Button",%hwnd,"Sofortiges Herunterfahren",10,230,200,50)
abort& = Create("Button",%hwnd,"Abbrechen",10,300,200,50)
While 2
WaitInput
ElseIf Clicked(normalshut&)
ExitWindows 0
ElseIf Clicked(timeshut&)
ElseIf Clicked(verzögshut&)
ElseIf Clicked(abort&)
ElseIf Clicked(abmeld&)
ExitWindows 3
ElseIf Clicked(neustart&)
ExitWindows 1
elseIf Clicked(uhrzeit&)
Text$ = "Wir haben jetzt " + Time$(2) + " Uhr."
Titeltext$ = "I N F O"
Messagebox(Text$,Titeltext$,4160)
ElseIf Clicked(exit&)
MessageBox("Möchten Sie das programm schon Beenden?","F r a g e",4132)
if %Button=6
end
EndIf
EndIf
EndWhile
end
Ich freue mich auf antworten!!!!
mfg
Julian57 |
|
| |
| |
| |
|
|
| Hi!
1: End - aber besser natürlich enden/ auslaufen lassen
2: DestroyWindow(...
3: Siehe Input$( oder Create("edit",... und var und declare -
KompilierenMarkierenSeparieren |
|
| |
| |
| |
|
(512)
Deutsch
English
Français
Español
Italia