对你这种问题,其实回答表用一张就行
不登陆的,你设置个全局变量,给个数字串当做用户名就行了
因为问题比较多,有多少个问题就写入多少条记录,格式是 用户、问题编号、答案
如果你不在乎问题的完整性,那么15个页面分别提交,最后也不检验是否全部回答
如果需要完整,那么最好弄个所谓临时表,用户回答完之后,汇总提交,也能检查是不是完整
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, Url As Variant)
Dim vDoc
Set vDoc = WebBrowser1.Document
vDoc.getElementById("UserName").Value = "孙悟空"
vDoc.getElementById("password").Value = "猪八戒"
vDoc.getElementById("randCode").Value = "验证码"
vDoc.getElementById("subLink").Click
End Sub
验证码提取就没那么容易了吧。呵呵~~
id userid biaoid wentiid wentiidanan 好了