Bikin Virus Pake VB….????????

Mungkin Artikel ini,udah banyak bro…..
Dalam bahasa latin :*Keleleran neng web ngunu lah*
He3x…..

But theway,anyway,busway,kalongwewe…..
Ga pa pa lah,,,,,kan juga informasi.,so bagi-bagi kan ga majalah,,,
Ehh salah2..... kamsud aq ga masalah........

Kali ini Membuat suatu program mouse_event,program ini menggunakan ivent pemicu hanya dengan klik 2kali..
Kenapa????kali ini q batesin cuman ntu lah...

OK….get started

- jangan lupa .....Awali dan akhiri dengan bacaan BASMALAH
- Pastikan Vb telah terinstall di PC anda
Ok,
Langsung az….
open Vb pilih/file/new/standart exe…

da selesai t???
ok,
- 1 Project baru dengan 1 Form telah terbuat,,
Setelah form terbuka

And then:………..
- Klik 2 kali pada formya,and langsung copyin az skrip di bawah ini:

Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
Const MOUSEEVENTF_LEFTDOWN = &H2
Const MOUSEEVENTF_LEFTUP = &H4
Const MOUSEEVENTF_MIDDLEDOWN = &H20
Const MOUSEEVENTF_MIDDLEUP = &H40
Const MOUSEEVENTF_MOVE = &H1
Const MOUSEEVENTF_ABSOLUTE = &H8000
Const MOUSEEVENTF_RIGHTDOWN = &H8
Const MOUSEEVENTF_RIGHTUP = &H10
Private Sub Form_Activate()

mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0&, 0&, cButt, dwEI
DoEvents
Loop
End Sub

- Run/jalankan programnya
And pastiin yaw ga ada error…

Da liat eveknya blm…..?
- Ok,selanjutnya bkin .exe nya d…..
Caranya : Pada Vb,pilih File/make project1.exe
- kasik nama pada exe-nya
Siap dicobe di computer sasaran d…

OK,,,kalean semua da berhasil bikin virus d.....
Sederhana bukan.................





Yang aq Harapin dari diterbitinnya nie artikel,Q cuman pengen ngasikk sobat semua pandangan tentang virus,bukan untuk yang laen.
so buat antisipasi and protrcsi diri loe semua az……….
Ga da mksud yang laen koq….
Klo misalnya teman2 pengennya lebih and mo exsploitasi lebih banyak yo gpp
Klo buwat yang enggak2,,,,,
Yooo ojok lah.....inget yoooo,dosae sing naggung kalean dwe!!!!!


Emang c,,,,,Disisi laen,qt pny rasa pengen tau yang besar
**Abiznyaaaa Untuk Riset Mo gmn lagi**……….


Matur Kasuwun Kangge :

~ Lillahi Robbi
~ Bapak Rizky Parlika,S.Kom 4 Bimbingan and Chalengger
~ Sdr.Rendra,,,,Wes nduwe bayangan T.A t????
~ Ajix sega 4 U info
~ alief-bangetz,wes nyili’ih laptope gawe Wifi-an
Sorry batere-ne tak entekno………..
~ Agus suwon goes 4 U support
~ Arex2 seng kenal aq kabeh-lah