zoukankan      html  css  js  c++  java
  • vb6 wininet

    Private Const UserAgent = "Mozilla/4.0 (compatible; MSIE 6.0; Windows 98; .NET CLR 1.1.4322)"
    'InternetOpenA
    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
    'InternetConnectA
    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
    'HttpQueryInfo
    Private Declare Function HttpQueryInfo Lib "wininet.dll" Alias _
        "HttpQueryInfoA" (ByVal hHttpRequest As Long, ByVal lInfoLevel As Long, _
        ByVal sBuffer As Any, ByRef lBufferLength As Long, ByRef lIndex As Long) As Integer
    'InternetOpenUrlA
    Private Declare Function InternetOpenUrl Lib "wininet.dll" Alias _
        "InternetOpenUrlA" (ByVal hOpen As Long, ByVal sURL As String, _
        ByVal sHeaders As String, ByVal lLength As Long, ByVal lFlags As Long, ByVal lContext As Long) As Long
    'InternetReadFile
    Private Declare Function InternetReadFile Lib "wininet.dll" _
         (ByVal hFile As Long, ByVal sBuffer As String, _
         ByVal lNumBytesToRead As Long, lNumberOfBytesRead As Long) As Integer
    'HttpOpenRequest
    Private Declare Function HttpOpenRequest Lib "wininet.dll" Alias _
         "HttpOpenRequestA" (ByVal hInternetSession As Long, ByVal lpszVerb As String, _
         ByVal lpszObjectName As String, ByVal lpszVersion As String, ByVal lpszReferer As String, _
         ByVal lpszAcceptTypes As Long, ByVal dwFlags As Long, ByVal dwContext As Long) As Long
    'HttpSendRequest
    Private Declare Function HttpSendRequest Lib "wininet.dll" Alias _
         "HttpSendRequestA" (ByVal hHttpRequest As Long, ByVal sHeaders As String, _
         ByVal lHeadersLength As Long, ByVal sOptional As String, ByVal lOptionalLength As Long) As Boolean
    'InternetCloseHandle
    Private Declare Function InternetCloseHandle Lib "wininet.dll" _
         (ByVal hInternetHandle As Long) As Boolean
    'HttpAddRequestHeaders
    Private Declare Function HttpAddRequestHeaders Lib "wininet.dll" Alias _
         "HttpAddRequestHeadersA" (ByVal hHttpRequest As Long, ByVal sHeaders As String, _
         ByVal lHeadersLength As Long, ByVal lModifiers As Long) As Integer
    

      

  • 相关阅读:
    你的代码又导致资金损失了?活该!
    rabbitmq实现指定消费者才能消费
    没有绝对,没有百分百
    jenkins构建触发器之Build whenever a snapshot dependency is built
    豁然明白的囧事 之 执行mvn:clean deploy提示401 Unauthorized
    (8/8)RPC方法的参数,能用枚举就请考虑枚举
    abstract 关键字
    练习题------代码块
    代码块
    static 关键字
  • 原文地址:https://www.cnblogs.com/comsky/p/5817240.html
Copyright © 2011-2022 走看看