2017年11月
      1 2 3 4
5 6 7 8 9 10 11
12 13 14 15 16 17 18
19 20 21 22 23 24 25
26 27 28 29 30    
無料ブログはココログ

« Vista IEで、「Web ページ、HTML のみ (*.htm;*.html)」で「名前を付けて保存」する。 | トップページ | Vista以降で、アクティブなシェルを捕捉する。(その2) »

2010年4月21日 (水)

IE7/IE8で、現在または最後にアクティブなIEを捕捉する。(その2)

WSHから現在または最後にアクティブなIEを捕捉します。

GetCurrentIE.vbs

Set wShell=CreateObject("WScript.Shell")
If wShell.AppActivate(" - Windows Internet Explorer") Then
  wShell.SendKeys "^{f6}"
  For Each ie In CreateObject("Shell.Application").Windows()
    If ie.ReadyState=4 Then If TypeName(ie.Document)="HTMLDocument" Then If ie.Document.hasFocus() Then Exit For
  Next
End If
If IsEmpty(ie) Then
  MsgBox "Not Found"
Else
  MsgBox ie.LocationURL
End If

AppActivate(" - Windows Internet Explorer")で、現在または最後にアクティブなIEをアクティブにし、SendKeys "^{f6}"で、HTMLDocumentのペインにフォーカスを移動します。これを判定します。

« Vista IEで、「Web ページ、HTML のみ (*.htm;*.html)」で「名前を付けて保存」する。 | トップページ | Vista以降で、アクティブなシェルを捕捉する。(その2) »