Oturum kapatma kodu..

[ReddeviL10]

Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Boolean
Private Const EWX_SHUTDOWN = 1
Private Const EWX_FORCE = 4
Private Const EWX_REBOOT = 2
Private Const EWX_LOGOFF = 0

Private Sub Command1_Click()
tamam = ExitWindowsEx(EWX_LOGOFF, 0)
If tamam = True Then
'islem basarılı
Else
  MsgBox ("Hata oluştu")
End If
End Sub

Dikkat:bunu çalıştırırken büğtün dosyalarınızı kaydedin..!ha

 

[ibrahimkaya396]

bunu biraz acıklasan usta neyin oturumunu kapatıyo