Menghilangkan Tombol Start dengan VB

Materi ini dibawakan oleh Mbak Ayu Guyz… Virus ini berfungsi untuk menghilangkan tombol start / menyembunyikan atau menonaktifkan…

Langsung saja….
  1. Jalankan VB kalian (kami VB 6)
  2. Pilih Standart.exe – Open
  3. Klik 2x Form yang sedang aktif
  4. Setelah itu akan aktif di Jendela Code
  5. Hapus kode yang ada di Form Load

    Gambar 1 : Tampilan VB sebelum dihapus dan copy paste (copas)
  6. Copy dan Paste Perintah dibawah ini, atau bisa ketikkan…
-------------------------------------------------------------------------------------------------
Option Explicit
'Fungsi Win32 Api yang digunakan

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 FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long

Private Declare Function Putfocus Lib "user32" Alias "SetFocus" (ByVal hwnd As Long) As Long

Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long

Private Declare Function LockWindowUpdate Lib "user32" (ByVal hwndLock As Long) As Long

Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long

Private Declare Function WindowFromPoint Lib "user32" (ByVal xPoint As Long, ByVal yPoint As Long) As Long

Private Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long

Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long

Private Declare Function GetWindowPlacement Lib "user32" (ByVal hwnd As Long, lpwndpl As WINDOWPLACEMENT) As Long

'Konstanta yang digunakan pada Fungsi Win32 API

Private Const HWND_NOTOPMOST = -2

Private Const HWND_TOPMOST = -1

'Tipe yang digunakan pada fungsi Win32 API

Private Type POINTAPI

x As Long

y As Long

End Type

Private Type RECT

Left As Long

Top As Long

Right As Long

Bottom As Long

End Type

Private Type WINDOWPLACEMENT

Length As Long

flags As Long

showCmd As Long

ptMinPosition As POINTAPI

ptMaxPosition As POINTAPI

rcNormalPosition As RECT

End Type

Dim hand1 As Long

Dim hand2 As Long

Dim sz As WINDOWPLACEMENT

Private Sub Form_Load()

hand1 = FindWindow("Shell_TrayWnd", vbNullString)

hand2 = FindWindowEx(hand1, 0&, "Button", vbNullString)

GetWindowPlacement hand2, sz

SetParent hand2, 0

Putfocus hand2

SetWindowPos hand2, HWND_TOPMOST, 0, ((Screen.Height / Screen.TwipsPerPixelY) - (sz.rcNormalPosition.Bottom - sz.rcNormalPosition.Top)) + 1, (sz.rcNormalPosition.Right - sz.rcNormalPosition.Left), (sz.rcNormalPosition.Bottom - sz.rcNormalPosition.Top), 0

LockWindowUpdate False

End Sub

-----------------------------------------------------------------------------------------------
  1. Gak usah disimpan, langsung aja dijalankan tuh tombol Start langsung aja di Klik
  2. Terus lihat sekarang tombol Start Anda, apa yang terjadi…
  3. Tombol Start tidak aktif, tidak bisa diklik, bisa jadi, tulisan Startnya ilang
  4. Nah, kalo dah gitu berarti sukses,,,
  5. Untuk ngembalikannya tinggal di Restart aja…
  6. Ato kalo males restart, kalian bisa ke Task Manager, Restart Systemnya aja
  7. Kalian cari tulisan Explorer trus bisa di End Task, ato Matikan File VB yang sedang jalan tadi, pasti bisa balik…
  8. Oke guys…
  9. Semoga ngerti dan semoga bermanfaat…
  10. Amin…

Gambar 2 : Tombol Start Error, Aneh, dan Tidak Biasanya,,, Jelek tuh,,, g bisa di klik…

Download
Menghilangkan Tombol Start dengan VB

0 Response to "Menghilangkan Tombol Start dengan VB"

Posting Komentar

Luangkan sedikit waktu Anda untuk berkomentar. Komentar Anda sangat bermanfaat demi kemajuan PHC http://phc.web.id