tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
[ツリー表示へ]　 [ワード検索]　 [Home]

タイトル ： Re: 起動中のIEへパラメータを渡したい
投稿日： 2008/03/07(Fri) 17:36
投稿者： これ
> IEが起動している場合は、起動中のIEへURLを渡してリロードさせたいのです。
> （起動してない場合は起動させてURLを渡す・・・ですがこちらはわかります）

こんな感じですか？
' Microsoft Shell Contorols And Automationを参照設定に追加
' 起動中のIEは1個限定

Dim sh      As Shell32.Shell    ' Shell Object
Dim shws    As Object           ' ShellWindows Collection
Dim w       As Object           ' Window App
Dim url     As String           ' Navigate URL

    Set sh = New Shell32.Shell
    Set shws = sh.Application.Windows()

    url = "ｈhttp://www.google.co.jp/"    ' 掲示板投稿対策でh全角にしてます

    For Each w In shws
        If Trim(w.Name) = "Microsoft Internet Explorer" Then
            ' ハンドルとURL表示
            'Debug.Print "&H" & Hex(w.hWnd), w.LocationURL

            ' 指定のURLに移動
            w.Navigate url
        End If
    Next
- 関連一覧ツリー （ をクリックするとツリー全体を一括表示します）

古いスレッドにレスはつけられません。