VB網絡傳輸文字

Private Sub Form_Load()

dim ip as string

ip = inputbox("請輸入對方電腦的IP或電腦名：")

Winsock1.Protocol = sckUDPProtocol

Winsock1.RemoteHost = ip

Winsock1.RemotePort = 5678

Winsock1.Bind 5678

End Sub

Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)

Winsock1.SendData Text1.Text

End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)

Dim s As String

Winsock1.GetData s

Text1.Text = s

End Sub