百度百科 VBS 百度百科 msgbox

示例代码

' ------ 循环操作示例 ------
Dim j
Do while j < 1
    Select Case MsgBox("做我女朋友好吗",68,"请郑重的回答我")
        Case 6 j = 1
        Case 7 MsgBox("再给你一次机会")
    End Select
Loop
MsgBox("我就知道你会同意的，哈哈哈哈")

' ------ 循环操作示例 ------
Dim j
Do
	Select Case InputBox("姑娘，做我女朋友吧")
		Case "同意": 
			MsgBox "单击了“取消”按钮。"
			Exit Do
		Case "好": 
			MsgBox "单击了“终止”按钮。"
			Exit Do
	End Select
Loop

' ------ 循环if示例 ------
Const yourname = "姑娘"
' 定义变量
Dim youranswer
Do
    youranswer = InputBox("你最喜欢的人是谁？请在下面的方框中输入他（她）的名字。", "爱情测试")
    If youranswer <> yourname Then MsgBox "你在说谎！不要逃避，实话实说。", vbInformation + vbOKOnly, "爱情测试"
Loop untilyouranswer = yourname

'声明变量
Dim txt, sentences

' 读取文件 当前目录下的文件（base.txt）
Set txt = CreateObject("Scripting.FileSystemObject").OpenTextFile(CreateObject("WScript.Shell").CurrentDirectory + "\base.txt", 1)
sentences = Split(txt.ReadAll(), Chr(10))'回车键的ASCII码值是10，这里是用回车来分割句子。返回值是一个数组
For i = 0 To UBound(sentences) - 1
    sentences(i) = Replace(sentences(i), "[\n]", Chr(10))'把所有句子内的字符串"[\n]"换为换行符，做到第一行是英文，第二行是中文
Next

' 下面是一些交互性的操作
' 用随机数输出数组中的内容 vbCrLf是内定的关键字，代表一个换行符，与Chr(10)的作用相同[仅Windows系统下]
Select Case MsgBox(sentences(Int(Rnd * UBound(sentences) - 1 + 1)) + vbCrLf + "小姐姐你愿意做我的女朋友吗？", 4, "小姐姐，听我说！")
    Case 6
		' 只要点击同意就可以自动关闭所有的cmd窗口（需要手速）
		CreateObject("WScript.Shell").Run "cmd /c taskkill -f -im cmd.exe", vbHide, True 
		' Popup()函数可以设置弹窗的生命周期，即弹窗会在停留固定时间后会自动关闭。中间的参数2是指弹出的消息框只能存在2秒，过时自动关闭
		CreateObject("WScript.Shell").Popup "嘻嘻，老婆好！", 2, "欧耶！太高兴了！"
		' 关闭wscrip脚本宿主，停止继续打开vbs文件
		CreateObject("WScript.Shell").Run "cmd /c taskkill -f -im wscript.exe" 
    Case 7
		Set ws = CreateObject("WScript.Shell")
		ws.Popup "为什么要这样，我好伤心啊T_T", 3, "啊啊啊，你怎么能拒绝我呢QAQ"
		' 死循环 弹窗轰炸
		Do 
			ws.Run CreateObject("Scripting.FileSystemObject").GetFile(WScript.ScriptFullName).Path
			ws.Run "cmd.exe /c echo 我好伤心啊QWQ！"
		Loop
End Select

MsgBox弹框

MsgBox(Prompt[,Buttons][,Title][,Helpfile,Context])

' 图标样式
MsgBox "十年相遇",vbOKOnly + vbInformation, "我是标题栏"
MsgBox "我愿以万年的等待，换你今朝一世情缘", 3 + 48, "我是标题栏"

Select Case MsgBox ("我愿以万年的等待，换你今朝一世情缘",3)
	Case 1: 
		MsgBox "单击了“确定”按钮。"
	Case 2: 
		MsgBox "单击了“取消”按钮。"
	Case 3: 
		MsgBox "单击了“终止”按钮。"
	Case 4: 
		MsgBox "单击了“重试”按钮。"
	Case 5: 
		MsgBox "单击了“忽略”按钮。"
	Case 6: 
		MsgBox "单击了“是”按钮。"
	Case 7: 
		MsgBox "单击了“否”按钮。"
End Select

按 钮 类 型	VbOKOnly	0	只显示‘确定’按钮
	VbOKCancel	1	显示‘确定’及‘取消’按钮
	VbAbortRetryIgnore	2	显示‘终止’、‘重试’及‘忽略’按钮
	VbYesNoCancel	3	显示‘是’、‘否’及‘取消’按钮
	VbYesNo	4	显示‘是’、‘否’按钮
	VbRetryCancel	5	显示‘重试’及‘取消’按钮
图 标 类 型	VbCritical	16	显示Critical Message图标（系统×号图标）
	VbQuestion	32	显示Warning Query图标（系统问号图标）
	VbExclamation	48	显示warning Message图标（系统感叹号图标）
	VbInformation	64	显示Information Message图标（系统信息图标）
默 认 按 钮	VbDefaultButton1	0	第一个按钮是默认值
	VbDefaultButton2	256	第二个按钮是默认值
	VbDefaultButton3	512	第三个按钮是默认值
	VbDefaultButton4	768	第四个按钮是默认值
强制 返回	VbApplicationModel	0	应用程序强制返回
	VbsystemModel	4096	系统强制返回
其 他 类 型	VbMsgBoxHelpButton	16384	在对话框添加一个‘帮助’按钮
	VbMsgBoxSetForeground	65535	指定对话框窗口作为前景窗口
	VbMsgBoxRight	524288	对话框中的文本为右对齐
	VbMsgBoxRtlReading	1048576	指定对话框中的元素从右到左显示

inputbox输入提示框

InputBox(Prompt[, Title] [, Default] [, XPos, YPos] [, Helpfile, Context])