VB2005にてプログラムしております。
WebBrowser内にて表示したページでID、PASSを自動入力、ログインするというプログラムですが、
-------------------------------------------------------------
Dim IDCODE As String = TextBox1.Text
Dim PASSCODE As String = TextBox2.Text
'文字列で指定したURLに飛ぶ
WebBrowser1.Navigate("https://XXXXXXXXX.ne.jp/")
'表示終了まで待つ
??????
‘WebBrowser1へID、PASS入力処理
-------------------------------------------------------------
上記の ??????
部分に表示待ちの処理をするコードを入れると思うのですが、
With WebBrowser1
Do While .IsBusy = True
Loop
Do While .ReadyState <> "complete"
Loop
End With
を入力すると読み込み途中で止まってしまうみたいです。
なにかいい方法がありますか?
No.2ベストアンサー
- 回答日時:
Windowsの場合コントロールの描画などを待つなら メッセージループをとめない工夫が必要です
ひとつのプロシージャ内で待機するのであれば
Application.DoEvents() などをつかって メッセージ処理をWindowsにさせましょう
Do Until .ResyState = WebBrowserReadyState.Complete
Application.DoEvents()
Loop
といった具合です
または WebBrowserのDocumentCompletedイベント側で処理するといった手法もありますよ
ありがとうごさいます。大変参考になりました。
DocumentCompletedイベント側で描画終了の変数を発行する方が描画終了のタイミングをつかみやすいので以下のようにして見ました。
-----------------------------
Private Sub WebBrowser1_DocumentCompleted
Label10.Text = ("Login")
Private Sub Button2_Click
'文字列で指定したURLに飛ぶ
WebBrowser1.Navigate("https://XXXXXXXXX.ne.jp/")
‘Loginの表示が出るまで待つ
Do Until Label10.Text = ("Login")
Application.DoEvents()
Loop
-----------------------------
No.1
- 回答日時:
'やってみた。
なお、Form1にWebbrowser1を貼り付けただけの状態でテストPublic Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.Show()
Dim IDCODE As String = "himajin100000"
Dim PASSCODE As String = "pass"
'文字列で指定したURLに飛ぶ
Me.WebBrowser1.Navigate("http://www.yahoo.co.jp")
'ここでRefreshしないとReadyStateがWebBrowserReadyState.Uninitialized = 0になったままらしく、ループを抜けられない。
Me.WebBrowser1.Refresh()
With Me.WebBrowser1
Do While .IsBusy = True
Me.Text = "busy"
Loop
Do While .ReadyState = WebBrowserReadyState.Complete
Me.Text = CStr(.ReadyState)
Loop
Me.Text = "Finished"
End With
End Sub
'ここでRefreshしないとReadyStateがWebBrowserReadyState.Uninitialized = 0になったままらしく、ループを抜けられない。
この部分参考になりました。
ありがとうございます。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
許せない心理テスト
私は「あなたの目の前にケーキがあります。ろうそくは何本刺さっていますか」と言われ「12本」と答えたら…
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
フォームでPDFを表示させたいときは
Visual Basic(VBA)
-
エクセルでエラーが出て困っています。
Excel(エクセル)
-
VBAで既に開いている別アプリケーションのオブジェクトを得る
Visual Basic(VBA)
-
-
4
WebBrowserでPDF表示でのトラブル
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
- ・ゆるやかでぃべーと タイムマシンを破壊すべきか。
- ・歩いた自慢大会
- ・許せない心理テスト
- ・字面がカッコいい英単語
- ・これ何て呼びますか Part2
- ・人生で一番思い出に残ってる靴
- ・ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
- ・初めて自分の家と他人の家が違う、と意識した時
- ・単二電池
- ・チョコミントアイス
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBでの簡易電卓の作成(減算方...
-
VB.NETにおける二値化処理の高速化
-
DoEvents関数って何?
-
Excelでのセル内容の高速消去方法
-
win32apiでの動画出力
-
テキストファイルの空行をスキ...
-
絶対パスの取得について
-
SQLの速度をあげるには・・・
-
C言語で、文字とか入力されなく...
-
win10で、正確な待ち時間の作り方
-
If Not c Is Nothing Then ~延...
-
OpenGLでのコンター表示
-
C言語 再帰処理のメリットとデ...
-
vb2008より、ファイル読み込み...
-
小数点を含む数値かどうか判断...
-
この擬似コードのダメなところ...
-
ナップザック問題?をエクセル...
-
エクセルVBAで教えて頂きたいの...
-
プログラム上のCPU稼働率低減に...
-
逆ポーランド記法における単項...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excelでのセル内容の高速消去方法
-
win10で、正確な待ち時間の作り方
-
DoEvents関数って何?
-
小数点を含む数値かどうか判断...
-
SQLの速度をあげるには・・・
-
ナップザック問題?をエクセル...
-
Excel VBAにて、2GB超の点群デ...
-
Excel(VBA)でSetTimer関数を使...
-
If Not c Is Nothing Then ~延...
-
ノットイコールを教えて下さい
-
基本情報技術者試験詳しい方へ...
-
絶対パスの取得について
-
Excel VBA データ削除の高速化
-
C言語で、文字とか入力されなく...
-
WebBrowserの読み込み待ちの処...
-
プログラム上のCPU稼働率低減に...
-
Excel VBA での処理時間計測結...
-
C言語 時刻差分の算出方法
-
.netからexcel操作の処理速度が...
-
WindowsMessage(ウィンドウメッ...
おすすめ情報