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

q115643492

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

qaz123654

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
复制代码