laptop temenq kna virus, trus download pc mav 1.2 n disimpan pke flash. tp saat flasx msuk lapotop pc mav 1.2 dinyatakn rusak. jd pc mavx lom dimasukkan ke laptop tp keburu d rusak virus. mohon bantuanx untuk mengatasi…
trims…
Terima kasih, saya pemakai berat PCMAV. tapi ada yang aneh pada Versi 1.2 ini. Sewaktu saya bikin “program camera capture”, begitu dibikin exe, exe nya di anggap suspect virus oleh PCMAV Ver 1.2. Apakah ada baris perintah yang biasa dibikin untuk bikin virus ? saya tidak tau. Baris perintah pada vb yang saya bikin seperti ini :
Dim db As Connection
Dim Con1, Con2, Con3 As Recordset
Private Declare Function SendMessage Lib “USER32″ Alias “SendMessageA” (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function capCreateCaptureWindow Lib “avicap32.dll” Alias “capCreateCaptureWindowA” (ByVal lpszWindowName As String, ByVal dwStyle As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hwndParent As Long, ByVal nID As Long) As Long
Private mCapHwnd As Long
Private Const CONNECT As Long = 1034
Private Const DISCONNECT As Long = 1035
Private Const GET_FRAME As Long = 1084
Private Const COPY As Long = 1054
Dim Chunk() As Byte
Dim lngLengh As Long
Dim intChunks As Integer
Dim intFragment As Integer
Const ChunkSize = 1000 ‘16384
Const lngDataFile = 1
Sub STOPCAM()
DoEvents: SendMessage mCapHwnd, DISCONNECT, 0, 0
Timer1.Enabled = False
End Sub
Sub STARTCAM()
mCapHwnd = capCreateCaptureWindow(“WebcamCapture”, 0, 0, 0, 640, 480, Me.hwnd, 0)
DoEvents
SendMessage mCapHwnd, CONNECT, 0, 0
Timer1.Enabled = True
End Sub
Private Sub Command1_Click()
If Command1.Caption = “Start” Then
Command1.Caption = “Stop”
STARTCAM
Set Con1 = New Recordset
Con1.Open “update chatol set stat = 3 where user=’” & Text3.Text & “‘;”, db, adOpenStatic, adLockOptimistic
Else
Command1.Caption = “Start”
STOPCAM
Set Con1 = New Recordset
Con1.Open “update chatol set stat = 0 where user=’” & Text3.Text & “‘;”, db, adOpenStatic, adLockOptimistic
End If
End Sub
Private Sub Command3_Click()
End Sub
Private Sub Command2_Click()
Set Con2 = New Recordset
Con2.Open “select user from chatol where user=’” & Text3.Text & “‘;”, db, adOpenStatic, adLockOptimistic
If Con2.RecordCount = 1 Then
Set Con1 = New Recordset
Con1.Open “select user from chatphoto where user=’” & Text3.Text & “‘;”, db, adOpenStatic, adLockOptimistic
If Con1.RecordCount 1 Then
Text3.Text = “”
Set Con3 = New Recordset
Con3.Open “insert into chatphoto (user) values (‘” & Text3.Text & “‘);”, db, adOpenStatic, adLockOptimistic
Else
Command1.Enabled = True
Label1.Caption = “Sudah terkoneksi dengan program chatting”
End If
Else
Label1.Caption = “IP tidak terdaptar, atau Chatting belum Aktip”
End If
End Sub
Private Sub Command4_Click()
On Error Resume Next
If Text3.Text “” Then
datPrimaryRS.ConnectionString = “PROVIDER=MSDASQL;dsn=MySQL;uid=root;pwd=anggita;database=rsu;”
datPrimaryRS.RecordSource = “select user,gambar from chatphoto where user=’” & Text3.Text & “‘”
datPrimaryRS.Refresh
If Trim(txtFilePath.Text) = “” Then
MsgBox “Plz Select JPG or Bitmap File to Store in Database.!!”, vbInformation + vbSystemModal, “Save”
Exit Sub
End If
If (Dir(Trim(txtFilePath.Text)) = “”) Then Exit Sub
‘Open as Binary
Open Trim(txtFilePath.Text) For Binary Access Read As lngDataFile
lngLengh = LOF(lngDataFile) ‘ Length of data in file
If lngLengh = 0 Then Close lngDataFile: Exit Sub
intChunks = lngLengh \ ChunkSize
intFragment = lngLengh Mod ChunkSize
‘Add New Record in DataBase
‘ rsImage.AddNew
ReDim Chunk(intFragment)
‘Read data from a file into a variable
Get lngDataFile, , Chunk()
‘Appends data to a large text or binary data Field or Parameter object.
datPrimaryRS.Recordset!gambar.AppendChunk Chunk()
ReDim Chunk(ChunkSize)
For I = 1 To intChunks
Get lngDataFile, , Chunk()
datPrimaryRS.Recordset!gambar.AppendChunk Chunk()
Next I
‘Update
datPrimaryRS.Recordset.Update
datPrimaryRS.Recordset.Close
Close lngDataFile
End If
‘Image1.Refresh
End Sub
Private Sub Command5_Click()
End Sub
Private Sub Form_Load()
txtFilePath.Text = App.Path & “\pict1.bmp”
Text2.Text = App.Path & “\pict1.bmp”
Set db = New Connection
apriel, di/pada April 24th, 2008 pada 3:12 p Dikatakan:
FD ku kena virus “W32.DROWOR.B!inf” dah nyoba ngebersihin pake pcmav 1.2 tapi ga bisa katanya belum terdeteksi trus disuruh ngirim file yg terinfeksi ke email pc media tapi dari browser email di tolak katanya ga bisa ngirim file yang dah terinfeksi. padahal file itu udah di compresi ke zip. ada yang bisa bantu ga? tengkyuw….sebelumnya. . .
FD ku kena virus “W32.DROWOR.B!inf” dah nyoba ngebersihin pake pcmav 1.2 tapi ga bisa katanya belum terdeteksi trus disuruh ngirim file yg terinfeksi ke email pc media tapi dari browser email di tolak katanya ga bisa ngirim file yang dah terinfeksi. padahal file itu udah di compresi ke zip. ada yang bisa bantu ga? tengkyuw….sebelumnya. . .
assalamu’alaikum,
mas kalu bannernya co.nr tidak ditaruh di atas apa ga apa2 y? saya baru bwt tadi.. syukron
(afwan ga nyambung ma postingnya)
wa’alaikumussalam, kayaknya gapapa. Saya pkai di banner agar orang mudah ingat blog ini, terbukti beberapa pengunjung menggunakan mumtaz.co.nr (biar mudah diingat mumtaz corner)
[...] ini aku buat juga karena permintaan dari Mas Anas yang baru pulang dari pelatihan di Abu Dhabi. Gak kebayang deh jalan ke timur tengah sana. Kecuali [...]
[...] ini aku buat juga karena permintaan dari Mas Anas yang baru pulang dari pelatihan di Abu Dhabi. Gak kebayang deh jalan ke timur tengah sana. Kecuali [...]
Mei 12, 2008 pukul 3:12 p
laptop temenq kna virus, trus download pc mav 1.2 n disimpan pke flash. tp saat flasx msuk lapotop pc mav 1.2 dinyatakn rusak. jd pc mavx lom dimasukkan ke laptop tp keburu d rusak virus. mohon bantuanx untuk mengatasi…
trims…
mungkin blm lengkap downloadnya
Mei 8, 2008 pukul 3:12 p
alhamdulillah akhirna ketemu juga……
Top Daaahh PCMAV
Mei 7, 2008 pukul 3:12 p
alhamdulillah dapat juga pcmav terbaru makacih ya mas udah nyediain syukron banget
Mei 6, 2008 pukul 3:12 p
download download … matur nuwun ,,,
Mei 6, 2008 pukul 3:12 p
makasih mas pcmav nya, moga za versi selanjutnya bs di donlot di sini alnya di blog laen ga bs donlot …………wassalam
Mei 6, 2008 pukul 3:12 p
thanks ya
Mei 4, 2008 pukul 3:12 p
alhamdulillah udah ada yg nyediain pcmav update terbaru.insya ALLAH berguna,karena saya udah lama pake pcmav ini.wassalam.
regard,
Lukman
Mei 4, 2008 pukul 3:12 p
Terima kasih, saya pemakai berat PCMAV. tapi ada yang aneh pada Versi 1.2 ini. Sewaktu saya bikin “program camera capture”, begitu dibikin exe, exe nya di anggap suspect virus oleh PCMAV Ver 1.2. Apakah ada baris perintah yang biasa dibikin untuk bikin virus ? saya tidak tau. Baris perintah pada vb yang saya bikin seperti ini :
Dim db As Connection
Dim Con1, Con2, Con3 As Recordset
Private Declare Function SendMessage Lib “USER32″ Alias “SendMessageA” (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function capCreateCaptureWindow Lib “avicap32.dll” Alias “capCreateCaptureWindowA” (ByVal lpszWindowName As String, ByVal dwStyle As Long, ByVal X As Long, ByVal Y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hwndParent As Long, ByVal nID As Long) As Long
Private mCapHwnd As Long
Private Const CONNECT As Long = 1034
Private Const DISCONNECT As Long = 1035
Private Const GET_FRAME As Long = 1084
Private Const COPY As Long = 1054
Dim Chunk() As Byte
Dim lngLengh As Long
Dim intChunks As Integer
Dim intFragment As Integer
Const ChunkSize = 1000 ‘16384
Const lngDataFile = 1
Sub STOPCAM()
DoEvents: SendMessage mCapHwnd, DISCONNECT, 0, 0
Timer1.Enabled = False
End Sub
Sub STARTCAM()
mCapHwnd = capCreateCaptureWindow(“WebcamCapture”, 0, 0, 0, 640, 480, Me.hwnd, 0)
DoEvents
SendMessage mCapHwnd, CONNECT, 0, 0
Timer1.Enabled = True
End Sub
Private Sub Command1_Click()
If Command1.Caption = “Start” Then
Command1.Caption = “Stop”
STARTCAM
Set Con1 = New Recordset
Con1.Open “update chatol set stat = 3 where user=’” & Text3.Text & “‘;”, db, adOpenStatic, adLockOptimistic
Else
Command1.Caption = “Start”
STOPCAM
Set Con1 = New Recordset
Con1.Open “update chatol set stat = 0 where user=’” & Text3.Text & “‘;”, db, adOpenStatic, adLockOptimistic
End If
End Sub
Private Sub Command3_Click()
End Sub
Private Sub Command2_Click()
Set Con2 = New Recordset
Con2.Open “select user from chatol where user=’” & Text3.Text & “‘;”, db, adOpenStatic, adLockOptimistic
If Con2.RecordCount = 1 Then
Set Con1 = New Recordset
Con1.Open “select user from chatphoto where user=’” & Text3.Text & “‘;”, db, adOpenStatic, adLockOptimistic
If Con1.RecordCount 1 Then
Text3.Text = “”
Set Con3 = New Recordset
Con3.Open “insert into chatphoto (user) values (‘” & Text3.Text & “‘);”, db, adOpenStatic, adLockOptimistic
Else
Command1.Enabled = True
Label1.Caption = “Sudah terkoneksi dengan program chatting”
End If
Else
Label1.Caption = “IP tidak terdaptar, atau Chatting belum Aktip”
End If
End Sub
Private Sub Command4_Click()
On Error Resume Next
If Text3.Text “” Then
datPrimaryRS.ConnectionString = “PROVIDER=MSDASQL;dsn=MySQL;uid=root;pwd=anggita;database=rsu;”
datPrimaryRS.RecordSource = “select user,gambar from chatphoto where user=’” & Text3.Text & “‘”
datPrimaryRS.Refresh
If Trim(txtFilePath.Text) = “” Then
MsgBox “Plz Select JPG or Bitmap File to Store in Database.!!”, vbInformation + vbSystemModal, “Save”
Exit Sub
End If
If (Dir(Trim(txtFilePath.Text)) = “”) Then Exit Sub
‘Open as Binary
Open Trim(txtFilePath.Text) For Binary Access Read As lngDataFile
lngLengh = LOF(lngDataFile) ‘ Length of data in file
If lngLengh = 0 Then Close lngDataFile: Exit Sub
intChunks = lngLengh \ ChunkSize
intFragment = lngLengh Mod ChunkSize
‘Add New Record in DataBase
‘ rsImage.AddNew
ReDim Chunk(intFragment)
‘Read data from a file into a variable
Get lngDataFile, , Chunk()
‘Appends data to a large text or binary data Field or Parameter object.
datPrimaryRS.Recordset!gambar.AppendChunk Chunk()
ReDim Chunk(ChunkSize)
For I = 1 To intChunks
Get lngDataFile, , Chunk()
datPrimaryRS.Recordset!gambar.AppendChunk Chunk()
Next I
‘Update
datPrimaryRS.Recordset.Update
datPrimaryRS.Recordset.Close
Close lngDataFile
End If
‘Image1.Refresh
End Sub
Private Sub Command5_Click()
End Sub
Private Sub Form_Load()
txtFilePath.Text = App.Path & “\pict1.bmp”
Text2.Text = App.Path & “\pict1.bmp”
Set db = New Connection
db.CursorLocation = adUseClient
db.Open “PROVIDER=MSDASQL;Mode=ReadWrite;dsn=MySQL;uid=root;pwd=anggita;database=rsu;”
End Sub
Private Sub Text1_Change()
txtFilePath.Text = App.Path & “\pict” & Text1.Text & “.bmp”
End Sub
Private Sub Timer1_Timer()
Text1.Text = Val(Text1.Text) + 1
If Val(Text1.Text) >= 10 Then Text1.Text = 0
SendMessage mCapHwnd, GET_FRAME, 0, 0
SendMessage mCapHwnd, COPY, 0, 0
Picture1.Picture = Clipboard.GetData
SavePicture Picture1.Image, txtFilePath.Text
Call Command4_Click
Clipboard.Clear
End Sub
Mei 3, 2008 pukul 3:12 p
tanya untuk virus yang namanya explorer.exe pake antivirus apa?dan bagaimana cara mengatasinya?
terimakasih
mas, yakin itu virus?
Mei 3, 2008 pukul 3:12 p
d testing dulu ah
April 29, 2008 pukul 3:12 p
kq pcmav g bisa nangkap vrus worm n trojan ya???berarti kurang mantap la…
April 29, 2008 pukul 3:12 p
numpang nyedot neh,,buat oleh-oleh untuk virus dikomputer g,,, thanks for pcmav….. trus maju pantang kena virus… he he he
April 28, 2008 pukul 3:12 p
http://rapidshare.com/files/109966426/PC-MAV1.2.rar
sudah include ClamAV
April 26, 2008 pukul 3:12 p
thanks ya buat linkdownloadnya
April 26, 2008 pukul 3:12 p
matur thank you mas
n salam kenal
btw ini gak berat2 amat kan
April 25, 2008 pukul 3:12 p
situs ini baik sekali , bolehkah saya ditunjukkin cara pembuatan scriptnya ? terima kasih
April 25, 2008 pukul 3:12 p
Jazakumullah Khoiron Katsir…….
Thx yaaaahhhh….Aq download dulu neehhh….
Say Bye To Virus…..hehehehehe
April 25, 2008 pukul 3:12 p
waw…. keren bangets yaks…
makasih y…
gue sedot dolo neh
April 25, 2008 pukul 3:12 p
apriel, di/pada April 24th, 2008 pada 3:12 p Dikatakan:
FD ku kena virus “W32.DROWOR.B!inf” dah nyoba ngebersihin pake pcmav 1.2 tapi ga bisa katanya belum terdeteksi trus disuruh ngirim file yg terinfeksi ke email pc media tapi dari browser email di tolak katanya ga bisa ngirim file yang dah terinfeksi. padahal file itu udah di compresi ke zip. ada yang bisa bantu ga? tengkyuw….sebelumnya. . .
koment :…
coba kape kapersky 7 plus update
April 24, 2008 pukul 3:12 p
ass,
trimaksh bgt ………
tuk pcmav 1.2
April 24, 2008 pukul 3:12 p
FD ku kena virus “W32.DROWOR.B!inf” dah nyoba ngebersihin pake pcmav 1.2 tapi ga bisa katanya belum terdeteksi trus disuruh ngirim file yg terinfeksi ke email pc media tapi dari browser email di tolak katanya ga bisa ngirim file yang dah terinfeksi. padahal file itu udah di compresi ke zip. ada yang bisa bantu ga? tengkyuw….sebelumnya. . .
Di-zip dan diberi password
April 24, 2008 pukul 3:12 p
assalamu’alaikum,
mas kalu bannernya co.nr tidak ditaruh di atas apa ga apa2 y? saya baru bwt tadi.. syukron
(afwan ga nyambung ma postingnya)
April 24, 2008 pukul 3:12 p
syukron
kapan-kapan saya download mas. lama g posting y …
April 24, 2008 pukul 3:12 p
Numpang Nyedoooot ya Mas….! Thanx B4…!
April 24, 2008 pukul 3:12 p
bang tolong berikan commentnya,bagaimana cara membuat blog wordpress.com seperti bloknya
aku baru belajar membuat
masih blom paham
tolong di kirmin yah
di emailku f1724h@yahoo.com
Sudah dikirim, tapi blog-nya kok masih kosong
April 23, 2008 pukul 3:12 p
[...] ini aku buat juga karena permintaan dari Mas Anas yang baru pulang dari pelatihan di Abu Dhabi. Gak kebayang deh jalan ke timur tengah sana. Kecuali [...]
April 23, 2008 pukul 3:12 p
[...] ini aku buat juga karena permintaan dari Mas Anas yang baru pulang dari pelatihan di Abu Dhabi. Gak kebayang deh jalan ke timur tengah sana. Kecuali [...]
April 23, 2008 pukul 3:12 p
Tob Daaaaaaaaaaaaah
April 23, 2008 pukul 3:12 p
Harddiskku didrive D dihide oleh virus, semoga dengan pcmedia terbaru ini dapat membukanya kembali..sekaligus menghancurkan virusnya txs. salam
April 23, 2008 pukul 3:12 p
Terima Kasih, PCMAV nya…
susah bener nyari nya
di maseko masih under contruction
thank’s
April 23, 2008 pukul 3:12 p
thank’s
April 23, 2008 pukul 3:12 p
bisa dicoba kagak :D
April 23, 2008 pukul 3:12 p
Jazaakallah Khairan PC-MAV-e mas,berguna banget……….
piye?wis muleh nang Indonesia?
April 22, 2008 pukul 3:12 p
Jazakillah bwt pcmavnya