vbs合集……你懂的

无聊看到了一些vbs整理一下

过程很简单，新建记事本，打开，输入代码，保存关闭，或者根据需要修改一些内容，再保存关闭。

win10可能会出现重命名修改不了后缀名，再某个盘的某个位置新建文件夹点进去，上面的菜单栏中大选项“查看”中有一个文件扩展名，对勾点上就可以了，如图所示，图中缩圈的位置，在重复上面的操作。

下面一重复发送消息为例：（以下均以win10为例）

在记事本中输入

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

保存关闭后将后缀名改为vbs
并点击“是“

打开好友的聊天对话框，然后记下聊天对话框的名称（如图：一号），把代码里的一号替换一下。代码中的“10”代表发送次数，把10修改一下就可以自定义发送QQ信息到好友的次数。把发送的内容“复制”即可，当打开本vbs的时候就会把剪切板里的内容粘贴发送过去，注意发送的是剪贴板里面的内容，然后就会出现下面内容。

然后就完成了，哈哈……

下面的还有几个是无限循环，怎么办，任务管理器找到进程如图所示，结束就行了。

下面还有几个例子，可以试试：

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

Set s = CreateObject("sapi.spvoice") 

i=0 

do 

s.speak i 

i=i+1 

loop 

无限弹出，点确定继续弹出，把“渣渣智”改成你要文字。

do 

msgbox “渣渣智”

loop 

直接关机（慎用）

dim WSHshell 

set WSHshell = wscript.createobject("wscript.shell") 

WSHshell.run "shutdown -f -s -t 00",0 ,true

关掉所有程序

dim WSHshell 

set WSHshell = wscript.createobject("wscript.shell") 

do

wscript.sleep 2500 

WSHshell.SendKeys "%{F4}" 

loop 

百度上还可以查到好多其他的比如表白神器啊整人什么的，这些自己玩玩就好……