Knap der lukker windows

Hvad vil du dog bruge det til ??

- JmF

Ellers kig i manualen....der står det nok.

Private Declare Function ExitWindows Ex Lib \"user32\" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long

Og Knappen der lukker og rebooter:

Private Sub Knap_for_luk()

ExitWindowsEx &H43, 0

End Sub

-SCB

\'--- Form1 ---
Private Declare Function ExitWindowsEx Lib \"user32\" (ByVal dwOptions As Long, ByVal dwReserved As Long) As Long
Private Const EWX_SHUTDOWN As Long = 1
Private Const EWX_REBOOT As Long = 2
Private Const EWX_LOGOFF As Long = 0

Private Sub Command1_Click() \'Luk Computeren
Dim lngresult
lngresult = ExitWindowsEx(EWX_SHUTDOWN, 0&)
End Sub

Private Sub Command2_Click() \'Genstart Computeren
Dim lngresult
lngresult = ExitWindowsEx(EWX_REBOOT, 0&)
End Sub

Private Sub Command3_Click() \'Log af..
Dim lngresult
lngresult = ExitWindowsEx(EWX_LOGOFF, 0&)
End Sub

Private Sub Form_Load()
\'Inset 3 Knapper
Command1.Caption = \"Luk\"
Command2.Caption = \"Genstart\"
Command3.Caption = \"Log af..\"
End Sub
\'--- Form1 ---

* Du kan bespare dig for nogle linier ved:

Private Declare Function ExitWindowsEx Lib \"user32\" (ByVal dwOptions As Long, ByVal dwReserved As Long) As Long


Indsæt nedestående ved knappen.
(Føler at dette er mere overskueligt)


--Ved Luk
ExitWindowsEx 1, 0&

--Reboot
ExitWindowsEx 2, 0&

--Log af
ExitWindowsEx 0, 0&

--Tving lukning (skid på \"Vil du gemme først...\")
ExitWindowsEx 4, 0&



- Xafion

Endnu nemmere




ExitWindowsEx NR! , 0&

Erstat nummer med:
0 - Logoff
1 - Shutdown
2 - Reboot
4 - Force

Hvor skal jeg indsætte:

Private Declare Function ExitWindowsEx Lib \"user32\" (ByVal dwOptions As Long, ByVal dwReserved As Long) As Long

for når jeg ind sætter det siger den at der er fejl?

fordi det er en Function ???????

du skal også huske rasten af koderne

så skulle der ikke være fejl, og hvis hvad er fejlen så??????

bruger du ver 2.0 af vb, så er det måske fejlen.

Den skal indsættes øverst i koden sammen med \"Declares\".

Du kan evt. lave om på  PRIVATE ( i starten )
så du kan få adgang til funktionen fra alle forms.

Gør du det så sæt den ind i et modul ( i declarations )


Hvis du vil have den private / kun skal bruge den et sted skal du placere den i formens øverste del (declarations)


Ønsker du furthermore hjælp kan du kontakte mig på ICQ ( 83297796 )

Jeg yder gratis support :)

BTW: EKSPERTEN ER EN FED SIDE! Det er den ENESTE side som vises optimalt på min skærm. Alle andre er bare mikroskopiske / fylder 40% af skærmen. ( i midten )
- Jeg kører 1280x1024 :)

xafion.............
Enig, jeg kører også med 1280x1024

32 bit

=)

HDK accepter eller afvis svarene

HDK hvad med at acceptere nogle svar?? Du har 135 point ude... og der er et par spørgsmål mere som bare står hen..