Cara Membuat Virus Menggunakan Visual Basic (VB) Virus komputer merupakan program komputer yang dapat menggandakan atau menyalin dirinya sendiri dan menyebar dengan cara menyisipkan salinan dirinya ke dalam program atau dokumen lain. Virus komputer dapat dianalogikan dengan virus biologis yang menyebar dengan cara menyisipkan dirinya sendiri ke sel makhluk hidup. Virus komputer dapat merusak (misalnya dengan merusak data pada dokumen), membuat pengguna komputer merasa terganggu, maupun tidak menimbulkan efek sama sekali. Australian Topographic Maps For Garmin Gps. Virus yang akan kita coba buat kali ini akan dibuat dengan menggunakan Visual Basic Script. Terlebih dulu kira akan rencakan skenario kerja dari virus tersebut. Skenario virus tersebut adalah sebagai berikut: 1. Virus akan mencari file-file.JPG pada folder dan subfolder satu tingkat didalamnya, setelah itu merubah ekstension file JPG tersebut menjadi JPEG dan merubah atributnya menjadi hidden file.

Membuat Antivirus Menggunakan Visual Basic 6.0 1.Buka Program microsoft visual basic 6.0 ->Standard. Mscomctl.Ocx DENGAN cara klik Project. Cara membuat antivirus menggunakan visual basic beserta contoh dan pengertiannya!!! By Billie Jaya Hartono in Types >Research >Internet & Technology and cara. CARA MEMBUAT VIRUS & ANTI VIRUS MENGGUNAKAN VISUAL BASIC 6 halo sobat ku, kali ini saya akan memberikan sedikit tutorial cara membuat virus dengan menggunakan Visual. Mar 02, 2011 1.Buka program microsoft visual basic 6.0 ->Standard EXE ->OK maka akan tampil form baru sesuai dengan gambar di.

Sehingga akan dikira file tersebut terhapus. Meng-copy-kan dirinya (virus) dalam folder-folder tertentu dalam Windows 3. Memodifikasi Registry agar secara otomatis menjalankan script virus pada saat restart 4. Menularkan diri pada drive-drive yang aktif termasuk flash disk 5. Membuat halaman HTML tertentu agar dijalankan pada start page di Internet Explorer Nah, demikianlah skenario virus yang akan kita buat. Untuk lebih jelasnya kita akan pelajari dari script dibawah ini: 1.

• Jaket Transparan Buatan Jepang /via @ • Manfaat Minum Air Putih pada saat perut kosong /via @ • Internet Gratis Dengan Cara Membobol Password Wifi Hotspot Warnet, Cafe, dan Kampus /via @ • Pengertian Source Code /via @ • Pengertian Cisco? /via @ It’s Me My Name: Rahmat Arifin Class: 1DC02 Form: Bekasi, Tambun ╔╗ ║║ღ═╦╦╦═ღ ღ╚╣║ღ║║╠╣ ╚═╩═╩ღ╩═╝ Allah Swt.

Isa Server 2000 Serial Number. Percayalah bahwa Sang Pencipta maha mengetahui sehingga sanubari senantiasa berdzikir tanpa henti Renungkanlah makna hidup setiap insan di dunia ini.

Lalu pada tab Column Headers klik insert column - Column 1 beri nama: Virus Name - Column 2 beri nama: Path - Column 3 beri nama: Checksum Virus - Column 4 beri nama: Status Virus lalu klik Ok Tambahkan picture box buat picture box itu sekecil mungkin dan beri nama sIcon Setting: Appearance: Flat Auto Redraw: True Border Style: None Visible: False Tambahkan Textbox ke dalam form dengan nama txtPath Setting: Appearance: Flat Border Style: None Tambahkan Command Button dengan nama cmdBrowse di samping Textbox yang telah di buat tadi Setting: Caption. Masukan Code ini ke dalam cmdBrowse.

'Code: If cmdScan.Caption = 'Scan' Then Pathnya = txtPath.Text If Mid(Pathnya, 2, 1) ':' Or Pathnya = ' Then MsgBox 'Direktori Tidak Ditemukan', vbCritical, 'Error' Exit Sub Else lvScan.Enabled = False cmdEnable False, False, False clear_log cmdScan.Caption = 'Stop' StopScan = False FindFilesEx txtPath.Text, CBool(chkSubDir.Value) MsgBox 'Scan finished!' & vbNewLine & vbNewLine & 'Total Dir Scanned = ' & lblDirScan.Caption & _ vbNewLine & 'Total File Scanned = ' & lblFileScan.Caption & vbNewLine & 'Total File Detected = ' & lblFileDet.Caption, vbInformation, 'Finish' If lblFileDet.Caption '0' Then cmdEnable True, True, True Else cmdEnable False, False, True End If lvScan.Enabled = True cmdScan.Caption = 'Scan' End If Else cmdScan.Caption = 'Scan' StopScan = True End If. /Code: Private Sub lvScan_ItemCheck(ByVal Item As MSComctlLib.ListItem) UnSelect lvScan, 'Di Karantina' UnSelect lvScan, 'Di Hapus' End Sub Private Function cmdEnable(hapus As Boolean, Quarantine As Boolean, openQuarantine As Boolean) cmdAction(0).Enabled = hapus cmdAction(1).Enabled = Quarantine cmdViewQ.Enabled = openQuarantine End Function Private Function clear_log() lblDirScan.Caption = 0 lblFileScan. Kyocera Fehler Entwickler Installieren. Caption = 0 lblFileDet.Caption = 0 lvScan.ListItems.Clear jumlahDir = 0 jumlahFile = 0 jumlahVirus = 0 End Function.