vb den windows u kapama

K

kostantine1

Yeni üye
3 Kas 2009
29
0
arkadaşlar denedim teşekkür rep esirgemeyelim


' modul oluştur içine kodu yaz
Declare Function ExitWindowsEx& Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long)
Public Const ZorlaKapat = 4
Public Const LOGOFF = 0
Public Const KapatAc = 2
Public Const Kapat = 1Private Sub Command1_Click()
Dim MsgRes As Long
MsgRes = MsgBox("Windows'unuzu kapatmak istiyor musunuz?", vbYesNo Or vbQuestion)
If MsgRes = vbNo Then Exit Sub
Call ExitWindowsEx(Kapat, 0)
Unload Me
End Sub
 
E

e377

Uzman üye
24 Nis 2009
1,245
0
Milli İstihbarat Teşkilatı
' modul oluştur içine kodu yaz:
Declare Function ExitWindowsEx& Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long)
Public Const ZorlaKapat = 4
Public Const LOGOFF = 0
Public Const KapatAc = 2
Public Const Kapat = 1
' form içine yazılacaklar:
Private Sub Command1_Click()
Dim MsgRes As Long
MsgRes = MsgBox("Windows'unuzu kapatmak istiyor musunuz?", vbYesNo Or vbQuestion)
If MsgRes = vbNo Then Exit Sub
Call ExitWindowsEx(Kapat, 0)
Unload Me
End Sub

HATAYI DÜZELTTİM BEYLER İYİ KULLANIMLAR FORM İÇİNE COMMANDBUTTON OLUŞTURMAYI UNUTMAYIN....;)
 
Cevap yazmak için giriş yap yada kayıt ol.
Üst

Turkhackteam.org internet sitesi 5651 sayılı kanun’un 2. maddesinin 1. fıkrasının m) bendi ile aynı kanunun 5. maddesi kapsamında "Yer Sağlayıcı" konumundadır. İçerikler ön onay olmaksızın tamamen kullanıcılar tarafından oluşturulmaktadır. Turkhackteam.org; Yer sağlayıcı olarak, kullanıcılar tarafından oluşturulan içeriği ya da hukuka aykırı paylaşımı kontrol etmekle ya da araştırmakla yükümlü değildir. Türkhackteam saldırı timleri Türk sitelerine hiçbir zararlı faaliyette bulunmaz. Türkhackteam üyelerinin yaptığı bireysel hack faaliyetlerinden Türkhackteam sorumlu değildir. Sitelerinize Türkhackteam ismi kullanılarak hack faaliyetinde bulunulursa, site-sunucu erişim loglarından bu faaliyeti gerçekleştiren ip adresini tespit edip diğer kanıtlarla birlikte savcılığa suç duyurusunda bulununuz.