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表示成功
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表示成功