Kode VBScript Login Banyak ID Yahoo Messenger.
---------------------------------------------------------------------------------
dim klikbebas
masuk()
sub masuk()
set klikbebas = wscript.CreateObject("wscript.shell")
keterangan = "Baca aturan pakai :" & vbcrlf &_
"[0].Nonaktifkan banyak id YM." & vbcrlf &_
"[1].Aktifkan banyak id YM." & vbcrlf & vbcrlf & vbcrlf &_
"[Ilmu Komputer]" & vbcrlf &_
"visit to my web : http://klikbebas.blogspot.com"
tanya = inputbox(keterangan,"banyak id YM",0)
klikbebas.RegWrite"HKEY_CURRENT_USERSoftwareyahoopager estPLURAL",tanya,"REG_DWORD"
if tanya=1 then
msgbox "Banyak id YM telah diaktifkan, Silahkan restart atau log off komputer anda, untuk melihat hasilnya",vbInformation,"banyak id YM"
else
if tanya=0 then
msgbox "Banyak id YM telah di non aktifkan, Silahkan restart atau log off komputer anda, untuk melihat hasilnya",vbInformation,"banyak id YM"
klikbebas.RegDelete"HKEY_CURRENT_USERSoftwareyahoopager estPLURAL"
else
msgbox "Angka yang anda masukkan belum benar",vbInformation,"banyak id YM"
masuk()
end if
end if
end sub
---------------------------------------------------------------------------------
copy code diatas di NotePad kemudian simpan dengan nama "sembarang.vbs" (tanpa tanda petik)
Jika sobat tidak mau repot-repot membuatnya, silahkan mendownload file nya yang sudah jadi DISINI
Cara aturan pakainya silahkan dibaca pada programnya (mudah penggunaannya gak pake ribet).
0 komentar:
Posting Komentar