我要做一个检测上网时间的程序,但不知道如何来检测端口是否有数据!

解决方案 »

  1.   

    Private Sub Command1_Click()
        Dim l As Long
        l = Shell("cmd.exe /c ping 202.106.0.20 -t> C:\" & Date & ".txt", vbHide)
    End Sub
      

  2.   

    这是调用ping命令,我不是这个意思.如果202.106.0.20自己坏了,那我ping 不通,可网络还有用呀.这个我用API实现了,但这正是我程序的一个巨大Bug,我不想用ping 别人来测自己.
      

  3.   

    http://www.21code.com/codebase/?pos=down&id=2060
    功能全面,看看先!