エラーがでてしまう・・・ (ID:121378)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 お世話になります。 見よう見まねでアカウント取得プログラムを 作成してみたのですがエラーがでてうまく動作しません。 フォームに webbrowserとコマンドクリックボタン ひとつずつという簡単なプログラムなのですが・・。 エラーの内容は WebBrowser1.Document.All.mail.Value この部分が黄色くなりオブジェクトはこのプロパティをサポートしていません。。。とでます。 僕自身はじめて３週間ぐらいなんで 何が悪いのかさっぱり・・ 詳しい方教えてください。お願いします。 Private Sub Command1_Click() Dim objIE As Object 'ＩＥオブジェクト参照用 Dim k As Integer Dim Now As Long For k = 93 To 1000 Set objIE = CreateObject("InternetExplorer.application") objIE.Visible = False WebBrowser1.Navigate2 "http://www.tram-stopper.com/community/adult/panel.cgi?http=a&sh=sh" Do While objIE.Busy = True DoEvents Loop WebBrowser1.Document.All.mail.Value = "p1@fooos.com" WebBrowser1.Document.All.ps.Value = "ken3k" WebBrowser1.Document.All.linkurl.Value = "http://www.yahoo.co.jp/" WebBrowser1.Document.All.Id.Value = "afx" & k WebBrowser1.Document.Forms(0).Submit Now = Timer While Timer < Now +1 '1秒間待機する DoEvents Wend Next k End Sub