VB6使用wininet.dll的方法HttpOpenRequestA返回0,错误代码为87怎么办?
在网上看到的非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