Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations gkittelson on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
InternetExplorer.Application
- Thread starter sfriday
- Start date
Steve,
Try the AppActivate Method.
Here is a quick example:
'Pick a Large enough number so it will give you time
'to open another window
num = inputbox("enter a number"
TimeIt(num)
Function TimeIt(N)
Dim StartTime, EndTime
set WshShell = WScript.CreateObject("WScript.Shell"
WshShell.Run "calc"
StartTime = Timer
For I = 1 To N
Next
WshShell.AppActivate "Calculator"
EndTime = Timer
TimeIt = EndTime - StartTime
End Function
Hope this helps.
Cornboy88
![[noevil]](/data/assets/smilies/noevil.gif "[noevil] [noevil]")
Try the AppActivate Method.
Here is a quick example:
'Pick a Large enough number so it will give you time
'to open another window
num = inputbox("enter a number"
TimeIt(num)
Function TimeIt(N)
Dim StartTime, EndTime
set WshShell = WScript.CreateObject("WScript.Shell"
WshShell.Run "calc"
StartTime = Timer
For I = 1 To N
Next
WshShell.AppActivate "Calculator"
EndTime = Timer
TimeIt = EndTime - StartTime
End Function
Hope this helps.
Cornboy88
- Status
Similar threads
- Locked
- Question