143.htm

VB的一些网络编程的例子,个人认为还不错。大家一起来研究一下.

<p>VB中检测是否连网</p>
<p></p>
<p>　　利用WIN95中的注册表建植，在注册表的HKEY-LOCAL-MACHINE\System\CurrentControlSet\Services\RemoteAcces\下，当计算机连上因特网时，Remote Connection的植为01 00 00 00，反之，为00 00 00 00，通过这一建植可判断是否连网。 </p>
<p></p>
<p>1.建立新模块 </p>
<p>Public Const ERROR-SUCCESS= 0& </p>
<p>Public Const APINULL= 0& </p>
<p>Public Const HKEY-LOCAL-MACHINE= &H80000002 </p>
<p>Public ReturnCode As long </p>
<p>’声明API函数 </p>
<p>RegCloseKey() </p>
<p>RegQueryValueEx() </p>
<p></p>
<p>’自定义函数 </p>
<p>Public function ActiveConnection() As Boolean </p>
<p></p>
<p>　 Dim hKey As long </p>
<p>　 Dim lpSubKey As string </p>
<p>　 Dim lpReserved As long </p>
<p>　 Dim lpType As long </p>
<p>　 Dim lpData As long </p>
<p>　 Dim lpcbData As long </p>
<p></p>
<p>　 ActiveConnection=False </p>
<p>　 lpSubKey="System\CurrentControlSet\Services\RemoteAccess" </p>
<p>　 ReturnCode=RegOpenKey(HKEY-LOCAL-MACHINE,lpSubKey,phkResult) </p>
<p></p>
<p>　 If ReturnCode=ERROR-SUCCESS then </p>
<p>　　 hKey=phkResult </p>
<p>　　 lpValueName="Remote Connection" </p>
<p>　　 lpReserved=APINULL </p>
<p>　　 lpType=APINULL </p>
<p>　　 lpData=APINULL </p>
<p>　　 lpcbData=APINULL </p>
<p>　　 ReturnCode=RegQueryValueEx(hKey,lpValueName,lpReserved,lpType,ByVal lpData,lpcbata) </p>
<p>　　 lpcbData=Len(lpData) </p>
<p>　　 ReturnCode=RegQueryValueEx(hKey,lpValueName,lpReserved,lpType,ByVal lpData,lpcbata) </p>
<p></p>
<p>　　 If ReturnCode=ERROR-SUCCESS then </p>
<p>　　　　If lpData=0 then </p>
<p>　　　　　　 ActiveConnection=False </p>
<p>　　　　 Else </p>
<p>　　　　　　 ActiveConnection=True </p>
<p>　　　　 End If </p>
<p>　　 End If </p>
<p>　　 RegCloseKey(hKey) </p>
<p>　End If </p>
<p>End funtion </p>
<p></p>
<p>2.新建窗体 </p>
<p>Priate sub Command1_click() </p>
<p>　If ActiveConnection=True then </p>
<p>　　MsgBox "OK!" </p>
<p>　Else </p>
<p>　　MsgBox "ERROR!" </p>
<p>　End If </p>
<p>End sub </p>