VBS指令（一）

#摸鱼.

已于 2022-11-25 12:35:15 修改

阅读量4.4k

点赞数 2

文章标签：其他

于 2022-11-20 10:51:36 首次发布

本文链接：https://blog.csdn.net/m0_74391978/article/details/127946206

版权

今天给大家带来一些vbs的简易小代码，如下：
目录

1.表白代码1.0

2.表白代码2.0

3.表白代码3.0

4.无限Alt+F4（解决方法：关机重启即可）

5.删除D盘所有文件（慎用）

6.叫爸爸

1.表白代码1.0

msgbox"XX"
msgbox"做我女朋友好吗？"
msgbox"房产证上写你名！"
msgbox"我妈会游泳！"
msgbox"一辈子对你好决不食言！"
dim i
do while i<1
Select Case msgbox("如果答应我了请点是",68,"")
Case 6 i=1
Case 7
msgbox"你再考虑一下呗，球球辣。"
end Select
loop
msgbox"我就知道你会答应我，mua~"

2.表白代码2.0

msgbox"XX."
msgbox"做我女朋友好吗？"
msgbox"房产证上写你名！"
msgbox"我妈会游泳！"
msgbox"一辈子对你好决不食言！"
dim i
do while i<1
Select Case msgbox("如果答应我了请点是",68,"")
Case 6 i=1
Case 7
msgbox"你再考虑一下呗，球球辣。"
end Select
loop
Wscript.echo Printer(" ","*","113111111112212111313111513",7)
Function Printer(a1,a2,b,c)
For i = 1 to len(b)
b1 =