我以前用VBS做了一个在电脑里自动弹出对话框的程序，就是弹出一个对话框，内容自定义，对话框自定义。

msgbox "hello"

MsgBox(prompt[, buttons] [, title] [, helpfile, context])
buttons 参数有下列设置值：
常数 值 描述
vbOKOnly 0 只显示 OK 按钮
VbOKCancel 1 显示 OK 及 Cancel 按钮。
VbAbortRetryIgnore 2 显示 Abort、Retry 及 Ignore 按钮。
VbYesNoCancel 3 显示 Yes、No 及 Cancel 按钮。
VbYesNo 4 显示 Yes 及 No 按钮。
VbRetryCancel 5 显示 Retry 及 Cancel 按钮。
VbCritical 16 显示 Critical Message 图标。
VbQuestion 32 显示 Warning Query 图标。
VbExclamation 48 显示 Warning Message 图标。
VbInformation 64 显示 Information Message 图标。
vbDefaultButton1 0 第一个按钮是缺省值。
vbDefaultButton2 256 第二个按钮是缺省值。
vbDefaultButton3 512 第三个按钮是缺省值。
vbDefaultButton 4768 第四个按钮是缺省值。
如果"显示 Retry 及 Cancel 按钮" 且让"第三个按钮是缺省值"则：
msgbox "hello",517 '517=5+512

我是来翻译野人的答案的。。采不采纳没所谓。。Msgbox函数的格式为
MsgBox(内容[, 按钮类型] [, 标题文本] [, 帮助文件, context])
也就是说大概是这样: MsgBox "内容"，按钮参数，"标题"
按钮参数填楼下的就可以了