エラーがでてしまう・・・

goo 2005-04-30 09:23:05 No: 121378

お世話になります。
見よう見まねでアカウント取得プログラムを
作成してみたのですがエラーがでてうまく動作しません。
フォームに 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

goo 2005-04-30 09:25:48 No: 121379

すみません。
Do While objIE.Busy = True
         DoEvents
     Loop                WebBrowser1.Document.All.mail.Value
= "p1@fooos.com"

この部分はプログラム上では
Do While objIE.Busy = True
         DoEvents
Loop
WebBrowser1.Document.All.mail.Value= "p1@fooos.com"

こうなっています。m(__)m

マルチ 2005-05-01 07:45:46 No: 121380

http://oshiete1.goo.ne.jp/kotaeru.php3?q=1359686