一些.vbs脚本文件(自娱自乐向)

.vbs

我记得初识basic语言好像要回溯到2014年以前，初中时代，当时考试的重心主要是放在读程序逻辑上，几个语句，像loop…until至今印象深刻。
记录几个简单的.vbs脚本，计算机可以直接执行。

1.

消息框招呼脚本

记事本编写’msgbox “Hello，9.9”‘，将文件后缀.txt修改为.vbs即可，双击运行后弹出消息框，可以将此脚本设置为开机启动，恩，硬核自己给自己打个招呼来自娱自乐。
（另，在室友电脑编写后首末添加do/loop可以让程序进入死循环，讯息内容可以随意发挥，控制台关闭程序即可）

2.

语音脚本

同样的，在记事本编写’CreateObject(“SAPI.SpVoice”).Speak “Hello,9.9”‘，调整扩展名为.vbs，运行后得到系统语言提示。同样的，可以将其设置为开机启动，配合消息框食用效果更佳（假装是电脑给自己打招呼）。

3.

无限刷新：

set ws=createobject("wscript.shell")
do
ws.sendkeys"{f5}"
loop

无限Alt+f4

dim WSHshell
set WSHshell=wscript.createobject("wscript.shell")
do
wscript.sleep 2000
WSHshell.SendKeys"%{f4}"
loop

QQ消息自动发送

On Error Resume Next 
Dim fd,ye 
set fd=createobject("wscript.shell") 
for i=1 to 10 //循环次数
wscript.sleep 100 //循环间隔，越大越慢
fd.AppActivate("Name") //发送对象的昵称
fd.sendKeys "^v" //打印复制的内容
fd.sendKeys i
fd.sendKeys "%s" 
next 
wscript.quit

（注：以上脚本慎用，玩笑适可而止。）

添加插曲

来自伟大的360爸爸发出的木马警告（我日我自己lol）