VB.NET(VB 2010 Express)でIE9をWebBrowserコントロールではなく直接操作しています。
先にここで、あるサイトのトップページを表示し、それにユーザID、パスワードを入力し、ログオンボタンをクリックして次のページを別タブで表示する方法を教えて頂きました。
そこで、別タブに表示した次ページのHTMLソースを取得する方法として、下記のコードを教えて頂きました。
Dim objIE As Object
objIE = CreateObject("InternetExplorer.application")
objIE.Visible = True
objIE.Navigate("http://login.yahoo.co.jp/")
Do While objIE.Busy
System.Threading.Thread.Sleep(500)
Loop
objIE.Document.login_form.login.Value = "xxxxx" 'ユーザIDを入力
objIE.Document.login_form.passwd.Value = "yyyyy" 'パスワードを入力
objIE.Document.login_form.target = "_blank" '別ページに表示
objIE.Document.login_form.submit()
Dim Shell As Object
Dim win As Object
Dim newObjIE As Object
Shell = CreateObject("Shell.Application")
For Each win In Shell.Windows
If TypeName(win.document) = "HTMLDocument" Then 'このif文がTrueにならない
If win.document.URL = "http://yahoo.co.jp" Then
newObjIE = win
Exit For
End If
End If
Next
しかし、コメントのあるif文がTrueにならないようです。修正方法を教えて頂きたくよろしくお願い致します。
No.1ベストアンサー
- 回答日時:
>If TypeName(win.document) = "HTMLDocument" Then
win.document の型が "HTMLDocument" と違うという事は理解されているのだから
Debug.Print(TypeName(win.document)) のようにしてどの型なのかを見て見れば
解りませんか?
"HTMLDocument" は、VB6.0 のコードの場合の型で、VB2010 の場合は、同じとは限りませんよ。
Dim win As Object のような遅延バインディング にしなかったら気が付くのが早かったのですが。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) InputBoxでキャンセルボタンを押したらファイル自体を閉じたい 3 2022/07/23 17:52
- Visual Basic(VBA) 【VBA】写真の貼り付けコードがうまく機能しません。 5 2022/09/01 18:43
- Visual Basic(VBA) EXCEL VBAで NHK NEWSの NEWSデータ内容取得が できない 1 2023/04/09 12:26
- Visual Basic(VBA) このVBAでExcelアプリケーションを作成は必要ですか? 3 2023/07/19 21:13
- Visual Basic(VBA) EXCEL VBAにて動的にCheckBOXを複数作成し、同BOXにイベントを追加したい 1 2023/03/16 07:05
- Excel(エクセル) フォルダ内のワードファイルをPDFに一括変換するVBA 3 2023/06/09 16:51
- Visual Basic(VBA) excel vbaでvlooupの変数がわかりません。 7 2022/05/30 09:35
- Excel(エクセル) VBAの指示の内容 昨日こちらでご教示頂いたのですが初心者な為、一つ一つの指示が何をやっているのかわ 2 2022/10/25 18:08
- Excel(エクセル) B列に文字がはいったらA列に数字が入るマクロードを完成させたい 4 2023/04/21 01:58
- Visual Basic(VBA) 【Excel VBA】自動メール送信の機能追加 5 2022/09/29 12:53
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
mousewheelイベントについて
-
Latexに関する質問です。
-
乗換案内 VBAで操作したい
-
javascriptの基本的なことだと...
-
ラジオボタンをクリックしたい
-
Javascriptで定期的にF5を押す...
-
showModalDialogで開いた画面を...
-
DOM要素を削除しても、イベント...
-
VBAでIEのボタンを押してメッセ...
-
関数でy=g(x)のgとは何の略です...
-
google apps scriptの終了のさせ方
-
Boolean型配列中のTrueの有無を...
-
<a>タグのテキストを取得
-
【正規表現】【javascript】CR...
-
idを使わずにonclickで自身の要...
-
functionから別のfunctionを実...
-
jspからjavascriptの変数引継ぎ
-
なぜmatchメソッドがエラーにな...
-
ジェネレーターの作り方
-
【Jquery】changeイベント毎にa...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
FireFoxのjavascriptで自動でキ...
-
Latexに関する質問です。
-
DOM要素を削除しても、イベント...
-
XMLでのAttributeを持ったNode...
-
TexでΣの添え字の位置直し
-
JavaScript window.openで開く...
-
Null またはオブジェクトではあ...
-
javascriptの基本的なことだと...
-
iframeのソースを取得したい
-
選択肢によってラジオボタンを...
-
excle VBA とweb上の検索を利用...
-
文字を一文字ずつ表示
-
ラジオボタンでreadonlyの切替え
-
responseTextについて
-
VBAのIE操作でframe構造のサイ...
-
サブウィンドウからのスタイル...
-
JavaScriptのdocument.all("変...
-
オンマウスについて
-
要素のリサイズをひろい、他の...
-
クリッカブルマップのリンク部...
おすすめ情報