开发学院软件开发 VB 怎样用VB得知系统当前是否处于internet链结状态阅读

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

　2006-02-27 21:13:03　来源：WEB开发网　闂傚倸鍊风欢姘缚瑜嶈灋闁圭虎鍠栫粻顖炴煥閻曞倹瀚�

闂傚倸鍊风粈渚€骞夐敓鐘插瀭闁汇垹鐏氬畷鏌ユ煙閹殿喖顣奸柛搴＄У閵囧嫰骞掗幋婵冨亾閻㈢ǹ纾婚柟鐐灱濡插牊绻涢崱妤冃℃繛宀婁簽缁辨捇宕掑鎵佹瀸闂佺懓鍤栭幏锟�

濠电姷鏁告慨顓㈠箯閸愵喖宸濇い鎾寸箘閹规洟姊绘笟鈧ḿ褍煤閵堝悿娲Ω閳轰胶鍔﹀銈嗗笂閼冲爼鍩婇弴銏＄厪闁搞儮鏅涙禒褏绱掓潏鈺佷槐闁轰焦鎹囬弫鎾绘晸閿燂拷闂傚倸鍊风欢姘缚瑜嶈灋闁圭虎鍠栫粻顖炴煥閻曞倹瀚�　　闂傚倸鍊烽懗鑸电仚缂備胶绮〃鍛村煝瀹ュ鍗抽柕蹇曞У閻庮剟姊虹紒妯哄妞ゆ劗鍘ч埥澶娢熼柨瀣偓濠氭⒑瑜版帒浜伴柛鎾寸☉閳绘柨顫濋懜纰樻嫼闂佸憡绋戦オ鏉戔枔閺冣偓缁绘稓浠﹂崒姘瀳闂佸磭绮幑鍥嵁鐎ｎ亖鏀介柟閭﹀墯椤斿倹淇婇悙顏勨偓鏍ь潖婵犳艾鍌ㄧ憸蹇涘箟閹绢喗鏅搁柨鐕傛嫹

核心提示：声明以下函数变量常量：DeclareFunctionRegCloseKeyLib"advapi32.dll"(ByValhKeyAsLong)AsLongDeclareFunctionRegQueryValueExLib"advapi32.dll"Alias"RegQu

声明以下函数变量常量：
DeclareFunctionRegCloseKeyLib"advapi32.dll"(ByValhKeyAsLong)AsLong

DeclareFunctionRegQueryValueExLib"advapi32.dll"Alias"RegQueryValueExA"(ByValhKeyAsLong,ByVallpValueNameAsString,ByVallPReservedAsLong,lpTypeAsLong,lpDataAsAny,lpcbDataAsLong)AsLong

DeclareFunctionRegOpenKeyLib"advapi32.dll"Alias"RegOpenKeyA"(ByValhKeyAsLong,ByVallpSubKeyAsString,phkResultAsLong)AsLong

PublicConstERROR_SUCCESS=0&

PublicConstAPINULL=0&

PublicConstHKEY_LOCAL_MACHINE=&H80000002

PublicReturnCodeAsLong

代码：

PublicFunctionActiveConnection()AsBoolean

DimhKeyAsLong

DimlpSubKeyAsString

DimphkResultAsLong

DimlpValueNameAsString

DimlpReservedAsLong

DimlpTypeAsLong

DimlpDataAsLong

DimlpcbDataAsLong

ActiveConnection=False

lpSubKey="System\CurrentControlSet\Services\Remoteaccess"

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->