vbs自動填表單分析附源碼

2020-07-26 11:56:57

字體：大中小

供稿：網(wǎ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應(yīng)為Wend
2. 網(wǎng)頁上的手機號碼、密碼等表單元域其實是在一個<iFrame>中的網(wǎng)頁上，不能直接調(diào)用，而應(yīng)該使
用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

上一篇：vbs實現(xiàn)的漢字轉(zhuǎn)拼音的函數(shù)

下一篇：vbs實現(xiàn)的定時提醒你休息的腳本