怎样用VB得知系统当前是否处于internet链结状态

声明了以下函数变量常量:
declare function reg close key lib " advapi32 . dll "(byval HKEY as long)as long。

将函数RegQueryValueEx Lib " advapi 32 . dll "别名" RegQueryValueExA" (ByVal hKey为Long，ByVal lpValueName为String，ByVal lpReserved为Long，lpType为Long，lpData为Any，lpcbData为Long)声明为Long

将函数RegOpenKey Lib“advapi 32 . dll”别名“RegOpenKeyA”(ByVal hKey为Long，ByVal lpSubKey为String，phkResult为Long)声明为Long

公共常数ERROR_SUCCESS = 0&

公共常量APINULL = 0&

公共常量HKEY_LOCAL_MACHINE = &H80000002

公共ReturnCode为Long

代码:

布尔形式的公共函数ActiveConnection()

Dim hKey一样长

将lpSubKey显示为字符串

Dim phkResult As Long

Dim lpValueName作为字符串

Dim保留为长

Dim lpType As Long

Dim lpData为Long

Dim lpcbData为Long

ActiveConnection = False

LP subkey = " System \ current control set \ Services \ remote access "

return code = regopen key(HKEY _ LOCAL _ MACHINE，lpSubKey，phkResult)

如果ReturnCode = ERROR_SUCCESS，则

hKey = phkResult

lpValueName = "远程连接"

lpReserved = APINULL

lpType = APINULL

lpData = APINULL

lpcbData = APINULL

return code = RegQueryValueEx(hKey，lpValueName，lpReserved，lpType，lpData，lpcbData)

lpcbData = Len(lpData)

return code = return code = regqueryvalueeex(hKey，lpValueName，lpReserved，lpType，lpData，lpcbData)

如果ReturnCode = ERROR_SUCCESS，则

如果lpData = 0，则

ActiveConnection = False

其他

ActiveConnection = True

如果…就会结束

如果…就会结束

RegCloseKey (hKey)

如果…就会结束

结束功能

下面是使用上述代码的一个示例:

如果ActiveConnection = True，则

Callgbox("现在处于链接状态。"，vbInformation)

其他

Callgbox("现在已断开连接。"，vbInformation)

结束If