VB6写的一个端口批量扫描器 Private Sub cmdStart_Click() Dim i As Long Dim j As Integer Dim k As Long, l As Long Dim t As String, ts As String, tip As String ts = txtList1.