|
本帖最后由 风中紫竹 于 2010-1-7 19:11 编辑
最近在研究弄一个新浪邮箱注册工具,大部分都弄完了现在还有一点问题请教
程序用webbrowser控件弄的,新浪邮箱注册面分为两个页面,第一个页面填入用户名和验证码,第二个页面输入其他的信息还有一个验证码,
现在的问题是第一个验证码可以正常输入成功,并提交,第二个验证码在文本框中输入并提交就不成功,咋输都是错误的,而在webbrowser控件中输入就可以输入正常,填表调用的是一个过程,在窗体加载时就自动填表的,只有验证码是和提交铵妞一起的
这是command按钮的代码
Private Sub Command1_Click()
Set vDoc = WebBrowser1.DocumentFor i = 0 To vDoc.All.length - 1
If UCase(vDoc.All(i).tagName) = "INPUT" Then
Set vTag = vDoc.All(i)
If vTag.Type = "text" Then
Select Case vTag.name
Case "door"
vTag.Value = "" & Text3.text & "" 验证码输入框 不知道是不是这里的问题,从这里输入提交的验证码咋输都是错误的,不成功,直接在控件打开的网页内输入的就是成功的,
End Select
ElseIf vTag.Type = "submit" Then
vTag.Click
End If
End If
Next i
Text3 = ""
End Sub |
|