[求助]. 在使用 HttpClient自动每隔一分钟获取数据时，提示错误尝试自动重定向的次数太多。 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

在计划管理里面，设置每隔一分钟执行下面代码，获取数据时，前面一段时间是可以正常获取数据的，但是过段时间后就会提示如下错误：

.NET Framework 版本：2.0.50727.8825

Foxtable 版本：2018.8.30.1

错误所在事件：

详细错误信息：

尝试自动重定向的次数太多。

Error reading JObject from JsonReader. Path '', line 0, position 0.

执行代码如下：

For Each r As Row In Tables("彩piao数据").Rows

'22点--0点

If #22:00# < Format(Date.Now, "t") And Format(Date.Now, "t") < #23:59#

If r("开始时间")< Format(Date.Now.AddMinutes(-5) , "t") And Format(Date.Now.AddMinutes(-5) , "t") < r("结束时间") Then

If r("开奖结果_个位") = Nothing Then

Dim hc As New HttpClient("http://wxcsxy.com//plans/cqssc.php")

Dim jo As JObject = Jobject.Parse(hc.GetData)

If jo("result")("data") IsNot Nothing Then

Dim ja As JArray = jo("result")("data")

Dim hm As String = ja(0)("preDrawCode").ToString

Dim cpqh As String = ja(0)("preDrawIssue").ToString

Dim Parts() As String = hm.Split(",")

If r("期号") = cpqh Then

r("开奖结果_万位") = CInt( Parts(0))

r("开奖结果_千位") = CInt(Parts(1))

r("开奖结果_百位") = CInt(Parts(2))

r("开奖结果_十位") = CInt(Parts(3))

r("开奖结果_个位") = CInt(Parts(4))

End If

访问不能过快，不然会触发人家网站保护机制

For i As Integer = 1 To 20
    try
        Dim req = System.Net.WebRequest.Create("http://wxcsxy.com//plans/cqssc.php")
        req.Method = "get"
        req.ContentType = "application/x-www-form-urlencoded"
        req.UserAgent = "Mozilla/5.0 (Windows NT 6.3; rv:57.0) Gecko/20100101 Firefox/57.0"
        Dim pos = req.GetResponse
        Dim stm As System.IO.Stream = pos.GetResponseStream()
        Dim reader As New System.IO.StreamReader(stm)
        Dim str As String = reader.ReadToEnd
        pos.Close
        stm.Close
        reader.close

        output.show(i)
        'msgbox(str)
    catch ex As exception
        output.show("出错" & i)
        '等候一段时间
        output.show("等待10秒")
        Dim sdt As Date = Date.Now
        While Date.Now < sdt.AddSeconds(10)
            Application.DoEvents
        End While
        output.show("重新开始" & i)
        i -= 1
    End try
Next

谢谢，我试下看看。顺便问下，这种个代码里面的方法，怎么在foxtable里面的帮助没有，有详细介绍这些代码方法的教程么？

看懂红色代码就行啊

主题：[求助]. 在使用 HttpClient自动每隔一分钟获取数据时，提示错误 尝试自动重定向的次数太多。

主题：[求助]. 在使用 HttpClient自动每隔一分钟获取数据时，提示错误尝试自动重定向的次数太多。