|
|
马上加入TC
您需要 登录 才可以下载或查看，没有帐号？立即注册
x
大家都知道 tc的辅助.消息框是不带声音的，所以可以用这个
api消息框 带返回值
功能 消息框(文本,标题="我的软件",提示类型=0,时间=0,&返回值=0,句柄=0)
如果(句柄==0)
句柄=窗口.自身句柄()
如果结束
如果(时间==0)
返回值=dllcall("user32.dll", "int","MessageBoxA", "int",句柄,"char *",文本,"char *",标题,"int",提示类型 )
否则
返回值=dllcall("user32.dll", "int","MessageBoxTimeoutA", "int",句柄,"char *",文本,"char *",标题,"int",提示类型,"int",0,"int",时间 )
如果结束
//'MsgBox类型参数的取值：
//'符号常量 值 作 用
//'vbOKOnly 0 只显示“确定”按钮
//'vbOKCancel 1 只显示“确定”及“取消”按钮
//'vbAbortRetryIgnore 2 显示“放弃”、“重试”和“忽略”按钮
//'vbYesNoCancel 3 显示“是”、“否”和“取消”按钮
//'vbYesNo 4 显示“是”和“否”按钮
//'vbRetryCancel 5 显示“重试”和“取消”按钮
//'图 标 样 式
//'vbCritical 16 显示系统叉号图标 有声音
//'vbQuestion 32 显示系统问号图标
//'vbExclamation 48 显示系统叹号图标 有声音
//'vbInformation 64 显示系统信息图标 有声音
//'默 认 按 钮
//'vbDefaultButton1 0 第一个按钮为默认按钮
//'vbDefaultButton2 256 第二个按钮为默认按钮
//'vbDefaultButton3 512 第三个按钮为默认按钮
//'vbDefaultButton4 768 第四个按钮为默认按钮
//'强制 返回
//'vbApplicationModal 0 应用程序强制返回
//'vbSystemModal 4096 系统强制返回
//'MsgBox函数返回值
//'常数 值 描述
//'vbOK 1 单击了“确定”按钮。
//'vbCancel 2 单击了“取消”按钮。
//'vbAbort 3 单击了“终止”按钮。
//'vbRetry 4 单击了“重试”按钮。
//'vbIgnore 5 单击了“忽略”按钮。
//'vbYes 6 单击了“是”按钮。
//'vbNo 7 单击了“否”按钮。
功能结束
VBS消息框
功能 消息框(消息,标题="我的软件",类型=0)
vbs路径=辅助.获取资源路径("rc:")&"消息提示.vbs"
vbs语句="msgbox \""&消息&"\","&类型&",\""&标题&"\""
如果(文件.是否存在(vbs路径))
文件.删除(vbs路径)
如果结束
文件句柄=文件.创建(vbs路径,"读写")
文件.关闭(文件句柄)
文件句柄=文件.打开(vbs路径)
文件.末尾写入(文件句柄,vbs语句)
文件.关闭(文件句柄)
辅助.命令(vbs路径,假)
功能结束
|
|
/2 
发表于 2014-11-14 12:24:10
