在網上看到的非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
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/18448.html
標籤：API