Login Banyak ID Yahoo Messenger (versi 2)
Posted: 12 Oct 2010 08:01 AM PDT ![]() 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_USER\Software\yahoo\pager\test\PLURAL",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_USER\Software\yahoo\pager\test\PLURAL" 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). |