WinBlocker

Postingan kali ini adalah bagai mana kita membuat sebuah aplikasi Win blocker yang dibuat menggunakan Microsoft visual basic 6.0.

pertama kita buka aplikasi visual basic dan buatlah sebuah form seperti tampilan di gambar dan berikan sebuah text dengan nama Pass.

lalu di menu masukan listing berikut:

Option Explicit
Private Declare Function ExitWindowsEx Lib "user32" (ByVal uflags As Long, ByVal dwReserved As Long) As Long
Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, lpvParam As Any, ByVal fuWinIni As Long) As Long
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
Const SM_CXSCREEN = 0
Const SM_CYSCREEN = 1
Const HWND_TOP = 0
Const SWP_SHOWWINDOW = &H40
Const SWP_NOMOVE& = &H2
Const SWP_NOSIZE& = &H1
Public T As Integer

Public Sub ShutDown(uflags As Long)
Call ExitWindowsEx(uflags, 0)
End Sub
Private Sub Form_Load()
Dim cx, lFlags As Long
Dim cy As Long
Dim RetVal As Long
Dim pOld As Boolean
If Me.WindowState = vbMaximized Then
Me.WindowState = vbNormal
End If
T = 0
cx = GetSystemMetrics(SM_CXSCREEN)
cy = GetSystemMetrics(SM_CYSCREEN)

lFlags = SWP_NOSIZE Or SWP_NOMOVE
RetVal = SetWindowPos(Me.hwnd, -1, 0, 0, 0, 0, lFlags)

' hide from ctlaltdel
RetVal = SystemParametersInfo(97, True, pOld, 0)
App.TaskVisible = False
End Sub


Private Sub Form_Terminate()
Dim RetVal As Long
Dim pOld As Boolean
RetVal = SystemParametersInfo(97, False, pOld, 0)
End Sub

Private Sub Form_Unload(Cancel As Integer)
Dim RetVal As Long
Dim pOld As Boolean
RetVal = SystemParametersInfo(97, False, pOld, 0)
End Sub

Private Sub Pass_KeyUp(KeyCode As Integer, Shift As Integer)
If Pass.Text = "infoislam99" Then
End
End If
If Pass.Text = "exit" Then End
If Pass.Text = "shutdown" Then Call ShutDown(1)
If Pass.Text = "reboot" Then Call ShutDown(2)
If Pass.Text = "logoff" Then Call ShutDown(0)
End Sub


Setelah listing tersebut dimasukan simpan program dan jalankan... !!!
maka windows ana akan terblokir dengan program tersebut masukan di text :
infoislam99 atau exit untuk menghentikan program
ketikan shutdown untuk mematikan komputer
ketikan reboot untuk merestart ulang komputer
ketikan logoff untuk logoff komputer.

terimakasih semoga bermanfaat mohon maaf jika ada yg salah... :D