Kali ini
kita akan membuat beberapa script yang berfungsi pada OS windows, scriptnya
akan berfungsi sesuai dengan fungsinya. Script ini cocok untuk menjahili
computer teman anda, atau munkin musuh anda J. Script ini hanya dibuat menggunakan Notepad jadi anda tidak perlu
menginstall alpikasi-aplikasi lain. Untuk type savenya cukup dengan format
.VBS atau .bat.
1). Memberi
pesan dan shutdown komputer :
Code:
@echo off
msg * I don’t like you
shutdown -c ?Error! You’re so ugly? -s
Note : save dengan format .bat
2).
Menyalakan tombol Caps lock secara simultan :
Code:
Set wshShell
=wscript.CreateObject(?WScript.Shell?)
do
wscript.sleep 100
wshshell.sendkeys ?{CAPSLOCK}?
loop
Note : save dengan format .vbs
3).
Buka/tutup CD drive secara terus menerus :
Code:
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
Note : save dengan format .vbs
4). Tekan
Enter secara simultan :
Code:
et wshShell =
wscript.CreateObject(?WScript.Shell?)
do
wscript.sleep 100
wshshell.sendkeys ?~(enter)?
loop
Note : save dengan format .vbs
5). Mengetik
pesan kita secara otomatis di Notepad :
Code:
WScript.Sleep 180000
WScript.Sleep 10000
Set WshShell =
WScript.CreateObject(?WScript.Shell?)
WshShell.Run ?Notepad?
WScript.Sleep 100
WshShell.AppActivate ?Notepad?
WScript.Sleep 500
WshShell.SendKeys ?Hel?
WScript.Sleep 500
WshShell.SendKeys ?lo ?
WScript.Sleep 500
WshShell.SendKeys ?, ho?
WScript.Sleep 500
WshShell.SendKeys ?w a?
WScript.Sleep 500
WshShell.SendKeys ?re ?
WScript.Sleep 500
WshShell.SendKeys ?you?
WScript.Sleep 500
WshShell.SendKeys ?? ?
WScript.Sleep 500
WshShell.SendKeys ?I a?
WScript.Sleep 500
WshShell.SendKeys ?m g?
WScript.Sleep 500
WshShell.SendKeys ?ood?
WScript.Sleep 500
WshShell.SendKeys ? th?
WScript.Sleep 500
WshShell.SendKeys ?ank?
WScript.Sleep 500
WshShell.SendKeys ?s! ?
Note : save dengan format .vbs
