■ [.net]新たに開かれたブラウザのDocumentを取得するには
VB初心者
2008/02/11(月) 17:31:23 <初心者> 
下記のように「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
'新しいブラウザーが開かれる
lol
2008/02/14(木) 00:50:43 <初心者>
Webbrowserコントロールじゃ駄目なんかね？
http://msdn2.microsoft.com/ja-jp/library/w290k23d(VS.80).aspx
それと.NETなら板違いだ。
続きは
http://hpcgi1.nifty.com/MADIA/VBBBS2/wwwlng.cgi
か
http://hpcgi1.nifty.com/MADIA/VBBBS2/wwwlng.cgi
でやってくれ。
lol
2008/02/14(木) 00:51:50 <初心者>
リンク一緒じゃねーかorz
こっちな
http://hpcgi1.nifty.com/MADIA/vbnet/wwwlng.cgi
VB初心者
2008/02/14(木) 23:55:18 <初心者>
[[解決]]
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
毎週金曜日はポイント最大3倍！さらに4倍のチャンスも！
