Written by:R Teachout
1/17/2007 2:15 PM

Option Explicit

'to wait for the window "Setup Finish" to appare and press Alt n
'!NOTE! if there are more then one window with the same name it will not work, it will need more work!


dim WshShell, iLoopTimeWait
Set WshShell = WScript.CreateObject("WScript.Shell")
iLoopTimeWait = 500
Call Main()
Set WshShell = Nothing

Sub Main()
  Connect2Window iLoopTimeWait, "Setup Finish"
  WshShell.SendKeys "%n"
End Sub


Function  Connect2Window(iTime, sWindowName)
  Do until WshShell.AppActivate (sWindowName)
     WScript.Sleep iTime
  loop
End function

Found on http://www.msfn.org/board/index.php?showtopic=9171

TrackbackPrint

Location: BlogsRamblings, Scriptlets, and more!

Your name:
Title:
Comment:
Security Code Enter the code shown above in the box below
Add Comment   Cancel