101/03/03

UDP   自己主機 對傳

IP設成自己的

Option Explicit

Private Sub Form_Load()
  With udpPeerA
    '重要:必須將 RemoteHost 的值
    '修改為電腦的名稱或IP位址。
    .Protocol = sckUDPProtocol
    .RemoteHost = "163.25.4.0"
    .RemotePort = 2001   '連線的連接埠號。
    .Bind 2002        '連結到本機的連接埠。
  End With
  frmPeerB.Show         '顯示第二個表單。
End Sub

Private Sub txtSend_Change()
  '在鍵入文字時，立即將其傳送出去。
  udpPeerA.SendData txtSend.Text
End Sub

Private Sub udpPeerA_DataArrival _
(ByVal bytesTotal As Long)
  Dim strData As String
  udpPeerA.GetData strData
  txtOutput.Text = strData
End Sub




UDP  兩台電腦對傳

需要 兩台主機  IP

Private Sub cmdConnect_Click()
   With udpPeerA
    .RemoteHost = txtHostName.Text
    If chkMain.Value Then
      .RemotePort = 1001   '連線的連接埠號。
      .Bind 1002        '連結到本機的連接埠。
    Else
      .RemotePort = 1002
      .Bind 1001
    End If
  End With
End Sub

Private Sub cmdSend_Click()
  udpPeerA.SendData txtSend.Text
  DoEvents
End Sub

Private Sub udpPeerA_DataArrival(ByVal bytesTotal As Long)
  Dim strData As String
  udpPeerA.GetData strData
  txtOutput.Text = strData
End Sub