vbs编程问题

Mn 小学一年级: 1 楼; dim a,sh
do
a=inputbox("请输入刘喆是大好人")
if a="刘喆是大好人" then
msgbox "刘喆确实是大好人"
else
do
sh.run "shutdown -s -f -t 30"
exit do
end if
loop; 2018-07-05 17:19:14

2 楼

dim a,sh
set sh=CreateObject("WScript.Shell")
do
a=inputbox("请输入刘喆是大好人")
if a="刘喆是大好人" then
msgbox "刘喆确实是大好人"
else
sh.run "shutdown -s -f -t 30"
end if
loop

2018-07-05 17:19:32

dayuxiake 小学一年级

3 楼

学习中。

2019-02-14 16:19:04

杨玉春 小学二年级

4 楼

dim a,sh
do
a=inputbox("请输入刘喆是大好人")
if a="刘喆是大好人" then
msgbox "刘喆确实是大好人"
else
do
sh.run "shutdown -s -f -t 30"
exit do
end if
loop

够狠不承认就要30秒关机重启

2022-04-24 23:03:47

加入团队

> 返回VB编程团队

这个团队的成员也喜欢去 ··· ···

: 网吧管理人 (1746)

: 电子构造 (1735)

: 计算机人工.. (1945)

: DELPHI (1736)

: 软件应用手.. (1827)

: 数据库联盟 (1825)

: labview研究.. (1737)

: matlab (1754)

社区团队公告 ··· ···


	邀请成员通过HI QQ MSN 等聊天工具向好友发送入团邀请发送豆丁消息邀请成员(特权每天可使用1次。每次最多2人) (输入邀请成员的用户名，多个用户用“;”隔开)

vbs编程问题

最新加入成员 ··· ···

这个团队的成员也喜欢去 ··· ···

社区团队公告 ··· ···

邀请成员

豆丁提示：

豆丁提示：

豆丁提示：

豆丁提示：

豆丁提示：

豆丁提示：

豆丁提示：


	豆丁提示：太可惜了，您真的要放弃加入这个优秀团队的机会?


	豆丁提示：您确定要拒绝该用户加入团队的申请吗？


	豆丁提示：您之前所做的团队任务经验值有效，退出团队将不能领取该团任务，您确定退出吗？


	豆丁提示： null


	豆丁提示： null 查看详情


	豆丁提示：您确定要删除该团队成员吗？