2024年5月30日发(作者：)

VB检测TCP连接

2009-5-11 11:05

提问者：luker1004 | 悬赏分：50 | 浏览次数：1148次

需要一个VB程序，监测TCP连接，动态刷新IP地址清单（或者5秒刷新一次）。

需要源代码。

2009-5-11 12:31

最佳答案

'新建工程，部件-控件 Microsoft windows Common Controls 6.0(SP6)

'在窗体中添加listview1以及Timer1

'al=500

'窗体中复制如下代码

' 取得 TCP 连接状态表

Option Explicit

Private Type MIB_TCPROW

dwState As Long ' TCP连接状态

dwLocalAddr As Long

dwLocalPort As Long

dwRemoteAddr As Long

dwRemotePort As Long

End Type

Private Const ERROR_SUCCESS

Private Const MIB_TCP_STATE_CLOSED

Private Const MIB_TCP_STATE_LISTEN

Private Const MIB_TCP_STATE_SYN_SENT

Private Const MIB_TCP_STATE_SYN_RCVD

' 本机IP

本机端口编号

' 远程IP

' 远程端口编号

As Long = 0

As Long = 1

As Long = 2

As Long = 3

As Long = 4

'