我已经写好了登录游戏的代码。现在点击游戏里的按钮出了点问题。
asp页面代码:
<TABLE id=task_menu 省略代码>
<TBODY>
<TR>
<TD 省略代码>
<DIV align=center>巡查</DIV></TD></TR></TBODY></TABLE>VB代码:
Label.Caption = WebBrowser1.Document.getelementbyid("task_menu").innerText
这句可以得到“巡查”二字。这说明我们已经获得了这个TABLE标签。但是
WebBrowser1.Document.getelementbyid("task_menu").Click
这样写却什么反应都没。
要怎样点击这个用TABLE构造的按钮呢?
asp页面代码:
<TABLE id=task_menu 省略代码>
<TBODY>
<TR>
<TD 省略代码>
<DIV align=center>巡查</DIV></TD></TR></TBODY></TABLE>VB代码:
Label.Caption = WebBrowser1.Document.getelementbyid("task_menu").innerText
这句可以得到“巡查”二字。这说明我们已经获得了这个TABLE标签。但是
WebBrowser1.Document.getelementbyid("task_menu").Click
这样写却什么反应都没。
要怎样点击这个用TABLE构造的按钮呢?
Dim i As Integer
For i = 0 To WebBrowser1.Document.All.length - 1
On Error Resume Next
If WebBrowser1.Document.All(i).tagname = "TABLE" Then
If WebBrowser1.Document.All(i).Id = "task_menu" Then
WebBrowser1.Document.All(i).Click
End If
End If
Next
End Sub
的确不懂,就加我QQ249997378,注明来意!
Private Sub LOGON()
Dim vDoc, vTag
Dim i As Integer
Set vDoc = WebBrowser1.Document
For i = 0 To vDoc.All.length - 1
If UCase(vDoc.All(i).tagName) = "INPUT" Then
Set vTag = vDoc.All(i)
If vTag.id = "u" Or vTag.id = "p" Then
Select Case vTag.Name
Case "u"
vTag.Value = Txt_USER.Text
Case "p"
vTag.Value = Txt_PassWord.Text
End Select
ElseIf vTag.Type = "submit" Then
vTag.Click
End If
End If
Next i
End Sub