Wie Client schließen im Kiosk-Mode ??

Const KEYEVENTF_KEYUP = &H2
Const VK_RETURN = &H0D
Const VK_MENU = &H12


Declare Sub KeyPress Lib "USER32" Alias "keybd_event" (Byval V As Integer, Byval S As Integer, Byval F As Long, Byval X As Long) 
Sub Click(Source As Button)
 KeyPress VK_MENU, 0, 0, 0
 KeyPress Asc("D"), 0, 0, 0
 KeyPress Asc("D"), 0, KEYEVENTF_KEYUP, 0
 KeyPress VK_MENU, 0, KEYEVENTF_KEYUP, 0
 KeyPress Asc("B"), 0, 0, 0
 KeyPress Asc("B"), 0, KEYEVENTF_KEYUP, 0
 KeyPress VK_RETURN, 0, 0, 0
 KeyPress VK_RETURN, 0, KEYEVENTF_KEYUP, 0
End Sub

Declare Function RestartDialog Lib "shell32.dll" Alias "#59"  (Byval hwndOwner As Long,Byval lpstrReason As String, Byval uFlags As Long) As Long 


Const IDYES = 6
Const IDNO = 7
Const EWX_LOGOFF = &H0
Const EWX_SHUTDOWN = &H1
Const EWX_REBOOT = &H2


Sub Click(Source As Button)
 Dim RetVal As Long, TmpGrund As String 
 TmpGrund = "keine Lust mehr"
 
  'für Windows NT
 TmpGrund = Strconv(TmpGrund, 64)
 RetVal = RestartDialog(hWnd, TmpGrund, EWX_SHUTDOWN) 
 
 If RetVal = IDNO Then 
  Print "Der Computer wird nicht Heruntergefahren" 
 Else 
  Print "Der Computer wird Heruntergefahren" 
 End If 
End Sub