http://community.csdn.net/Expert/topic/4067/4067593.xml?temp=.8975794
用Wscript Object
dim ws as Object
Set ws = CreateObject("Wscript.Shell")
ws.Popup "串口未打开", 1, "提示"
也可FindWindow找到Msgbox,findwindowEX找到Button最后对按钮SendMessage BM_CLICK
——————————————————————————————————————
定时关闭的MessageBox.(该API不支持Win2000)
Private Declare Function MessageBoxTimeout Lib "user32.dll" Alias "MessageBoxTimeoutA" ( _
ByVal hwnd As Long, _
ByVal lpText As String, _
ByVal lpCaption As String, _
ByVal uType As Long, _
ByVal wlange As Long, _
ByVal dwTimeout As Long) As Long
————————————————————————————————————————