|
かみちゃん さん
ご指摘どうりでした。こんなコントロールがあるとは今の今まで知りませんでした。
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Dim objITEM As Object
DoEvents
If (Not Me.WebBrowser1.Busy) And _
Me.WebBrowser1.ReadyState = 4 Then
'テキストボックスにセットする。
Me!WebBrowser1.Document.all.User_Name.Value = "userid"
Me!WebBrowser1.Document.all.User_Pass.Value = "password"
'Submitボタンを押してみる。
Me.WebBrowser1.Document.forms(0).submit
myFlag = False
End If
End Sub
これを実行すると、
Me!WebBrowser1.Document.all.User_Name.Value = "userid"
このラインで止まってしまいます。
実行時エラー'438'オブジェクトは、このプロパティまたはメソッドをサポートしていません。
URLを表示して
'Me.WebBrowser1.Document.forms(0).submit コメントアウト
”userid”"password"を手入力するとうまくログインできるのですが、なぜでしょうか?
|
|