2011年计算机等级考试二级VB辅导实例编程(10)

　　程序的代码以及说明如下：

　　‘本程序在VB6.0+Windows2000下测试通过!

　　Dim tmpstr As String

　　Dim NOW_OUT As Integer ’’总共出去连接的有几个Winsock

　　Private Sub Command1_Click()

　　ListPorts.AddItem txtADDPORT.Text

　　End Sub

　　Private Sub Command2_Click()

　　On Error Resume Next

　　If Command2.Caption = "监听" Then

　　For i = 0 To ListPorts.ListCount - 1

　　Load Winsock1(i 1) ’’加载监听端口的winsock1数组控件

　　Winsock1(i 1).LocalPort = ListPorts.List(i) ’’设定端口

　　Winsock1(i 1).Listen ’’监听

　　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 = "监听"

　　End If

　　End Sub

　　Private Sub Command3_Click()

　　Unload Me

　　End Sub

　　Private Sub Form_Load()

　　txtLOG.Text = "日志:"

　　2010年9月计算机等级考试成绩查询时间汇总

　　2011计算机等级考试二级VB考点及习题汇总

　　2011年计算机等级考试二级VB基础教程汇总

　　2011计算机等级考试二级VB辅导实例编程汇总