dim ie  
set ie=createobject("internetexplorer.application")  
ie.visible=true  
ie.navigate "http://www.ln.chinaunicom.com/index.shtml"  
While ie.busy or ie.readystate<>4  
EndWhile  
ie.document.all("userid").value= "13304948957"'手機號碼  
ie.document.all("passwd").value = "111111"'密碼  
ie.document.all("verifycode").value = "1111"'識別碼  
ie.document.all.loginOnForm.submit  

一調試腳本就顯示 缺少對象："ie.document.all("....")"  
"ie.document.all.loginOnForm.submit"這行還顯示對象不支持此屬性或者方法  
請各位大俠幫忙看看 哪里出了錯 謝謝啦 
提問者： fxdca2008 - 試用期 一級  
最佳答案 
樓主代碼有幾處錯誤：  
1. EndWhile應為Wend  
2. 網頁上的手機號碼、密碼等表單元域其實是在一個<iFrame>中的網頁上，不能直接調用，而應該使 
用ie.document.frames(0).document.loginOnForm...來調用  
正確代碼如下（可以自動填寫交提交，提交上去以后會返回“識別碼錯誤”的提示，屬于正?，F象） 
：  
Sub test()  
Dim ie  
Set ie = CreateObject("internetexplorer.application")  
ie.Visible = True  
ie.navigate "http://www.ln.chinaunicom.com/index.shtml"  
While ie.busy Or ie.readystate <> 4  

Wend  
ie.document.frames(0).document.loginonform.UserId.Value = "13304948957" '手機號碼  
ie.document.frames(0).document.loginonform.passwd.Value = "111111" '密碼  
ie.document.frames(0).document.loginonform.verifycode.Value = "1111" '識別碼  
ie.document.frames(0).document.loginonform.submit  
End Sub