[...] 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 [...]
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)
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. . .
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. . .
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
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…
Jazakillah bwt pcmavnya
Jazaakallah Khairan PC-MAV-e mas,berguna banget……….
piye?wis muleh nang Indonesia?
bisa dicoba kagak :D
thank’s
Terima Kasih, PCMAV nya…
susah bener nyari nya
di maseko masih under contruction
thank’s
Harddiskku didrive D dihide oleh virus, semoga dengan pcmedia terbaru ini dapat membukanya kembali..sekaligus menghancurkan virusnya txs. salam
Tob Daaaaaaaaaaaaah
[...] 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 [...]
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
Numpang Nyedoooot ya Mas….! Thanx B4…!
syukron
kapan-kapan saya download mas. lama g posting y …
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)
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
ass,
trimaksh bgt ………
tuk pcmav 1.2
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
waw…. keren bangets yaks…
makasih y…
gue sedot dolo neh
Jazakumullah Khoiron Katsir…….
Thx yaaaahhhh….Aq download dulu neehhh….
Say Bye To Virus…..hehehehehe
situs ini baik sekali , bolehkah saya ditunjukkin cara pembuatan scriptnya ? terima kasih
matur thank you mas
n salam kenal
btw ini gak berat2 amat kan
thanks ya buat linkdownloadnya
http://rapidshare.com/files/109966426/PC-MAV1.2.rar
sudah include ClamAV
numpang nyedot neh,,buat oleh-oleh untuk virus dikomputer g,,, thanks for pcmav….. trus maju pantang kena virus… he he he
kq pcmav g bisa nangkap vrus worm n trojan ya???berarti kurang mantap la…
d testing dulu ah
tanya untuk virus yang namanya explorer.exe pake antivirus apa?dan bagaimana cara mengatasinya?
terimakasih
mas, yakin itu virus?
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
alhamdulillah udah ada yg nyediain pcmav update terbaru.insya ALLAH berguna,karena saya udah lama pake pcmav ini.wassalam.
regard,
Lukman
thanks ya
makasih mas pcmav nya, moga za versi selanjutnya bs di donlot di sini alnya di blog laen ga bs donlot …………wassalam
download download … matur nuwun ,,,
alhamdulillah dapat juga pcmav terbaru makacih ya mas udah nyediain syukron banget
alhamdulillah akhirna ketemu juga……
Top Daaahh PCMAV
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