麻豆小视频在线观看_中文黄色一级片_久久久成人精品_成片免费观看视频大全_午夜精品久久久久久久99热浪潮_成人一区二区三区四区

首頁 > 編程 > VBScript > 正文

vbs自動填表單分析附源碼

2020-07-26 11:56:57
字體：大 中 小
來源：轉載
供稿：網友
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...來調用 
正確代碼如下（可以自動填寫交提交，提交上去以后會返回“識別碼錯誤”的提示，屬于正常現象）
： 
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

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板： 免费a观看 | 久久一区三区 | 久久综合入口 | 色综合久久久久久久久久久 | 在线91视频 | 久久精品日产第一区二区三区 | 免费一区二区三区 | chinese hd xxxx tube| 国产精品视频二区不卡 | 久草在线观看福利 | 热99精品视频 | 亚洲片在线观看 | 91av资源在线 | 欧美精品一区二区久久 | 九九精品在线观看视频 | 中国字幕av| 一级电影免费在线观看 | 成年免费观看视频 | 久久经典免费视频 | 性欧美日本| 一级免费在线视频 | 老师你怎么会在这第2季出现 | 久久久久久久久久久综合 | 国产午夜亚洲精品午夜鲁丝片 | 欧美无极品 | 欧美国产精品一区二区 | 欧美成人黄色小视频 | 成年性羞羞视频免费观看 | 国产一级桃视频播放 | 一边吃奶一边插下面 | 毛片视频在线免费观看 | 久久精品小短片 | 精品一区二区在线观看视频 | 国产成人精品免费视频大全办公室 | 久久亚洲网 | 欧美国产成人在线 | 国产99久久精品一区二区300 | 福利在线影院 | 中国黄色一级生活片 | 国产成人在线观看免费 | 伊人网站 |