Board logo

标题: 弹出提示框后直接运行程序 [打印本页]
作者: q115643492    时间: 2010-7-14 18:09     标题: 弹出提示框后直接运行程序

求一VBS代码，批处理不要。弹出提示框后，不需要点确定，就直接运行代码下面的内容，不知道如何写，请大家帮忙！
作者: qaz123654    时间: 2010-7-14 18:53

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




欢迎光临 批处理之家 (http://www.bathome.net/) Powered by Discuz! 7.2