InternetSetOption 网络API

最新推荐文章于 2024-04-15 05:56:58 发布

SImonJ07

最新推荐文章于 2024-04-15 05:56:58 发布

阅读量4.9k

点赞数

文章标签： api 网络 internet user function

本文链接：https://blog.csdn.net/simonj07/article/details/2225520

版权

InternetSetOption函数
用到的变量
-------------------------------------------------

Private     Const    INTERNET_OPTION_CONNECTED_STATE    =     50
   Private     Const    INTERNET_STATE_DISCONNECTED_BY_USER    =     & H10
   Private     Const    ISO_FORCE_DISCONNECTED    =     & H1
   Private     Const    INTERNET_STATE_CONNECTED    =     & H1
   '
   Private    Type   INTERNET_CONNECTED_INFO
          dwConnectedState          As     Long
          dwFlags                            As     Long
   End    Type
   ' '
   Private     Declare     Function    InternetSetOption    Lib     " wininet.dll "     Alias     " InternetSetOptionA "    ( ByVal    hInternet    As     Long ,    ByVal    dwOption    As     Long ,   lpBuffer    As    Any,    ByVal    dwBufferLength    As     Long )    As     Long
   --------------------------------------------------------------

   Dim    ConInfo    As    INTERNET_CONNECTED_INFO,   lRetValue    As    LongConInfo.dwConnectedState    =    INTERNET_STATE_DISCONNECTED_BY_USER
  ConInfo.dwFlags    =    ISO_FORCE_DISCONNECTED

  lRetValue    =    InternetSetOption( 0 & ,   INTERNET_OPTION_CONNECTED_STATE,   ConInfo,    Len (ConInfo))
  lRetValue = True表示成功