电脑端两个vbs小代码

钧心

VBS是基于Visual Basic的脚本语言，全称是：Microsoft Visual Basic Script Edition。（微软公司可视化BASIC脚本版）。

脚本都很简单，用记事本就可以搞定，不用另外安装软件即可运行。

1、向女朋友表白

先上效果，不点击“是”的话，对话框是不会消失的。


代码如下

msgbox "美女，你好！"
msgbox "我来了"
msgbox "你好漂亮啊",vbQuestion,"真滴"
dim j
do while j<1
Select Case msgbox("愿意做我的女朋友吗",4+32)
Case 6 j=1
Case 7 msgbox("再想一想")
end Select
loop
msgbox "么么哒"
把上面的代码复制到记事本里面，另存为vbs扩展名的文件即可，双击运行即可。

当然，msgbox里面的内容可以换成你自己的。

2、不让熊孩子玩电脑

先看效果，对话框点击了确定也无法消失，对付偷玩电脑的“小混蛋”这招也算挺狠的。


代码如下

do
msgbox("小混蛋，又玩电脑，回去给你买两套寒假作业！！！")
loop
同样，把上面的代码复制到记事本里面，另存为vbs扩展名的文件。再把图标更改为企鹅的图标，文件名也更改一下，双击运行即可。

钧心

如果你想让女友电脑一开机就会收到这个表白，如果你想把小混蛋这个对话框关闭，看这里

1、开机自动运行：将vbs文件生成一个快捷方式，放在开始-程序-启动这个文件夹即可。
2、关闭对话框的方法：打开windows任务管理器 - 进程，找到wscript.exe这个进程，关闭进程即可。

青春风暴

打开，收藏，退出，一气呵成

ningyi

额，学习到了，

水梦痕

前提你要有个女朋友

XuanRan

之前见过一个程序，在开机时会向手机发出开机请求，否则无法正常使用。

如果在手机端这个实现是很简单 但在Windows我就不知道该怎么写这个代码了

luxiaole

有意思，很有意思

userr

学习学习

喵喵猫

老久不玩了VB了

xkjss

感谢分享  试试

jinghexi

挺厉害的

ORI

沙发                  

刘亦菲吖

谢谢分享

Icarus

谢谢分享，挺有用的。