Saat ini sudah banyak sekali beredar virus-virus hasil anak bangsa. Yang mana orang akan semakin mudah membuatnya karena banyak sekali source code yang tersebar secara bebas. Pada tips kali ini akan kita buat sebuah program kecil yang bertujuan untuk mengisengi komputer teman. Jika anda mengembangkannya lebih lanjut maka akan menghasilkan sebuah virus yang cukup menjengkelkan.
Sebenarnya ini bukan sebuah virus. Ini hanya sebuah program kecil yang dibuat memakai Visual Basic 6 yang memanfaatkan komponen API milik windows sendiri. Mari kita praktekkan.
Buka program Visual Basic 6 anda dan buatlah form sekecil mungki. Dengan tujuan mouse tidak bisa bergerak diluar dari area mouse tersebut. Dan jangan lupa buat mode BorderStyle menjasi None agar form tidak bisa digerakkan. Selanjutnya masukkan coding berikut dalam form
Private Sub Form_Load()Dim client As RECT
Dim upperleft As POINT
GetClientRect Me.hWnd, client
upperleft.x = client.left
upperleft.y = client.top
ClientToScreen Me.hWnd, upperleft
OffsetRect client, upperleft.x, upperleft.y
ClipCursor client
End Sub
Dim upperleft As POINT
GetClientRect Me.hWnd, client
upperleft.x = client.left
upperleft.y = client.top
ClientToScreen Me.hWnd, upperleft
OffsetRect client, upperleft.x, upperleft.y
ClipCursor client
End Sub
Lalu buatlah sebuah module dan masukkan coding berikut
Declare Sub ClipCursor Lib "user32" (lpRect As Any)
Declare Sub GetClientRect Lib "user32" (ByVal hWnd _
As Long, lpRect As RECT)
Declare Sub ClientToScreen Lib "user32" (ByVal hWnd _
As Long, lpPoint As POINT)
Declare Sub OffsetRect Lib "user32" (lpRect As RECT, _
ByVal x As Long, ByVal y As Long)
Declare Sub GetClientRect Lib "user32" (ByVal hWnd _
As Long, lpRect As RECT)
Declare Sub ClientToScreen Lib "user32" (ByVal hWnd _
As Long, lpPoint As POINT)
Declare Sub OffsetRect Lib "user32" (lpRect As RECT, _
ByVal x As Long, ByVal y As Long)
Private Sub Form_Unload(Cancel As Integer) 'Jangan lupa yang ini!
ClipCursor ByVal 0&
End Sub
Public Type RECT
left As Integer
top As Integer
right As Integer
bottom As Integer
End Type
Public Type POINT
x As Long
y As Long
End Type
Selanjutnya tinggal anda compile menjadi file exe dan silakan anda coba sendiri.
Anda bisa membuat kemampuan program menjadi lebih hebat lagi dengan menambah coding menghilangkan program dari task manager. Dan jika anda ingin lebih usil lagi bisa dengan membuat sebuah entry di registry agar pada saat Starup program otomatis di jalankan.
Selamat berjengkel ria.....!!!
