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://bathome.net./) Powered by Discuz! 7.2