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


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

お世話になります。
見よう見まねでアカウント取得プログラムを
作成してみたのですがエラーがでてうまく動作しません。
フォームに  webbrowserとコマンドクリックボタン
ひとつずつという簡単なプログラムなのですが・・。
エラーの内容は WebBrowser1.Document.All.mail.Value
この部分が黄色くなりオブジェクトはこのプロパティをサポートしていません。。。とでます。

僕自身はじめて3週間ぐらいなんで
何が悪いのかさっぱり・・
詳しい方教えてください。お願いします。

Private Sub Command1_Click()
    Dim objIE    As Object  'IEオブジェクト参照用
    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


※返信する前に利用規約をご確認ください。




  


  このエントリーをはてなブックマークに追加