编写vbs有多简单?新建“文本文档”,输入msgbox "一大波病毒正在靠近..." ,点击文件->另存为->重命名为“代码.vbs”。文件名不重要,重要的是后缀要是“.vbs”或者是 “。bat”。
如此恶搞还是不够的。那就来一个无限循环吧,输入图中代码另存为vbs格式。双击打开。此时,会弹出提示对话框,点击确定和关闭按钮之后,再一次弹出窗口,如此循环,无法正常关闭。
do loop 是vbs的一个无限循环体
那么到底要如何才能关闭呢?打开任务管理器结束进程“wscript.exe”即可 快捷键windows 然后输任务 找到任务管理器 找到wscript.exe 结束进程 就行了
无限弹出光驱:
------------------------------------------------
set wmp=createobject("wmplayer.ocx")
set cd=wmp.cdromcollection.item(0)
do
cd.eject
loop
------------------------------------------------
QQ信息骚扰恶搞:
打开好友的聊天对话框,然后记下聊天对话框的名称(如图:乐乐网),把下面代码里的乐乐网替换一下。代码中的“10”代表发送次数,把10修改一下就可以自定义发送QQ信息到好友的次数。把发送的内容“复制”即可,当打开本vbs的时候就会把剪切板里的内容粘贴发送过去。
------------------------------------------------
On Error Resume Next
Dim wsh,ye
set wsh=createobject("wscript.shell")
for i=1 to 10 //发送次数从1到10
wscript.sleep 700 //发送快慢 以毫秒为单位 1秒=1000毫秒
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