| ■47166 / inTopicNo.7) |
Re[4]: 新しいタブで開きたい |
□投稿者/ vb初心者 (4回)-(2010/02/19(Fri) 15:34:06)
|
■No47158 (魔界の仮面弁士 さん) に返信
> ■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
サンプルコード、実際に試してみました。
ウインドウのタイトル名と、タブのタイトルなど取得できるんで素晴らしかったです。
あとは、一つの何でも良いので、ウインドウに対してURLを投げられるようにしたいと思います！
|
|