Başlangıç > Kodlar > Visual Basic ile Apiler hakkında

Visual Basic ile Apiler hakkında


Apileri kullanarak bilgisayarı kapama,restart yapma,sisteme cevap vermeyen programları
kapatan bi program umarım işinize yarar:)) acaromer

Command1,Command2,Command3,Command4 adında 4 tane buton yerleştirin formumuza programımız hazır...


Private Declare Function exitwindowsex Lib "user32" (ByVal uflags As Long, ByVal dwreserved As Long) As Long
Private Sub Command1_Click()
Dim c
c = MsgBox("Windows Yeniden Başlatılacak.  ", vbYesNoCancel, "Restart")
If c = vbYes Then
c = exitwindowsex(42, 0)
End If
End Sub

Private Sub Command2_Click()
Dim c
c = MsgBox("Windows Kapatılacak!!... ", vbYesNoCancel, "Restart")
If c = vbYes Then
c = exitwindowsex(42, 1)
End If
End Sub

Private Sub Command3_Click()
Dim c
c = MsgBox("Windows Yeniden Başlatılacak. ", vbYesNoCancel, "Restart")
If c = vbYes Then
c = exitwindowsex(42, 2)
End If
End Sub

Private Sub Command4_Click()
Dim c
c = MsgBox("Windows Sisteme Cevap Vermeyen Programları Sonlandıracak!. ", vbYesNoCancel, "Restart")
If c = vbYes Then
c = exitwindowsex(42, 4)
End If
End Sub

  1. Henüz yorum yapılmamış.
  1. No trackbacks yet.

Bir Cevap Yazın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: