访问网页碰到：您的连接不是私密连接

4125027

如题，访问网页碰到：“您的连接不是私密连接”，如何让VBA自动执行、转入下一个网页？



Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Sub GetBodyText过关()
On Error Resume Next
Dim URL As String
Dim Data As String
Application.ScreenUpdating = False
        URL = "https://18.163.223.111/content/soccer/coming_bet.html"
        Dim ie As Object
        Dim ieDoc As Object
        Set ie = CreateObject("InternetExplorer.Application")
        Sleep 100
        ie.navigate URL
        Sleep 100
        StartTime = Timer
        Do Until ((ie.readyState = 4) And (Not ie.Busy))
            DoEvents
            Sleep (500)
        Loop

        Set ieDoc = ie.Document
        Data = ieDoc.body.innerText
        
        Dim MyArray As Variant
        MyArray = Split(Data, vbCrLf)

end sub

4125027

自己顶一下，以免沉了。

laiwatch

原则上这种问题不应该回答, 但是很好奇, 这种菠菜真的可以 make money or just relax, 还是stupid tax(不针对人啊, 就事论事而已)

1. ie.document.getElementsByName("overridelink").Item.Click

复制代码

4125027

laiwatch 发表于 2020-5-31 22:35
原则上这种问题不应该回答, 但是很好奇, 这种菠菜真的可以 make money or just relax, 还是stupid tax(不针 ...

谢谢。
这种东西，只要人不贪，玩玩还是可以的，类似股票。