Langsung saja….
- Jalankan VB kalian (kami VB 6)
- Pilih Standart.exe – Open
- Klik 2x Form yang sedang aktif
- Setelah itu akan aktif di Jendela Code
- Hapus kode yang ada di Form Load
Gambar 1 : Tampilan VB sebelum dihapus dan copy paste (copas)
- 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
-----------------------------------------------------------------------------------------------
- Gak usah disimpan, langsung aja dijalankan tuh tombol Start langsung aja di Klik
- Terus lihat sekarang tombol Start Anda, apa yang terjadi…
- Tombol Start tidak aktif, tidak bisa diklik, bisa jadi, tulisan Startnya ilang
- Nah, kalo dah gitu berarti sukses,,,
- Untuk ngembalikannya tinggal di Restart aja…
- Ato kalo males restart, kalian bisa ke Task Manager, Restart Systemnya aja
- Kalian cari tulisan Explorer trus bisa di End Task, ato Matikan File VB yang sedang jalan tadi, pasti bisa balik…
- Oke guys…
- Semoga ngerti dan semoga bermanfaat…
- Amin…
Gambar 2 : Tombol Start Error, Aneh, dan Tidak Biasanya,,, Jelek tuh,,, g bisa di klik…
0 komentar:
Speak up your mind
Tell us what you're thinking... !