程序的代碼以及說明如下：

　　‘本程序在VB6.0+Windows2000下測(cè)試通過!

　　Dim tmpstr As String

　　Dim NOW_OUT As Integer ’’總共出去連接的有幾個(gè)Winsock

　　Private Sub Command1_Click()

　　ListPorts.AddItem txtADDPORT.Text

　　End Sub

　　Private Sub Command2_Click()

　　On Error Resume Next

　　If Command2.Caption = "監(jiān)聽" Then

　　For i = 0 To ListPorts.ListCount - 1

　　Load Winsock1(i 1) ’’加載監(jiān)聽端口的winsock1數(shù)組控件

　　Winsock1(i 1).LocalPort = ListPorts.List(i) ’’設(shè)定端口

　　Winsock1(i 1).Listen ’’監(jiān)聽

　　Next i

　　Command2.Caption = "停止"

　　Else

　　For i = 1 To Winsock1.Count - 1

　　Unload Winsock1(i)

　　Next i

　　For i2 = 1 To Winsock2.Count - 1

　　Unload Winsock2(i2)

　　Next i2

　　Command2.Caption = "監(jiān)聽"

　　End If

　　End Sub

　　Private Sub Command3_Click()

　　Unload Me

　　End Sub

　　Private Sub Form_Load()

　　txtLOG.Text = "日志:"

　　2010年9月計(jì)算機(jī)等級(jí)考試成績(jī)查詢時(shí)間匯總

　　2011計(jì)算機(jī)等級(jí)考試二級(jí)VB考點(diǎn)及習(xí)題匯總

　　2011年計(jì)算機(jī)等級(jí)考試二級(jí)VB基礎(chǔ)教程匯總

　　2011計(jì)算機(jī)等級(jí)考試二級(jí)VB輔導(dǎo)實(shí)例編程匯總