| |
| |
|
 | ¡Hola,
Yo voluntad una Menu escribir wo uno verschiedene Aktionen auswählen kann como
z.B. Shutdown, Neustart, Cancelar, Benutzerwechsel .Find aber nirgendwo qué qué Yo z.B. el Neustarten Befehl ansprechen, oder como überhaupt heißt. Würd el aber gerne wissen porque Yo würden el sigue gustando en mein Script einbauen.
Bitte postet me como el befehl heißt y si todavía otro Befehle en esta Richtung son.
Hier veces mein Script:
KompilierenMarcaSeparaciónWindow 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 qué aún en así una Menu para funktionen einbauen podría.
Einfach puesto!
mfg
Julian57 |
|
| |
| |
| |
|
|
 | Schau veces dies son Parámetro para ExitWindows:
Hilfedatei
Folgende Modis son posible:
0 = Herunterfahren (ShutDown)
1 = Neustart (ReBoot)
2 = Ausschalten (PowerOff)
3 = Cancelar (LogOff)
4 = Herunterfahren sin Nachfragen (ShutDown y Force)
5 = Neustart sin Nachfragen (ReBoot y Force)
6 = Ausschalten sin Nachfragen (PowerOff y Force)
7 = Cancelar sin Nachfragen (LogOff y Force)
Mache doch una Menü con Popup y AppendMenu ... |
|
| |
| |
| |
|
|
| hallo,
danke para el rápidamente Antwort.
probier Yo veces de
mfg
Julian57 |
|
| |
| |
| |
|
|
| Oder hier veces específicamente después de Inaktivität [...]  ... |
|
| |
| |
| |
|
|
| hallo,
tener el jetz todavía con un neuen Button
Hier el Script
KompilierenMarcaSeparaciónWindow 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 tener Todavía una frage es auch posible el uno una el Shutdown en una cierto Systemzeit einstellt d.h. el él z.B. en 7.00 Uhr runterfährt, oder el él después de 30Sec runterfährt oder una neustart macht?
Bitte postet igual Beispiele
mfg
Julian57 |
|
| |
| |
| |
|
|
| Usted puede simplemente Time$(0) vergleichen z.B. con "07:00" - Por favor, testen. ^ ^
KompilierenMarcaSeparación
Für Zeitdauervergleiche eignet el Systemvariable &getTickCount, also 30 Sekunden son rum si &getTickCount größer como zuvor z.B. por Variable gemerktem Valor &getTickCount+30000 es.
KompilierenMarcaSeparación |
|
| |
| |
| |
|
|
| ¡Hola,
könntest du me vlt anhand media Scripts zeigen.
oder igual ne gute Solución puesto.
Yo kenn mich todavía tan bueno con el Theme de (tener heute morgen así angefangen)
mfg
Julian57 |
|
| |
| |
| |
|
|
| | Und ¿qué es exactamente su? |
|
| |
| |
| |
|
|
E.T. | Un Solución, antes Ewigkeiten veces "zusammengebrutzelt"
No muy schön aussehend, aber funktionierend.
Das "schön" debería auch veces todavía voluntad, aber wenn's una vez funktioniert y en el Einsatz es, es el con el "verschöner'n" siempre así '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 | ¡Hola Julian,
schaue Usted doch simplemente veces el ersten 2 oder 3 Bände meines pequeño XProfan-Lehrbuches a.
Zusätzliche Tools y Tonnen de Demo-Quellcodes findest Usted auch en el XProfan-Manager y el MMJ-Quellcodesammlung en el Downloadbereich de [...]
Saludo
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 ▲ |
|
| |
|
|
| ¡Hola,
habe mich dazu entschlossen el Programa doch selbstzuschreiben.
Hab aber todavía unos pocos Fragen
1.Cuestión: Mit qué para una Befehl puede ser el Programa Beenden?
2 Cuestión: ¿Cómo se puede uno Buttuns otra vez entfernen, d.h. el ellos no mehr adecuado voluntad.
Weil Yo todavía una Untermenu geschrieben wo allerdings todavía el
Button de Hauptmenu bajo dennen de untermenu mentira!!!!!
3 Cuestión: ¿Cómo se puede uno una Eingabe de Benutzer verlangen y esta en uno Variable
Guardar?
4 Cuestión: Ist el Auf Bau de los programm Yo igual puesto voluntad sinnvoll oder
puede ser lo todavía verbessern?
KompilierenMarcaSeparaciónMein 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
Me complace en antworten!!!!
mfg
Julian57 |
|
| |
| |
| |
|
|
| Hi!
1: End - aber mejor natürlich enden/ auslaufen dejar
2: DestroyWindow(...
3: Siehe Entrada$( oder Crear("edit",... y var y declarar -
KompilierenMarcaSeparación |
|
| |
| |
| |
|
(513)
Deutsch
English
Français
Español
Italia