Använd APIViwer under Addins menyn för att titta på API-deklarationerna i VB
Klistra in följande kod i ett formulär med en kanpp och en combo box.
<font size="1" face="Verdana, Arial, Helvetica, sans-serif">Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long
Private Const EWX_LOGOFF = 0
Private Const EWX_SHUTDOWN = 1
Private Const EWX_REBOOT = 2
Private Const EWX_FORCE = 4
Private Sub Command1_Click()
Dim mode As Long
Select Case Combo1.ListIndex
Case 0:
mode = EWX_LOGOFF
Case 1:
mode = EWX_SHUTDOWN
Case 2:
mode = EWX_REBOOT
Case 3:
mode = EWX_FORCE
End Select
ExitWindowsEx mode, 0
End Sub</font>
Hoppas det funkade. På windows 2000 funkade case 0 och case 3.
ok...då är jag nog med...men en fråga till:
vad gör följande:
ExitWindowsEx Lib "user32"
Är det typ "anropa funktionen ExitWindowsEx" som ligger i "Lib" (bibliotek ?) "user32"
Vad innebär "Force"?
När man tittar i "API viewer" så får man ju syntaxen för en viss funktion...MEN hur vet man vilka värden man ska skicka in?
ex:
<font size="1" face="Verdana, Arial, Helvetica, sans-serif">Kod:<font size="1" face="Verdana, Arial, Helvetica, sans-serif" color="#666600">
Public Declare Function ExitWindowsEx Lib "user32" Alias "ExitWindowsEx" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long
Så här står det när jag sökte på ExitWindowsEx, hur vet jag nu vad "uFlags" och "dwReserved" ska vara för nåt?