Membuat Virus Mouse Dari VB6

Tips Jaringan Komputer.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

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)

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