怎樣用VB得知系統當前是否處于internet鏈結狀態

2019-11-18 17:27:55

字體：大中小

來源：轉載

供稿：網友

聲明以下函數變量常量：
DeclareFunctionRegCloseKeyLib"advapi32.dll"(ByValhKeyAsLong)AsLong

DeclareFunctionRegQueryValueExLib"advapi32.dll"Alias"RegQueryValueExA"(ByValhKeyAsLong,ByVallpValueNameAsString,ByVall access"

ReturnCode=RegOpenKey(HKEY_LOCAL_MACHINE,lpSubKey,phkResult)

IfReturnCode=ERROR_SUCCESSThen

hKey=phkResult

lpValueName="RemoteConnection"

lpReserved=APINULL

lpType=APINULL

lpData=APINULL

lpcbData=APINULL

ReturnCode=RegQueryValueEx(hKey,lpValueName,lpReserved,lpType,lpData,lpcbData)

lpcbData=Len(lpData)

ReturnCode=ReturnCode=RegQueryValueEx(hKey,lpValueName,lpReserved,lpType,lpData,lpcbData)

IfReturnCode=ERROR_SUCCESSThen

IflpData=0Then

ActiveConnection=False

Else

ActiveConnection=True

EndIf

EndIf

RegCloseKey(hKey)

EndIf

EndFunction

下面是使用以上代碼的例子：

IfActiveConnection=Truethen

CallMsgBox("現在處于鏈結狀態。",vbInformation)

Else

CallMsgBox("現在處于斷開狀態。",vbInformation)

EndIf->

上一篇：怎樣接收電子郵件（POP3協議簡介）

下一篇：制作自己的網絡搜索軟件