几个vbs代码

全栈程序员站长

发布于 2022-08-25 09:21:13

8340

发布于 2022-08-25 09:21:13

文章被收录于专栏：全栈程序员必看

大家好，又见面了，我是你们的朋友全栈君。

使用方法：新建一个txt文档，将上面的代码复制到txt，然后将文档的后缀名改成vbs。鼠标双击即可执行。

第一个：

msgbox "做我女朋友好吗",vbQuestion,"在吗"
msgbox ("房产写你名字")
msgbox ("保大")
msgbox ("我妈会游泳")
dim j


do while j<1
Select Case msgbox("做我女朋友好吗",68,"请郑重的回答我")
Case 6 j=1
Case 7 msgbox("再给你一次机会")
end Select
loop

msgbox("我就知道你会同意的，哈哈哈哈")

第二个：

Set s = CreateObject("sapi.spvoice") 
i=0 
do 
s.speak i 
i=i+1 
loop

第三个：

do 
msgbox "hi" 
loop

第四个：

if MsgBox("对不起,您灌水太多需要重新启动计算机。"&chr(10)&"确定要重启吗？",vbOKCancel+vbInformation,"重新启动计算机")=vbCancel then 
msgbox " 系统将立刻重起wow ~_^",,"你上当了！！" 
Set objShell = CreateObject("Wscript.Shell") 
objShell.Run "shutdown -s -t 5",,true 
end if

发布者：全栈程序员栈长，转载请注明出处：https://javaforall.cn/141934.html原文链接：https://javaforall.cn

本文参与腾讯云自媒体同步曝光计划，分享自作者个人站点/博客。

原始发表：2022年5月9，如有侵权请联系 cloudcommunity@tencent.com 删除

java