几个vbs代码

最新推荐文章于 2024-07-28 22:52:08 发布

离殇ya

最新推荐文章于 2024-07-28 22:52:08 发布

阅读量1k

点赞数 1

本文链接：https://blog.csdn.net/weixin_56613538/article/details/119849326

版权

这篇博客展示了几个VBScript代码片段，包括用于创建浪漫对话的弹窗、使用SAPI语音合成技术说话、无限循环的问候以及一个带有重启计算机选项的对话框。通过这些例子，读者可以了解VBScript的基本用法和交互式编程概念。

摘要由CSDN通过智能技术生成

使用方法：新建一个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