| |
|
|
| Hi, i will one Menu write where one different activities select can How z.B. Shutdown, Neustart, Log off, Benutzerwechsel .Find but nirgendwo what what How I z.B. whom Neustarten commands address, or How it at all is. Würd the but gladly know because I would whom yet gladly in my Script install. Please posting me How the order is and if it yet others Commands in these direction gives. here time my Script: CompileMarkSeparationWindow 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
Perhaps know your what still in so one Menu for functions install could. simply post!
mfg
Julian57 |
|
|
| |
|
|
|
| look time this are Parameter for ExitWindows: Helpfile
following modes are possible:
0 = Shutdown (ShutDown)
1 = Neustart (ReBoot)
2 = switch off (PowerOff)
3 = Log off (LogOff)
4 = Shutdown without inquiries (ShutDown and Force)
5 = Neustart without inquiries (ReBoot and Force)
6 = switch off without inquiries (PowerOff and Force)
7 = Log off without inquiries (LogOff and Force)
make still one Menu with Pop and AppendMenu ... |
|
|
| |
|
|
|
| Hello, thanks for quick response. probier I time from mfg Julian57 |
|
|
| |
|
|
|
| or here time Specifically to Inaktivität [...] ... |
|
|
| |
|
|
|
| Hello, Have the jetz yet with a new Button here the Script CompileMarkSeparationWindow 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
now Have I another question is it too possible the one a whom Shutdown on a defined System-Time einstellt d.h. the it z.B. circa 7.00 watch runterfährt, or the it to 30Sec runterfährt or a neustart power? Please posting same Examples
mfg
Julian57 |
|
|
| |
|
|
|
| You can simply time$(0) vergleichen z.B. with "07:00" - please test. ^^ CompileMarkSeparation for Zeitdauervergleiche eignet the Systemvariable &getTickCount, means 30 sec are rum if &getTickCount larger as before z.B. by Variable gemerktem worth &getTickCount+30000 is. CompileMarkSeparation |
|
|
| |
|
|
|
| Hi, could you me the vlt anhand my Scripts show. or same ne good Solution post. I kenn me yet so well with the Theme from (Have today tommorrow so started) mfg Julian57 |
|
|
| |
|
|
|
| |
|
| |
|
|
|
E.T. | an Solution, to Ewigkeiten time "zusammengebrutzelt"
not very beautiful aussehend, but funktionierend. the "schön" ought to too time yet go, but wenn's once functions and in use is, is with the the "verschöner'n" always so 'ne thing... |
|
|
| 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... | 10/13/10 ▲ |
|
|
|
|
Dietmar Horn | Hello Julian,
look you still simply times the first 2 or 3 Volumes of my small XProfan-Lehrbuches on.
additional Tools and tons of demonstration-Source code find You in XProfan-manager and the MMJ-Quellcodesammlung in the Download Area of [...]
Greeting 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: [...] | 10/13/10 ▲ |
|
|
|
|
| Hi, have me moreover decided the program still selbstzuschreiben. Have however, a couple ask 1.question: with take off a commands can the program terminate? 2 question: How can Buttuns again Remove, d.h. the tappt im dunkeln not any more showing. because I have another Untermenu written where though yet The Button of Hauptmenu under dennen of untermenu lying!!!!! 3 question: How can a input of user desires and these in a Variable Save? 4 question: is the On building from the Program I same post go meaningfully or can it yet improve? CompileMarkSeparationMein 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
EndWhi
end
i am pleased on Answer!!!!
mfg
Julian57 |
|
|
| |
|
|
|
| Hi!
1: End - but rather naturally terminate/ run out let
2: DestroyWindow(...
3: See Input$( or Create("Edit",... and var and declare - CompileMarkSeparation |
|
|
| |
|
|