谁知道 这是什么 怎么写 帮下忙 我没分了 .
来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/25 09:00:48
谁知道 这是什么 怎么写 帮下忙 我没分了 .
on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -s -t 15 -c ""说我爱你,不说我爱你就15秒关你机,不信,试试···"" ",0 ,true
dim a
do while(a "我爱你")
a = inputbox ("说我爱你,就不关机,快撒,说 ""我爱你"" ","说不说","不说",8000,7000)
msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox"
loop
msgbox chr(13) + chr(13) + chr(13) + "早说就行了嘛"
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "cmd.exe /c shutdown -a",0 ,true
msgbox chr(13) + chr(13) + chr(13) + "哈哈哈哈,爱就是爱嘛!"
on error resume next
dim WSHshellA
set WSHshellA = wscript.createobject("wscript.shell")
WSHshellA.run "cmd.exe /c shutdown -s -t 15 -c ""说我爱你,不说我爱你就15秒关你机,不信,试试···"" ",0 ,true
dim a
do while(a "我爱你")
a = inputbox ("说我爱你,就不关机,快撒,说 ""我爱你"" ","说不说","不说",8000,7000)
msgbox chr(13) + chr(13) + chr(13) + a,0,"MsgBox"
loop
msgbox chr(13) + chr(13) + chr(13) + "早说就行了嘛"
dim WSHshell
set WSHshell = wscript.createobject("wscript.shell")
WSHshell.run "cmd.exe /c shutdown -a",0 ,true
msgbox chr(13) + chr(13) + chr(13) + "哈哈哈哈,爱就是爱嘛!"
这是一个VBS脚本
想要它起作用的话
新建一个文本文档(txt)
把这段话粘贴进去
再保存退出
然后把这个文本文档的后缀名改为vbs
回车两次
就ok了
如果还有问题的话可以问我
希望对你有帮助,chun1721提供答案
想要它起作用的话
新建一个文本文档(txt)
把这段话粘贴进去
再保存退出
然后把这个文本文档的后缀名改为vbs
回车两次
就ok了
如果还有问题的话可以问我
希望对你有帮助,chun1721提供答案
我没分了
会议通讯稿怎么写?刚开了个会议,领导让我写个通讯稿,谁知道怎么写吗?从来没写过
行政诉讼法基本原则论文提纲怎么写啊. 谢谢各位帮帮忙.我没分,没办法给分了,希望大家也能帮忙.
英语翻译“明天我想要一个惊喜”这句话怎么翻译,感激.我没分了,555
语文检讨怎么写?我的语文期末考差一分没A语文老师要我写检讨【120分A 我考了119】
我要疯了 求一个字有一个字,我不知道念什么,也不知道怎么写,谁知道这是什么字啊!
“函”字里面没四点是个“了”谁知道是什么字么?五笔怎么打
我变了作文怎么写没补充0
用地方造句谁知道地方怎么造句,我没财富了
卐这个是什么字 我 复制来的 请问有谁知道怎么写 拼音发来谢谢了
我喜欢他这个发型 像这张照片这样的 翻译成英语是什么?没分了
我很无奈,抽考了,我一样觉得卷子不是很难,最多最后一道大题【6分】没怎么写对,可最后结果竟然是C,我想知道这是什么原因,