□投稿者/ 魔界の仮面弁士 -(2010/02/19(Fri) 13:20:53)
| ■No47156 (vb初心者 さん) に返信
> 今回はそこまで細かなことをやろうとしているわけではないです。
> 一番最初に立ち上げた、または一番最後に立ち上げたIEに対して処理ができればうれしいです。
つまり、処理対象の IE は「どれでも良い」わけではなく、
「一番最初または一番最後に起動された物」を扱う必要がある、という事ですか?
> ShellWindowsオブジェクト。
> 知らなかったです!!ちょっと調べてみます!!
[ShellWindows Object]
http://msdn.microsoft.com/en-us/library/bb773974.aspx
Dim ShellWindows As Object
'ShellWindows = CreateObject("Shell.Application").Windows
ShellWindows = GetObject("new:9BA05972-F6A8-11CF-A442-00A0C90A8F39")
'ShellWindows = Activator.CreateInstance(Type.GetTypeFromCLSID( _
' New Guid("{9BA05972-F6A8-11CF-A442-00A0C90A8F39}")))
MsgBox("起動数:" & CStr(ShellWindows.Count))
For Each IE As Object In ShellWindows
MsgBox(String.Format("{0},{1} - 「{2}」" & vbCrLf & "{3}", _
IE.Left, IE.Top, IE.LocationName, IE.LocationURL))
Next |
|