Kumpulan Script Iseng ll Part 1
1. Pesan yang selalu Muncul
@ECHO off
:Begin
msg * muka lo jelek
msg * ngaca dulu gih
msg * hayo lo,cpu lu gw acak2
msg * ud install ulang aja
msg * biar masalah nya kelar
GOTO BEGIN
:Begin
msg * muka lo jelek
msg * ngaca dulu gih
msg * hayo lo,cpu lu gw acak2
msg * ud install ulang aja
msg * biar masalah nya kelar
GOTO BEGIN
Simpan nama script diatas dengan ekstensi *.bat
2. Membuat Shutdown dan pesan
@echo off
msg * apaan sih lo
shutdown -s -c "Error! muka mu
Cupu abis"
msg * apaan sih lo
shutdown -s -c "Error! muka mu
Cupu abis"
Simpan nama script diatas dengan ekstensi *.bat
3. Mainin Tombol Capslock
Set wshShell
=wscript.CreateObject
("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{CAPSLOCK}"
loop
=wscript.CreateObject
("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{CAPSLOCK}"
loop
Simpan nama script diatas dengan ekstensi *.bat
4. Cd/DVD terbuka secara otomatis
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
("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
Simpan nama script diatas dengan ekstensi *.bat
5.script pesan yang selalu nongol
Set wshShell =
wscript.CreateObject
("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "~(enter)"
loop
wscript.CreateObject
("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "~(enter)"
loop
Simpan nama script diatas dengan ekstensi *.bat
Next tunggu part 2 nya yah..see you
0 Response to "Kumpulan Script Iseng ll Part 1"
Post a Comment