红袍你好,又来请教你了。
![dvubb 图片点击可在新窗口打开查看](skins/default/filetype/png.gif)
此主题相关图片如下:ee.png
![dvubb 图片点击可在新窗口打开查看](UploadFile/2016-3/201631610533521970.png)
目前碰到的问题是增加确认touzhu的代码以后,连选择touzhu模式代码也无效了
'确认tz的代码开始-----------------------------------------------------------------
Dim lis2 As System.Windows.Forms.HtmlElementCollection = web.Document.GetElementsByTagName("li") '获得当前页面li标签
Dim count2 As Integer = 0
For Each li2 As object In lis2
If li2.GetAttribute("ClassName") = "kj_white_line" Then
count2 += 1
If count2 = 3 Then
Dim ltd As System.Windows.Forms.HtmlElementCollection = li2.GetElementsByTagName("a") '获取该li内的所有a标签
For ii As Integer = 0 To ltd.count - 1
If ltd(ii).OuterHtml.contains("document.getElementById('form1').submit();") Then '如果a标签包含特定字符串
If ltd(ii).InnerText.contains("tz") Then '因为发帖限制用tz代替,实际是中文
ltd(ii).InvokeMember("Click") '执行该标签的点击方法
Exit For '终止循环
End If
End If
Next
Exit For
End If
End If
Next
'确认tz的代码结束-----------------------------------------------------------------
[此贴子已经被作者于2016/3/16 10:58:55编辑过]