Iseng iseng lagi nih gak ada kerjaan. 
Buat laporan skripshit gak jadi-jadi, mending browsing sana sini. Gue nemuin script buat iseng lepi temen. Caranya mudah brayy, cuma copas script berikut terus pastekan ke notepad. Setelah itu simpan dalam dalam ekstensi file .vbs
Buat laporan skripshit gak jadi-jadi, mending browsing sana sini. Gue nemuin script buat iseng lepi temen. Caranya mudah brayy, cuma copas script berikut terus pastekan ke notepad. Setelah itu simpan dalam dalam ekstensi file .vbsDim code
Dim pass
pass = "arissuatmaji"
MsgBox "Hallo brayy, Kamu telah terinfeksi Virus Facebook!!. Waktu anda tinggal 3 hari lagi sebelum password Facebook anda diganti. Waktu 3hari anda dimulai: " & Time, 16, "Facebook Virus"
Do
code = InputBox("Masukkan 12 angka penangkal virus Facebook.", "Virus Facebook Removal")
If code<>pass Then
MsgBox "Kode " & code & " Salah!!. Jika anda mau tau kata kunci untuk menghapus virus ini. Kunjungi website: http://www.xblackmonster.blogspot.com"
End If
Loop Until code=pass
MsgBox "Kode diterima, Virus Facebook telah terhapus. Selamat brayy..!"
password : arissuatmaji
0 komentar:
Posting Komentar