ｖｂ.netで教えてｇｏｏにログインしたい

質問

参照設定でMicrosoft Internet Controlsを選択し、
モジュールに
********************************************************
Sub osietegoo()
Dim objIE As InternetExplorer
On Error GoTo Err0 '既にログイン済みなら

objIE = CreateObject("InternetExplorer.Application")
objIE.Visible = True

objIE.Navigate("https://c.oshiete.goo.ne.jp/mypage.php3")

Do While objIE.Busy = True Or objIE.ReadyState <> 4
DoEvents()
Loop

objIE.Document.all("uname").Value = "test"
objIE.Document.all("pass").Value = "test"

objIE.Document.all("Submit3").Click()

Err0: '既にログイン済みなら
If Err.Number = 13 Then
End If

objIE = Nothing
End Sub
********************************************************
を貼りつけました。

その結果、
InternetExplorerの部分と
DoEventsの部分がエラーになります。
（画像を参照してください）

Module Module1の外に、Imports　で何かを宣言しなくてはいけないですか？

そもそも上記のコードはＶＢＡなのですが
ＶＢで使う場合どうすればいいでしょうか？

ご回答よろしくお願いします。

回答No.2

田中 裕之（@bybalsendercase） · ベストアンサー

お返事ありがとうございました。

.NET VB風にコードを変更してみました。

Imports SHDocVw
Module Module1
Public Sub osietegoo()
Dim objIE As New InternetExplorer

Err0() '既にログイン済みなら

objIE.Visible = True

objIE.Navigate("https://c.oshiete.goo.ne.jp/mypage.php3")
Do While objIE.Busy = True Or objIE.ReadyState <> tagREADYSTATE.READYSTATE_COMPLETE
Threading.Thread.Sleep(100)
Application.DoEvents()
Loop

objIE.Document.all("uname").Value = "test"
objIE.Document.all("pass").Value = "test"

objIE.Document.all("Submit3").Click()
End Sub
'既にログイン済みなら
Private Sub Err0()
If Err.Number = 13 Then
'ここに処理コードを記入する
End If
End Sub
End Module

本当は、VBはオブジェクト指向ですのでModuleではなく、クラスで作成するべきですが、今回は割愛して、Moduleにしました。

gooのIDがないため、あくまでも「風」です。（涙

お礼

再度ご回答ありがとうございます。

コード書き変えてみました！ＶＢもっと勉強してみます。ありがとうございました。

回答No.1

田中 裕之（@bybalsendercase）

おはようございます

画像があると、わかりやすいですね。

＞InternetExplorerの部分
上記は、名前空間「Imports SHDocVw」をModule Module1の上に追加すれば、大丈夫だと思います。

＞DoEventsの部分の
htmlの読み込み完了のコードですので、VBの場合はApplication.DoEvents()のようにするればいいと思います。

＞ＶＢで使う場合どうすればいいでしょうか？
教えてｇｏｏのIdとパスワードがありませんので、実験できませんが上記の修正のみで使えそうです。
間違っていましたら、ごめんなさい。

お礼

画像添付してよかったです。

Imports SHDocVw　を足したら、
InternetExplorerのエラーが消えました。

DoEventsもうまくできました。
ログインもちゃんとできました。
ありがとうございました。