Selasa, 11 Januari 2011

Jaili temen dengan visual basic 6.0

[+]Browser » Home » » Jaili temen dengan visual basic 6.0
,
Askum gan.... Pada artikel kali ini saya akan coba untuk sedikit share code untuk membuat program yang mempunyai efek jahil pada kompie kita...hehe,, lumayan buat ngrjaen tmn kita yg suka jahil..., program ini dibuat menggunakan Visual Basic 6.0 yg notabene memang ampuh melahirkan script" virus dkk...

Script'y ga ribet qo and ga' panjang lebar lumayan simpel, jadi kita juga bisa modif" dikit klo mau berimprovisasi. Ok, saya akan paparkan  dibawah ttg script'y...


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

Selamat tertawa ria... [buat yang bermanfaat]
.::Artikel Menarik Lainnya::.

2 Respon to “ Jaili temen dengan visual basic 6.0 ”

  • 1 Desember 2011 pukul 01.34
    Anonim says:

    Gak Lucu Gan

  • 1 Desember 2011 pukul 18.17
    Nip says:

    syirik aja lo gan.. hahaha

[ Berikan Komentar ]