文章类别：VB 来源： 作者： 发表日期：2006-2-28 字体：[大 中 小]

小游戏 | 在线影院 | 幽默笑话 | 源码下载 | Flash MTV | 音乐试听 | 书屋 | 美女写真

---

声明以下函数变量常量： 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->

上一篇:Whois示例程序

下一篇:在桌面上建立一个Internet快捷键