怎么获取网页内容并操作网页 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

红袍你好，又来请教你了。

此主题相关图片如下：ee.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

Exit For

End If

'确认tz的代码结束-----------------------------------------------------------------

[此贴子已经被作者于2016/3/16 10:58:55编辑过]

附件

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目1.foxdb

[此贴子已经被作者于2016/3/16 10:56:33编辑过]

汗，确认投注的代码这样写，就一句代码。

应该是webbrowser不支持它那样写的onclick事件代码。

web.Document.InvokeScript("eval", new String() {"document.getElementById('form1').submit();" })

[此贴子已经被作者于2016/3/16 12:14:30编辑过]

完整代码

Dim tz As String = "5余0"
Dim web As System.Windows.Forms.WebBrowser = e.Form.Controls("WebBrowser1").basecontrol
web.Navigate("http://wap.pceggs.com/play/pc28.aspx")
Do Until web.ReadyState = 4
    Application.DoEvents
Loop
Dim lis As System.Windows.Forms.HtmlElementCollection = web.Document.GetElementsByTagName("li") '获得当前页面的A标签HTML元素集合
Dim count As Integer = 0
For Each li As object In lis
    If li.GetAttribute("ClassName") = "kj_white_line" Then
        count += 1
        If count = 4 Then
            If li.GetElementsByTagName("a")(0).Innertext.Contains ("开奖中") = False Then
                li.GetElementsByTagName("a")(0).InvokeMember("Click") '执行该标签的点击方法,实现
                Do Until web.Document.Body IsNot Nothing AndAlso web.Document.Body.InnerHtml.Contains("返回")
                    Application.DoEvents
                Loop
            Else
                MessageBox.Show("开奖中")
            End If
            Exit For
        End If
    End If
Next
'选择投注模式代码开始-----------------------------------------------------------------
lis = web.Document.GetElementsByTagName("li") '获得当前页面的A标签HTML元素集合
count = 0
For Each li As object In lis
    If li.GetAttribute("ClassName") = "kj_white_line" Then
        count += 1
        If count = 4 Then
            Dim ltc As System.Windows.Forms.HtmlElementCollection = li.GetElementsByTagName("a") '获取该li内的所有a标签
            For ii As Integer = 0 To ltc.count - 1
                If ltc(ii).OuterHtml.contains("javascript:personmode") Then '如果a标签包含personmode个人模式这个字符串
                    If ltc(ii).InnerText.contains(tz) Then

                        ltc(ii).InvokeMember("Click") '执行该标签的点击方法
                        Do Until val(web.Document.GetElementById("betting_eggs").InnerText) > 0
                            Application.DoEvents
                        Loop
                        Exit For '终止循环
                    End If
                End If
            Next
            Exit For
        End If
    End If
Next
'选择投注模式代码结束-----------------------------------------------------------------

web.Document.InvokeScript("eval", new String() {"document.getElementById('form1').submit();" })

打死我也想不到要这样写码

还是有问题

图片点击可在新窗口打开查看此主题相关图片如下：cc.png

说没有投注，

感觉这些问题已经不在我能力范围了图片点击可在新窗口打开查看

[此贴子已经被作者于2016/3/16 13:12:41编辑过]

看24楼啊，没问题啊。

知道原因在哪了谢谢

请教一下字符串去重复字符怎么写代码？

比如有一串字符155808，去重复后变成1580

Dim str As String = "155808"
Dim nstr As String = ""
For Each s As String In str
    If nstr.Contains(s) = False Then
        nstr &= s
    End If
Next
msgbox(nstr)

主题：怎么获取网页内容并操作网页