主頁 > 知識庫 > vbs自動填表單分析附源碼

vbs自動填表單分析附源碼
熱門標簽：外呼系統(tǒng)群 上海辦理400電話選號 機器人打電銷適用于美業(yè)嗎 墨西哥地圖標注app 天津智能外呼系統(tǒng)排名 龍巖400電話申請 企業(yè)400電話辦理價錢低 外呼系統(tǒng)說話聲音小怎么辦 智云億呼電話機器人
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 

一調(diào)試腳本就顯示 缺少對象："ie.document.all("....")" 
"ie.document.all.loginOnForm.submit"這行還顯示對象不支持此屬性或者方法 
請各位大俠幫忙看看 哪里出了錯 謝謝啦
提問者： fxdca2008 - 試用期 一級 
最佳答案
樓主代碼有幾處錯誤： 
1. EndWhile應為Wend 
2. 網(wǎng)頁上的手機號碼、密碼等表單元域其實是在一個iFrame>中的網(wǎng)頁上，不能直接調(diào)用，而應該使
用ie.document.frames(0).document.loginOnForm...來調(diào)用 
正確代碼如下（可以自動填寫交提交，提交上去以后會返回“識別碼錯誤”的提示，屬于正?，F(xiàn)象）
： 
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

標簽：黃山 齊齊哈爾 麗水 青島 阜新 鄂爾多斯 承德 錫林郭勒盟

巨人網(wǎng)絡通訊聲明：本文標題《vbs自動填表單分析附源碼》，本文關鍵詞  vbs,自動,填,表單,分析,附,；如發(fā)現(xiàn)本文內(nèi)容存在版權問題，煩請?zhí)峁┫嚓P信息告之我們，我們將及時溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡，涉及言論、版權與本站無關。
  • 相關文章
  • 下面列出與本文章《vbs自動填表單分析附源碼》相關的同類信息！
  • 本頁收集關于vbs自動填表單分析附源碼的相關信息資訊供網(wǎng)民參考！
    • 推薦文章