Msg "111" Msg "222" Msg "333" Msg "444" Sub Msg(str) Set oShell = CreateObject("WScript.Shell") oShell.Run "mshta vbscript:msgbox("""&str&""")(self.close)",vbhide End Sub复制代码