弹出提示框后直接运行程序

q115643492

求一VBS代码，批处理不要。弹出提示框后，不需要点确定，就直接运行代码下面的内容，不知道如何写，请大家帮忙！

qaz123654

1. Msg "111"
   
2. Msg "222"
   
3. Msg "333"
   
4. Msg "444"
   
5. Sub Msg(str)
   
6.     Set oShell = CreateObject("WScript.Shell")
   
7.     oShell.Run "mshta vbscript:msgbox("""&str&""")(self.close)",vbhide
   
8. End Sub

复制代码