程序是想实现新浪会员注册的。
https://login.sina.com.cn/signup/signup?entry=homepage
上面的是网址
第一步点击 邮箱注册，然后点击 我没有邮箱----》就是这个link 明明是A TAG就是点击不到。
源码如下
Private Sub Command3_Click()
'ts "邮箱注册"
ts "我没有邮箱"
End Sub
Private Sub ts(Str2 As String)
Dim vDoc, Str1 As String
Dim I As Integer, P As String
' On Error GoTo Resume Next '打开错误陷阱
Set vDoc = WebBrowser1.Document
For I = 0 To vDoc.All.length - 1 '检测所有标签
'===============================判断项目p==================
P = vDoc.All(I).tagName
P = Trim$(LCase$(P))
'===================TAG 名称===========================
If P = "a" Then
Str1 = vDoc.All(I).innertext
If Str1 = Str2 Then
vDoc.All(I).Click
Exit Sub
End If
End If
Next I
End Sub
说明 下，代码执行点击 邮箱注册 没有任何问题，但是 点击 我没有邮箱就是不成功，求高手分析下
我就是为了注册一个号，不点击我没有邮箱就要填自己的邮箱，怎么办啊，高手说说如何操作。
另外 下面的 兴趣爱好 哪个打钩的 怎么赋值啊（随便够一个，怎么够啊？）
真心求高手帮帮忙
------解决思路----------------------
有可能是网页中使用了ajax，需要延时一下才能点到
------解决思路----------------------
A 只是表象，有一A不代表在A上面执行。可能是他的上级元素，或是上上级，或.....