vb调用winInet API接口post数据到指定的url

最新推荐文章于 2024-03-26 16:40:23 发布

coolstar

最新推荐文章于 2024-03-26 16:40:23 发布

阅读量2.7k

点赞数

文章标签： vb url api string internet function

本文链接：https://blog.csdn.net/coolstar/article/details/5673

版权

这段代码展示了如何在VB中使用winInet API接口将数据POST到指定URL。通过`PostInfo$`函数，可以实现向服务器发送POST请求，并获取响应数据。同时，`SplitAddr`函数用于解析URL，提取服务器名和脚本路径。

摘要由CSDN通过智能技术生成

源代码推荐：vb调用winInet API接口post数据到指定的url

'This module is called modWinInet.bas. Use the SplitAddr() function to get the address in the correct format for PostInfo.

Option Explicit

'Author:    Sam Huggill
'Email:     sam@vbsquare.com

Private Declare Function InternetOpen Lib "wininet.dll" _
         Alias "InternetOpenA" _
            (ByVal lpszCallerName As String, _
             ByVal dwAccessType As Long, _
             ByVal lpszProxyName As String, _
             ByVal lpszProxyBypass As String, _
             ByVal dwFlags As Long) As Long

      Private Declare Function InternetConnect Lib "wininet.dll" _
            Alias "InternetConnectA" _
            (ByVal hInternetSession As Long, _
             ByVal lpszServerName As String, _
             ByVal nProxyPort As Integer, _
             ByVal lpszUsername As String, _
             ByVal lpszPassword As String, _
             ByVal dwService As Long, _
             ByVal dwFlags As Long, _
             ByVal dwContext As Long) As Long

   Private Declare Function InternetReadFile Lib "wininet.dll" _
            (ByVal hFile As Long, _
             ByVal sBuffer As String, _