openvbs

SUBMITTED BY: liza2015

DATE: March 16, 2016, 4:42 p.m.

UPDATED: March 16, 2016, 4:57 p.m.

FORMAT: Text only

SIZE: 416 Bytes

History Raw Download

HITS: 84881

Report
  1. Set oShell = CreateObject("WScript.Shell")
  2. oShell.Run("""C:\Program Files\Mozilla Firefox\firefox.exe""")
  3. oShell.Run("""C:\Program Files (x86)\Mozilla Firefox\firefox.exe""")
  4. oShell.Run("""C:\Program Files (x86)\Internet Explorer\iexplore.exe""")
  5. WScript.Sleep 3000
  6. oShell.AppActivate ("firefox")
  7. oShell.AppActivate ("Windows internet explorer")
  8. WScript.Sleep 3000
  9. oShell.SendKeys "~"
  10. oShell.SendKeys "{F4}"
comments powered by Disqus