Virus ini tidak berbahaya hanya untuk menghilangkan tombol start / menyembunyikan atau menonaktifkan…
Bagi teman-teman yang dikomputernya terdapat file penting tidak usah khawatir. Untuk membuat virus ini terlebih dahulu komputer anda harus ada VB nya terlebih dahulu (Itu sudah pasti lah bisa dilihat dari judulnya, klo gak ada VB nya mana bisa kita membuatnya iya kan).
Langsung saja pada proses pembuatan virus….
Langsung saja pada proses pembuatan virus….
1. Jalankan VB anda (saya menggunakan 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. Anda ketikkan perintah seperti dibawah ini…
-------------------------------------------------------------------------------------------------
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
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
LockWindowUpdate False
End Sub
-----------------------------------------------------------------------------------------------
- Setelah selesai pengkodengan gak usah disimpan, langsung aja dijalankan tuh tombol Start langsung aja di Klik
- Lalu lihat sekarang tombol Start pada komputer Anda, apa yang terjadi…
- Tombol Start tersebut tidak aktif, tidak bisa diklik, dan bisa jadi tulisan Startnya ilang
- Nah, kalo dah gitu berarti sukses,,,
- Anda gak usah bingung untuk ngembalikan Tombol Start, Anda hanya perlu merestart komputer aja…
- Bisa juga dengan cara tekan ctrl+alt+del (Task Manager), lalu Restart Systemnya aja
- Kalian cari tulisan Explorer trus bisa di End Task, ato Matikan File VB yang sedang jalan tadi, pasti bisa balik…
- Semoga ngerti dan semoga bermanfaat…
- Amin…
Gambar 2 : Tombol Start Error, Aneh, dan Tidak Biasanya,,, Jelek tuh,,, g bisa di klik…
Nama : HARIES SETYO UTOMO
NIM : 1010652038
Kelas : TI SORE (SEM 1)
Tidak ada komentar:
Posting Komentar