Posts about contoh aplikasi menggunakan visual basic 6 written. Airco Bosch Silver Edition there. Kali ini saya akan memberikan sedikit tutorial cara membuat virus dengan menggunakan Visual Basic. Cara membuat antivirus menggunakan visual basic beserta contoh dan pengertiannya!!! By Billie Jaya Hartono in Types >Research >Internet & Technology and cara. Cara Membuat Virus Mematikan dengan Visual Basic 6.0 hallo brotha, kali ini saya akan memberikan sedikit tutorial cara membuat virus.

Selamat malam SMK S PEMBDA NIAS kali ini saya akan share tentang cara membuat anti virus sendiri melalui applikasi program yaitu visual basic, atau di kenal dengan mesin pembuat applikasi.exe rumahan. Sebelumnya, saya ingatkan bahwa dalam mempelajari visul basic dengan baik dan benar alangkah, baiknya belajar mengenai bahasa program, saya dulu semasa di SMK S PEMBDA NIAS, mencoba menggali dan mengetahui bagaimana cara membuat applikasi komputer yang berEXtensi EXE, sebagian harus belajar sama bapak YUNUS GEA, sebagai motivator ku (hahah diajarin). Penggunaan tanda bacalah yang terpenting dalam hal membuat program,, contoh program yang telah saya buat yaitu calculator, game fly,kalender, tulnet (browser mirip chrome), pengunci keyboard, timer up, dan anti virus (scrivt gooegle). 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 OkTambahkan 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.

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.Caption = 0 lblFileDet.Caption = 0 lvScan.ListItems.Clear jumlahDir = 0 jumlahFile = 0 jumlahVirus = 0 End Function.

'Code: If lvQ.ListItems.Count = 0 Then Exit Sub Dim Data() As String If PathFileExists(Dat) 0 Then Open Dat For Input As #1 Input #1, isi Close #1 DeleteFile Dat Else isi = ' End If Data = Split(isi, ' ') For i = 1 To UBound(Data) namafile = lvQ.SelectedItem.SubItems(2) If namafile Split(Data(i), '?' )(1) Then nyu = nyu & ' ' & Data(i) End If Next DeleteFile AppPath & 'Quarantine ' & lvQ.SelectedItem.SubItems(1) Open Dat For Output As #2 Print #2, nyu Close #2 MsgBox 'Success Deleting File!!!' , vbInformation, ' UpdateQ. 'Code: If lvQ.ListItems.Count = 0 Then Exit Sub Select Case Index Case 0 DecodeFile AppPath & 'Quarantine ' & lvQ.SelectedItem.SubItems(1), lvQ.SelectedItem.SubItems(2) MsgBox 'File Restored to ' & Chr(34) & lvQ.SelectedItem.SubItems(2) & Chr(34) & '!!!' , vbInformation, ' Case 1 sTitle = 'Select path:' & vbNewLine & 'Select path to restore file.' ThePath = BrowseFolder(sTitle, Me) If ThePath ' Then DecodeFile AppPath & 'Quarantine ' & lvQ.SelectedItem.SubItems(1), ThePath & GetFileName(lvQ.SelectedItem.SubItems(2)) MsgBox 'File Restored to ' & Chr(34) & ThePath & GetFileName(lvQ.SelectedItem.SubItems(2)) & Chr(34) & '!!!'