vb.net 程序加载窗体 退出加载窗体命令 vbscript弹出新窗体

set ws = createobject("wscript.shell")

dim x1

rem 弹出输入框 inputbox(text, title, default_value)
x1 = inputbox("请输入一个数字:1/2/3/4/5/16/32/48/64", "标题", 0)

rem 弹出消息框 msgbox(text, type, title)
select case msgbox("msgbox内容", cint(x1), "msgbox标题")
	case 1
		msgbox("选择了[确定]")
	case 2
		msgbox("选择了[取消]")
	case 3
		msgbox("选择了[放弃]")
	case 4
		msgbox("选择了[重试]")
	case 5
		msgbox("选择了[忽略]")
	case 6
		msgbox("选择了[是]")
	case 7
		msgbox("选择了[否]")
	case else
		msgbox("选择超时")
end select

rem 弹出输入框 inputbox(text, title, default_value)
x1 = inputbox("请再输入一个数字:1/2/3/4/5/16/32/48/64", "标题", 0)

rem 弹出消息框(带等待时间) popup(text, waittime, title, type)
select case ws.popup("popup内容", 3, "popup标题", cint(x1))
	case 1
		msgbox("选择了[确定]")
	case 2
		msgbox("选择了[取消]")
	case 3
		msgbox("选择了[放弃]")
	case 4
		msgbox("选择了[重试]")
	case 5
		msgbox("选择了[忽略]")
	case 6
		msgbox("选择了[是]")
	case 7
		msgbox("选择了[否]")
	case else
		msgbox("选择超时")
end select

set ws = nothing

rem --------------type--------------
rem 0	显示[确定]
rem 1 	显示[确定]+[取消]
rem 2 	显示[中止]+[重试]+[忽略]
rem 3 	显示[是]+[否]+[取消]
rem 4 	显示[是]+[否]
rem 5 	显示[重试]+[取消]
rem 16 	显示[确定]+{叉叉图标}
rem 32 	显示[确定]+{问号图标}
rem 48 	显示[确定]+{感叹图标}
rem 64 	显示[确定]+{信息图标}
rem --------------type--------------