[.net]新たに開かれたブラウザのDocumentを取得するには

解決

---

下記のように「objIE1」からログインして新しく開かれた
ブラウザーを「objIE2」として
objIE2.document.all("SUBMIT").Click
などと操作したいのですが、新しく開かれたブラウザーを「objIE2」
として、取得する方法がわかりません。どなたか、教えてください。
よろしくお願いします。


    Dim objIE1 As Object
    Set objIE1 = CreateObject("InternetExplorer.application")
    objIE1.Visible = True
    objIE1.Navigate "https://----------------"
    Do While objIE1.Busy = True
        DoEvents
    Loop
    Do While objIE1.ReadyState <> 4
        DoEvents
    Loop
        
    'パスワード入力
    objIE1.document.all("ID").Value = "*****" 'ユーザー名
    objIE1.document.all("PASSWORD").Value = "*****"    'パスワード
    objIE1.document.all("SUBMIT").Click
    '新しいブラウザーが開かれる

編集 削除

---

Webbrowserコントロールじゃ駄目なんかね？
http://msdn2.microsoft.com/ja-jp/library/w290k23d(VS.80).aspx

それと.NETなら板違いだ。
続きは
http://madia.world.coocan.jp/cgi-bin/VBBBS2/wwwlng.cgi
か
http://madia.world.coocan.jp/cgi-bin/VBBBS2/wwwlng.cgi
でやってくれ。

編集 削除

---

リンク一緒じゃねーかorz
こっちな
http://madia.world.coocan.jp/cgi-bin/vbnet/wwwlng.cgi

編集 削除

---

ken3さんのおかげで解決しました＼(^o^)／
ken3さん！本当にありがとうございました<(_ _)>

-----------------------------------------------

'オブジェクトを格納する変数
    Dim objShell As Object, objWindow As Object
    Dim objIE As Object

    '見つけたか判断用のフラグ
    Dim nFLG  As Boolean
    nFLG = False

    'シェルのオブジェクトを作成する
    Set objShell = CreateObject("Shell.Application")
    
    'ウインドウの数だけまわすぞ
    For Each objWindow In objShell.Windows
        Debug.Print "タイプは:" & TypeName(objWindow.document)
        'HTMLDocumentだったら
        If TypeName(objWindow.document) = "HTMLDocument" Then
            'オブジェクトを代入する
            Set objIE = objWindow
    '※次にタイトルやURLで判断する
            Debug.Print "見つけたIEのURL:" & objIE.LocationURL
            If objIE.LocationURL = "http:xxxx" Then
                nFLG = True '見つけたよ
                Exit For  '初めに見つけたオブジェクトを代入
    End If
        End If
    Next
    Set objShell = Nothing

編集 削除

---

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

←解決時は質問者本人がここをチェックしてください。

返信する