tag:blogger.com,1999:blog-763725542185500675.post9209333393901062535..comments2023-05-22T02:44:32.156-07:00Comments on Bali Technology: CARA MEMBUAT ANTIVIRUS DENGAN VISUAL BASIC 6Baiyuwhttp://www.blogger.com/profile/18167270483993527089noreply@blogger.comBlogger45125tag:blogger.com,1999:blog-763725542185500675.post-15413790133308490762014-07-13T23:20:26.327-07:002014-07-13T23:20:26.327-07:00Thank you udah jadi deh antivirusnya namanya astro...Thank you udah jadi deh antivirusnya namanya astroprotection.exeAnonymoushttps://www.blogger.com/profile/05791677342522360241noreply@blogger.comtag:blogger.com,1999:blog-763725542185500675.post-72985508881344582602013-12-18T19:49:05.401-08:002013-12-18T19:49:05.401-08:00Kalian boleh coba Antivirusku yang sudah jadi di
h...Kalian boleh coba Antivirusku yang sudah jadi di<br />http://www.4shared.com/rar/4gDSfgqI/Contoh_AV_VB60.htmlAnonymoushttps://www.blogger.com/profile/02295546854488506982noreply@blogger.comtag:blogger.com,1999:blog-763725542185500675.post-46878624980998163902013-12-18T19:24:39.476-08:002013-12-18T19:24:39.476-08:00untuk kode txtPath.Text, CBool(chkSubDir.Value) co...untuk kode txtPath.Text, CBool(chkSubDir.Value) coba tambahkan sebuah Checkbox dengan Name = chkSubDir dan Caption terserah , Tambahkan juga ImageList dengan Name = ImgSmall Kemudian tekan F5Anonymoushttps://www.blogger.com/profile/02295546854488506982noreply@blogger.comtag:blogger.com,1999:blog-763725542185500675.post-5279182506844331452013-07-12T01:31:45.851-07:002013-07-12T01:31:45.851-07:00Tolong perbaiki Source codeku http://www.mediafire...Tolong perbaiki Source codeku http://www.mediafire.com/download/dh516obl4vwxf4a/AV_Sederhana.rar<br />Anonymoushttps://www.blogger.com/profile/04401952439165811322noreply@blogger.comtag:blogger.com,1999:blog-763725542185500675.post-49795556472206916302013-07-12T01:27:50.412-07:002013-07-12T01:27:50.412-07:00FindFilesEx txtPath.Text, CBool(chkSubDir.Value) ...FindFilesEx txtPath.Text, CBool(chkSubDir.Value) di cmdScan<br />If IconExist <= 0 Then IconExist = ExtractIconEx(lpFileName, 0, hIcon, ByVal 0&, 1) If IconExist <= 0 Then Exit Function End If frmUtama.sIcon.BackColor = vbWhite DrawIconEx frmUtama.sIcon.hDC, 0, 0, hIcon, 0, 0, 0, 0, DI_NORMAL DestroyIcon hIcon PicPath = Environ$("windir") & "\tmp.tmp" SavePicture frmUtama.sIcon.Image, PicPath ByteSum = CalcBinary(PicPath, FileLen(PicPath)) DeleteFile PicPath CalcIcon = ByteSum End Function<br />di modHeuristic<br />If Value < 0 Then Value = Value + 256 ByteArray(x) = Value Next End Sub di modQuar<br />If FileLen(FilePath) / 1024 <= 512 Then CekVirus = CekHeuristic(FilePath) End If End Function Public Sub FindFilesEx(ByVal lpFolderName As String, ByVal SubDirs As Boolean) Dim i As Long Dim hSearch As Long, WFD As WIN32_FIND_DATA Dim Result As Long, CurItem As String Dim tempDir() As String, dirCount As Long Dim RealPath As String, GetViri As String GetViri = "" dirCount = -1 ScanInfo = "Scan File" If Right$(lpFolderName, 1) = "\" Then RealPath = lpFolderName Else RealPath = lpFolderName & "\" End If hSearch = FindFirstFile(RealPath & "*", WFD) If Not hSearch = INVALID_HANDLE_VALUE Then Result = True Do While Result DoEvents If StopScan = True Then Exit Do CurItem = StripNulls(WFD.cFileName) If Not CurItem = "." And Not CurItem = ".." Then If PathIsDirectory(RealPath & CurItem) <> 0 Then<br />di modScanning<br />Semua error<br />Anonymoushttps://www.blogger.com/profile/04401952439165811322noreply@blogger.comtag:blogger.com,1999:blog-763725542185500675.post-43500187582262608932013-03-29T02:29:06.705-07:002013-03-29T02:29:06.705-07:00error kodenya mz gimana nih tidak bisa menurut pen...error kodenya mz gimana nih tidak bisa menurut pendapat saya FindFilesEx txtPath.Text, CBool(chkSubDir.Value) itu artinya mencari file yang ex apa itu !!!makanya errorRasyidhttps://www.blogger.com/profile/04312473058037621341noreply@blogger.comtag:blogger.com,1999:blog-763725542185500675.post-54480555938230650552013-03-20T18:59:21.809-07:002013-03-20T18:59:21.809-07:00gan skarang masalah a baru lagii ...
error yang km...gan skarang masalah a baru lagii ...<br />error yang kmrn dah bner, skrng low mau scan ...<br />scan a gk jalan2 (program berjalan tapi scan gk jalan) ... <br />kayak gk ada respon, itu gmna ??Dwiki Syahputrahttps://www.blogger.com/profile/08306786118768146305noreply@blogger.comtag:blogger.com,1999:blog-763725542185500675.post-34439433527061596302013-03-20T17:43:41.756-07:002013-03-20T17:43:41.756-07:00saya error di
"FindFilesEx txtPath.Text, CBo...saya error di <br />"FindFilesEx txtPath.Text, CBool(chkSubDir.Value)"<br />di FindFilesEx di Blok warna kuning ...<br />itu knpa yaa ??<br />padahal saya dagh ngikutin perintah agan dari awal - akhir lhooo ...Dwiki Syahputrahttps://www.blogger.com/profile/08306786118768146305noreply@blogger.comtag:blogger.com,1999:blog-763725542185500675.post-72997318084447578682013-03-20T06:46:09.057-07:002013-03-20T06:46:09.057-07:00gan gatot nih .... (GAGAL TOTAL)
kok slalu muncul ...gan gatot nih .... (GAGAL TOTAL)<br />kok slalu muncul pesan ini saat saya mau mulai scan<br /><br />"Compile Error "<br />"Sub or function not denifeid"<br /><br />itu knpa yaa ??<br />*Jawab dund ... dtunggu nea ....Dwiki Syahputrahttps://www.blogger.com/profile/08306786118768146305noreply@blogger.comtag:blogger.com,1999:blog-763725542185500675.post-87168078916186013842013-02-16T00:43:51.686-08:002013-02-16T00:43:51.686-08:00bang custom nye di mana????bang custom nye di mana????Firdaus Febrian Kresnahttps://www.blogger.com/profile/16531130192601456010noreply@blogger.comtag:blogger.com,1999:blog-763725542185500675.post-65317592249814913672013-01-02T17:19:46.351-08:002013-01-02T17:19:46.351-08:00sudah coba di tambahin script visible = false tap...sudah coba di tambahin script visible = false tapi masih keluar tulisan Compile error: Syntax error<br /><br />mohon penjelasannya?<br />aakfahma@gmail.com<br />aajapa11.blogspot.comMr.ahttps://www.blogger.com/profile/14596175977486003633noreply@blogger.comtag:blogger.com,1999:blog-763725542185500675.post-41680820658174033132012-12-27T11:28:04.700-08:002012-12-27T11:28:04.700-08:00Hebat BROW!!!tutorialnya tapi aku kpengn anti Viru...Hebat BROW!!!tutorialnya tapi aku kpengn anti Virus yang ampuh seperti Avast Internet scurity...http://gunungcikuray.blogspot.comTonoMaryonohttps://www.blogger.com/profile/10174819502476388383noreply@blogger.comtag:blogger.com,1999:blog-763725542185500675.post-18802087243485459882012-11-26T15:22:06.543-08:002012-11-26T15:22:06.543-08:00gan ane sudah nyoba sama persis sama tutor ente,tp...gan ane sudah nyoba sama persis sama tutor ente,tp pas d scan kok error "Run time error "424"" Object required dan yg slah pas bagian lvScan.Enabled = False,mohon bantuanya gan soalnye ane baru blajar...<br />klo agan tau mohon krim jwabanye ke dendydistric@gmail.com<br />trima kasih sebelumya ganVELFOXhttps://www.blogger.com/profile/07208636966137418887noreply@blogger.comtag:blogger.com,1999:blog-763725542185500675.post-39004457470305800852012-11-11T11:32:25.173-08:002012-11-11T11:32:25.173-08:00Gan kirim sorce code nya ke email aku rildwanramad...Gan kirim sorce code nya ke email aku rildwanramadhan@yahoo.co.idRildwan Ramadhanhttps://www.blogger.com/profile/01980519085918932323noreply@blogger.comtag:blogger.com,1999:blog-763725542185500675.post-64429969450231843032012-11-05T05:54:01.217-08:002012-11-05T05:54:01.217-08:00gan bisa bikin video tutorianya gak? tolong di upl...gan bisa bikin video tutorianya gak? tolong di upload ke youtube. please! please!Anonymoushttps://www.blogger.com/profile/00097323170904476410noreply@blogger.comtag:blogger.com,1999:blog-763725542185500675.post-75768565452248865512012-10-29T03:56:45.680-07:002012-10-29T03:56:45.680-07:00coba mas agan-agan tambahkan script yg salah tadi ...coba mas agan-agan tambahkan script yg salah tadi dengan visible = false hasilnya seperti ini<br />FindFilesEx txtPath.Text, CBool(chkSubDir.Value)visible = falseadminhttps://www.blogger.com/profile/17376254541471240004noreply@blogger.comtag:blogger.com,1999:blog-763725542185500675.post-19537910513939231212012-10-06T00:18:48.648-07:002012-10-06T00:18:48.648-07:00bang kok yang saya pas dipencet cotum gak ada mala...bang kok yang saya pas dipencet cotum gak ada malah ada bacaan Clss registered<br />Anonymoushttps://www.blogger.com/profile/09795924862693561773noreply@blogger.comtag:blogger.com,1999:blog-763725542185500675.post-53109458856811418082012-09-06T11:05:25.347-07:002012-09-06T11:05:25.347-07:00kalu saya sudah jadi klian tinggal tambahkan saja ...kalu saya sudah jadi klian tinggal tambahkan saja check box<br /><br />saya udah jadi saat ditmbahkan chekbox<br /><br />Thanks bayu adiguna atas tutorialnya :)Sang Developerhttps://www.blogger.com/profile/02917544806928317085noreply@blogger.comtag:blogger.com,1999:blog-763725542185500675.post-953212931652234552012-08-31T07:15:07.163-07:002012-08-31T07:15:07.163-07:00kk gimana kok salah pada bagian findfilesEx itu g...kk gimana kok salah pada bagian findfilesEx itu gimana ??septian ' "RPL"https://www.blogger.com/profile/08314434769484092979noreply@blogger.comtag:blogger.com,1999:blog-763725542185500675.post-3927940945395083472012-08-12T15:30:59.834-07:002012-08-12T15:30:59.834-07:00banyak sekali cara-caranya, saya kira sedikit hehe...banyak sekali cara-caranya, saya kira sedikit hehehe...??? :-dAnonymousnoreply@blogger.comtag:blogger.com,1999:blog-763725542185500675.post-19430982935149766292012-07-17T21:23:18.863-07:002012-07-17T21:23:18.863-07:00panjang banget om source code nya... btw untuk daf...panjang banget om source code nya... btw untuk daftar/list virusnya gmana biar bisa deteksi virus baru....Anonymousnoreply@blogger.comtag:blogger.com,1999:blog-763725542185500675.post-90434684369083445962012-07-17T05:10:48.003-07:002012-07-17T05:10:48.003-07:00mengapa pada script cmdscan_click error yang
"...mengapa pada script cmdscan_click error yang<br />"FindFilesEx txtPath.Text, CBool(chkSubDir.Value)"<br />karena di modulnya yang bernama modscanning yaitu<br />function "FindFilesEx" tidak ada atau codenya ada yang salah jadi tidak bisa di compileTutorial Antivirushttps://www.blogger.com/profile/04817156544208668525noreply@blogger.comtag:blogger.com,1999:blog-763725542185500675.post-4484857082089196402012-07-15T19:40:50.297-07:002012-07-15T19:40:50.297-07:00terima kasih ya Mas. tapi bagaimana caranya supaya...terima kasih ya Mas. tapi bagaimana caranya supaya bisa tambah paham ya?Ustadz Hendri Purnamahttps://www.blogger.com/profile/10514755758440730295noreply@blogger.comtag:blogger.com,1999:blog-763725542185500675.post-75382014741012926762012-07-10T07:11:04.580-07:002012-07-10T07:11:04.580-07:00nak bali ci??? liat blog gw ya www.putuarlezjunior...nak bali ci??? liat blog gw ya www.putuarlezjunior.blogspot.comAnonymousnoreply@blogger.comtag:blogger.com,1999:blog-763725542185500675.post-55619207849801419462012-06-24T06:10:22.782-07:002012-06-24T06:10:22.782-07:00gan knpa pas mau dijalanin kok muncul pesan "...gan knpa pas mau dijalanin kok muncul pesan "Only comments may appear after End Sub, End Function, or End Property." ???<br />itu kira2 knpa yah???<br />tlng kirim lewat email<br />saefulrochman09@gmail.comAnonymoushttps://www.blogger.com/profile/14715406023912505104noreply@blogger.com