好同學的部落格

這只是個簡單的遠端遙控程式
在server端只是開啟一個port等待client的連線
可以從client送出開啟「檔案總管」、「記事本」、和「小算盤」的命令到server端程式
然後由server端程式執行命令

由於程式是我突然想到才寫的
所以可以改良的地方還很多
像是執行server程式就可以直接取得對方IP然後連線
不能重複連線
離線功能等等...
還滿多可以改的，有時間我會改好再重新PO一次

---

以下是原程式碼

Server：

Private Sub Form_Load()
  Me.Caption = "Server"
  Label1.Caption = "簡單的遙控程式"
  Winsock1.Protocol = sckUDPProtocol
  Winsock1.LocalPort = 6000
  Winsock1.Bind
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
  Dim sVar

  Winsock1.GetData sVar, vbString
 
  Select Case Trim(sVar)
    Case "開啟檔案總管"
  
      Shell "C:\Windows\explorer.exe", vbNormalFocus
      Winsock1.SendData "檔案總管執行完畢！"
    Case "開啟記事本"
 
      Shell "C:\Windows\notepad.exe", vbNormalFocus
      Winsock1.SendData "記事本執行完畢！"
    Case "開啟小算盤"

      Shell "C:\Windows\system32\calc.exe", vbNormalFocus
      Winsock1.SendData "小算盤執行完畢！"
  End Select
End Sub


=======================================================================

Client：


Private Sub Command1_Click()
 
  Winsock1.Protocol = sckUDPProtocol
  Winsock1.RemoteHost = Text1.Text
  Winsock1.RemotePort = CLng(Text2.Text)
  'Winsock1.LocalPort = CLng(Text3.Text)

  Winsock1.Bind
End Sub

Private Sub Command2_Click()

  Winsock1.SendData "開啟檔案總管"
End Sub

Private Sub Command3_Click()

  Winsock1.SendData "開啟記事本"
End Sub

Private Sub Command4_Click()

  Winsock1.SendData "開啟小算盤"
End Sub

Private Sub Form_Load()

  Command1.Caption = "連接"
  Command2.Caption = "開啟檔案總管"
  Command3.Caption = "開啟記事本"
  Command4.Caption = "開啟小算盤"
  Frame1.Caption = "執行應用程式"
  Label1.Caption = "遠端電腦"
  Label2.Caption = "遠端連接埠"

  Me.Caption = "Client"
  Text1.Text = ""
  Text2.Text = "6000"
End Sub

---

由於我預設的prot是6000
所以不用另外指定連接port了
比較麻煩的地方可能就是要先知道對方的IP位置，不過相信高手都知道怎麼取得IP才對=  =+

另外，如果程式不能執行的話
請去下載：
http://www.ascentive.com/support/new/images/lib/MSWINSCK.OCX

跟server那個程式放在一起就可以run了