Penulis Topik: Gan.. Help Me  (Dibaca 9468 kali)

Offline A.Alief

  • Pro200
  • *****
  • Tulisan: 242
  • Reputation: 302
  • Jenis kelamin: Pria
  • Focused on Developing Social Games...
    • Lihat Profil
    • LavaXnet
Gan.. Help Me
« pada: Pebruari 18, 2012, 11:24:02 AM »
gan kan ane bikin AV.. PAS tengah tngah lagi nyecan ada tulisan

Run Time Error '52'

ERRORNYA DIBAGIAN

Kode: [Pilih]
If FileLen(FilePath) / 1024 <= 512 Then
NI SC NYA

Kode: [Pilih]
Public Function CekVirus(FilePath As String) As String
CekVirus = ""
For i = 1 To UBound(VirusDB)
If GetChecksum(FilePath) = Split(VirusDB(i), "|")(1) Then
CekVirus = VirusDB(i)
Exit Function
End If
Next
If FileLen(FilePath) / 1024 <= 512 Then
CekVirus = CekHeuristic(FilePath)
End If
End Function

Apakah ada yang salah../
Sorry but you are not allowed to view spoiler contents.

Offline Oim Devans

  • Pro200
  • *****
  • Tulisan: 370
  • Reputation: 271
  • Jenis kelamin: Pria
  • X2 Team Admin
    • Lihat Profil
    • X2 Team
Re: Gan.. Help Me
« Jawab #1 pada: Pebruari 18, 2012, 04:12:25 PM »
gan kan ane bikin AV.. PAS tengah tngah lagi nyecan ada tulisan

Run Time Error '52'

ERRORNYA DIBAGIAN

Kode: [Pilih]
If FileLen(FilePath) / 1024 <= 512 Then
NI SC NYA

Kode: [Pilih]
Public Function CekVirus(FilePath As String) As String
CekVirus = ""
For i = 1 To UBound(VirusDB)
If GetChecksum(FilePath) = Split(VirusDB(i), "|")(1) Then
CekVirus = VirusDB(i)
Exit Function
End If
Next
If FileLen(FilePath) / 1024 <= 512 Then
CekVirus = CekHeuristic(FilePath)
End If
End Function

Apakah ada yang salah../

Menurut ane gan,
inti dari kesalahan itu adalah disini :
Kutip
CekVirus = CekHeuristic(FilePath)

menurut ane aja itu :)

FilePath kan adalah tempat /  Folder yang akan di scan.
jadi, Filepath tersebut Object VB yang di utamakan adalah Textbox.
saat memilih Folder, sebutkan Filepath itu sebagai Tempat Scannya.
--//Belajar Dan Terus Belajar Sesuatu agar Menjadi yang inginkan\\--

Offline A.Alief

  • Pro200
  • *****
  • Tulisan: 242
  • Reputation: 302
  • Jenis kelamin: Pria
  • Focused on Developing Social Games...
    • Lihat Profil
    • LavaXnet
Re: Gan.. Help Me
« Jawab #2 pada: Pebruari 18, 2012, 06:35:49 PM »
Maksudnya..?ane kurang ngerti coba lebih detail lagi..! (maklum Newbie) Smiley
Sorry but you are not allowed to view spoiler contents.

Offline RifqiSah

  • Pro500
  • ******
  • Tulisan: 919
  • Reputation: 820
  • Jenis kelamin: Pria
  • © 2016 Alrif Technology
    • Lihat Profil
    • Alrif Technology
Re: Gan.. Help Me
« Jawab #3 pada: Pebruari 18, 2012, 07:07:42 PM »
mungkin maksudnya devans begini, itukan filepath adalah path yg akan di scan. Jadi filepath nya di tampilkan di textbox, dan ganti filepath menjadi txtpath.text yaitu tempat pati directory yg di scan tadi.

Maaf kalo salah .. :)

CMIIW :D
« Edit Terakhir: Pebruari 18, 2012, 07:09:48 PM oleh ◦◦◦ Rifqi_Sah ™ ◦◦◦ »

Offline A.Alief

  • Pro200
  • *****
  • Tulisan: 242
  • Reputation: 302
  • Jenis kelamin: Pria
  • Focused on Developing Social Games...
    • Lihat Profil
    • LavaXnet
Re: Gan.. Help Me
« Jawab #4 pada: Pebruari 18, 2012, 07:10:48 PM »
OH THQ om Rifqi ..! mau ane kirimin gak nie Sample virus nya
Sorry but you are not allowed to view spoiler contents.

Offline RifqiSah

  • Pro500
  • ******
  • Tulisan: 919
  • Reputation: 820
  • Jenis kelamin: Pria
  • © 2016 Alrif Technology
    • Lihat Profil
    • Alrif Technology
Re: Gan.. Help Me
« Jawab #5 pada: Pebruari 18, 2012, 07:12:24 PM »
OH THQ om Rifqi ..! mau ane kirimin gak nie Sample virus nya
boleh ..

Offline Oim Devans

  • Pro200
  • *****
  • Tulisan: 370
  • Reputation: 271
  • Jenis kelamin: Pria
  • X2 Team Admin
    • Lihat Profil
    • X2 Team
Re: Gan.. Help Me
« Jawab #6 pada: Pebruari 19, 2012, 11:20:20 PM »
OH THQ om Rifqi ..! mau ane kirimin gak nie Sample virus nya

kirim ke ane juga dong gan :(
huhu
--//Belajar Dan Terus Belajar Sesuatu agar Menjadi yang inginkan\\--

Offline A.Alief

  • Pro200
  • *****
  • Tulisan: 242
  • Reputation: 302
  • Jenis kelamin: Pria
  • Focused on Developing Social Games...
    • Lihat Profil
    • LavaXnet
Re: Gan.. Help Me
« Jawab #7 pada: Pebruari 20, 2012, 03:45:03 PM »
iya om devans
Sorry but you are not allowed to view spoiler contents.

Offline Oim Devans

  • Pro200
  • *****
  • Tulisan: 370
  • Reputation: 271
  • Jenis kelamin: Pria
  • X2 Team Admin
    • Lihat Profil
    • X2 Team
Re: Gan.. Help Me
« Jawab #8 pada: Pebruari 21, 2012, 08:32:38 AM »
iya om devans

thanks gan :)
hehe
kyk na ini DB dpet dari Internet yee.
--//Belajar Dan Terus Belajar Sesuatu agar Menjadi yang inginkan\\--

Offline A.Alief

  • Pro200
  • *****
  • Tulisan: 242
  • Reputation: 302
  • Jenis kelamin: Pria
  • Focused on Developing Social Games...
    • Lihat Profil
    • LavaXnet
Re: Gan.. Help Me
« Jawab #9 pada: Pebruari 21, 2012, 05:33:28 PM »
ada y g separo
Sorry but you are not allowed to view spoiler contents.