在网上看到的非VB代码中，都是先用InternetOpenA然后再用InternetConnectA，最后用HttpOpenRequestA来完成的，运行成功的话返回值是一个数字，是句柄。但是不管我怎么改，HttpOpenRequestA返回的都是0。然后Err.LastDllError返回的数字是87。同样的API在其他语言上就是可以的，不知道大神们能不能指点一下，到底出问题出在哪里了？

代码我差不多是这么写的。都是调用了wininet.dll的接口。其中-2147467248是我从其他地方抠出来的，本来是一些常量or的结果。
Public Sub testaaa()
Dim a As Long
Dim b As Long
Dim c As Long

a = InternetOpenA("Mozilla/5.0 (Windows NT 6.1; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/77.0.3865.75 Safari/537.36", 1, "", "", 0)
b = InternetConnect(a, "www.baidu.com", 80, "", "", 3, 0, 0)
c = HttpOpenRequestA(b, "GET", "/", "HTTP/1.1", vbNullString, 0, -2147467248, 0)
Debug.Print Err.LastDllError

Debug.Print a; b; c
End Sub

如果有大神知道的话可以在181647568@联系我。

[此贴子已经被作者于2019-12-25 12:31编辑过]