InternetSetOption 网络API

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

PrivateConstINTERNET_OPTION_CONNECTED_STATE=50
PrivateConstINTERNET_STATE_DISCONNECTED_BY_USER=&H10
PrivateConstISO_FORCE_DISCONNECTED=&H1
PrivateConstINTERNET_STATE_CONNECTED=&H1
'
PrivateTypeINTERNET_CONNECTED_INFO
dwConnectedStateAsLong
dwFlagsAsLong
EndType
''
PrivateDeclareFunctionInternetSetOptionLib"wininet.dll"Alias"InternetSetOptionA"(ByValhInternetAsLong,ByValdwOptionAsLong,lpBufferAsAny,ByValdwBufferLengthAsLong)AsLong
--------------------------------------------------------------

DimConInfoAsINTERNET_CONNECTED_INFO,lRetValueAsLongConInfo.dwConnectedState=INTERNET_STATE_DISCONNECTED_BY_USER
ConInfo.dwFlags=ISO_FORCE_DISCONNECTED

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