vbs代码，让电脑变得更有趣

话不多说直接进入正题

1.这个是我经常用的，所以把他放在第一，这个代码能快速发送消息很多遍

（现在主要用来刷qq的幸运字符标识，你懂的）

Set WshShell=WScript.CreateObject("WScript.Shell")

WshShell.AppActivate"点亮标识"

for i=1 to 99

WScript.Sleep 99

WshShell.SendKeys"^v"

WshShell.SendKeys i

WshShell.SendKeys"%s"

Next

2.还有个最简单的代码

msgbox("你想说的话")

括号里的字可以改动的，而且有多少行就会弹多少次窗口，具体效果如下。

接下来的很少用到了就直接分享代码吧：

//第一个在msgbox代码的基础上加强了，双引号里的内容可以改，不同意不退出的表白代码。

//如果想开机就自动打开这个vbs，把这个地址C:\ProgramData\Microsoft\Windows\Start Menu\Programs\StartUp

//复制到地址搜索栏，按回车会自动弹过去，把vbs快捷方式移进去即可，下次开机就会打开vbs

msgbox "美女，你好！"

msgbox "我来了"

msgbox "你好漂亮啊",vbQuestion,"真滴"

dim j

do while j

Select Case msgbox("愿意做我的女朋友吗",4+32)

Case 6 j=1

Case 7 msgbox("再想一想")

end Select

loop

msgbox "么么哒"

开机自动运行：将vbs文件生成一个快捷方式，放在开始-程序-启动这个文件夹即可。

//第二个无限循环代码，让不懂电脑的熊孩子直接放弃玩电脑

do

msgbox("小混蛋，又玩电脑，回去给你买两套寒假作业！！！")

loop

关闭对话框的方法：打开windows任务管理器 - 进程，找到wscript.exe这个进程，关闭进程即可。

好了今天就分享到这里啦，希望你们能玩得开心！！！感谢观看