自由手記

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 = "日誌:"