VB中检测是否连网

永久禁言

利用WIN95中的注册表建植，在注册表的HKEY-LOCAL-MACHINE\System\CurrentControlSet\Services\RemoteAcces\下，当计算机连上因特网时，Remote Connection的植为01 00 00 00，反之，为00 00 00 00，通过这一建植可判断是否连网。

1.建立新模块

1. public const ERROR-SUCCESS= 0&
   
2. public const APINULL= 0&
   
3. public const HKEY-LOCAL-MACHINE= &H80000002
   
4. public ReturnCode as long

复制代码

声明API函数

1. RegCloseKey()
   
2. RegQueryValueEx()

复制代码

自定义函数

1. public function ActiveConnection() as boolean
   
2. dim hKey as long
   
3. dim lpSubKey as string
   
4. dim lpReserved as long
   
5. dim lpType as long
   
6. dim lpData as long
   
7. dim lpcbData as long
   
8. ActiveConnection=False
   
9. lpSubKey="System\CurrentControlSet\Services\RemoteAccess"
   
10. ReturnCode=RegOpenKey(HKEY-LOCAL-MACHINE,lpSubKey,phkResult)
    
11. if ReturnCode=ERROR-SUCCESS then
    
12. hKey=phkResult
    
13. lpValueName="Remote Connection"
    
14. lpReserved=APINULL
    
15. lpType=APINULL
    
16. lpData=APINULL
    
17. lpcbData=APINULL
    
18. ReturnCode=RegQueryValueEx(hKey,lpValueName,lpReserved,lpType,ByVal lpData,lpcba
    
19. ta)
    
20. lpcbData=Len(lpData)
    
21. ReturnCode=RegQueryValueEx(hKey,lpValueName,lpReserved,lpType,ByVal lpData,lpcba
    
22. ta)
    
23. if ReturnCode=ERROR-SUCCESS then
    
24. if lpData=0 then
    
25. ActiveConnection=false
    
26. else
    
27. ActiveConnection=True
    
28. end if
    
29. end if
    
30. RegCloseKey(hKey)
    
31. end if
    
32. end funtion

复制代码

2.新建窗体

1. priate sub Command1-click()
   
2. if ActiveConnection=True then
   
3. msgbox "OK!"
   
4. else
   
5. msgbox "ERROR!"
   
6. end sub

复制代码

屎加豆

vb苦逼啊~检测联网状态的代码都市那么长~

LOVE|FUCK

貌似有检测这个的API

兔子君

这下慢了真的     地砖了

兔子君

这下慢了真的地砖了

素顏じ亦傾城ジ

是否联网()              

吾愛じ啃飯團ジ

复制我也会 粘贴我也会 盗链我也会 就是不会刷