17702.html

来自「以电子书的形式收集了VB一些常见问题解决方法,可以很方便的查找自己需要解决的问题」· HTML 代码 · 共 23 行

HTML
23
字号
<html>  <head>    <title>Re: 请问一般要如何判断使用者是否保持在 Internet 连线状态?</title>  </head>  <body bgcolor="#FFFFFF" vlink="#808080">    <center>      <h1>Re: 请问一般要如何判断使用者是否保持在 Internet 连线状态?</h1>    </center><hr size=7 width=75%><hr size=7 width=75%><p>Posted by dino on August 23, 1999 at 01:57:10:<p>In Reply to: <a href="17700.html">请问一般要如何判断使用者是否保持在 Internet 连线状态?</a> posted by Abner on August 23, 1999 at 01:26:03:<p>若不想用inet,可利用<br>WSOCK32.DLL与icmp.dll来test status<p>declare如下:<br>Public Declare Function IcmpCreateFile Lib "icmp.dll" () As Long<p><br>Public Declare Function IcmpCloseHandle Lib "icmp.dll" _<br>    (ByVal IcmpHandle As Long) As Long<p><br>Public Declare Function IcmpSendEcho Lib "icmp.dll" _<br>    (ByVal IcmpHandle As Long, _<br>    ByVal DestinationAddress As Long, _<br>    ByVal RequestData As String, _<br>    ByVal RequestSize As Integer, _<br>    ByVal RequestOptions As Long, _<br>    ReplyBuffer As ICMP_ECHO_REPLY, _<br>    ByVal ReplySize As Long, _<br>    ByVal Timeout As Long) As Long<p><br>Public Declare Function WSAGetLastError Lib "WSOCK32.DLL" () As Long<p><br>Public Declare Function WSAStartup Lib "WSOCK32.DLL" _<br>    (ByVal wVersionRequired As Long, _<br>    lpWSADATA As WSADATA) As Long<p><br>Public Declare Function WSACleanup Lib "WSOCK32.DLL" () As Long<p><br>Public Declare Function gethostname Lib "WSOCK32.DLL" _<br>    (ByVal szHost As String, _<br>    ByVal dwHostLen As Long) As Long<p><br>Public Declare Function gethostbyname Lib "WSOCK32.DLL" _<br>    (ByVal szHost As String) As Long<p><br>Public Declare Sub RtlMoveMemory Lib "kernel32" _<br>    (hpvDest As Any, _<br>    ByVal hpvSource As Long, _<br>    ByVal cbCopy As Long)<p><br>当然还有其他自己要coding,若有兴趣.我再mail<br><br><br><hr size=7 width=75%><p><a name="followups">Follow Ups:</a><br><ul><!--insert: 17702--></ul><!--end: 17702--><br><hr size=7 width=75%><p></body></html>

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?