无聊看到了一些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
百度上还可以查到好多其他的比如表白神器啊整人什么的,这些自己玩玩就好……