VB使用Winsock控件,发送文件到服务器?

Question

如下面图描述那样.请VB高手帮写下代码.先谢谢了.
VB如何调用Winsock控件,发送文件到指定的服务器.
建立一个服务端,这是用来收信的.
建立一个客户端,是用来发送信息的.代码如下.
Private Sub Command1_Click()
Open App.Path & "/" & Trim(Text1.Text) & ".txt" For Append As #1
Print #1, Text2.Text
Close #1
MsgBox "发送完毕", , "提示"
End
End Sub
帮我改下啊

Answer 1

自己改下就可以了

Private Sub Command1_Click()
Winsock1.SendData txtSend.Text
End Sub

Private Sub Form_Load()
Dim my As String
Winsock1.Protocol = sckUDPProtocol '设置为UDP协义
Winsock1.LocalPort = 10 '随便设置，不过两个要一样
Winsock1.RemotePort = 10
my = Winsock1.LocalIP '取得自己的IP地址，是不要的
Winsock1.RemoteHost = my '这里应该是设置为别人计算机的IP地址，由于自己是单机，所以就设置成自己的，自己给自己发信息
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) '取得数据时发生
Dim Tmp As String
Winsock1.GetData Tmp, vbString '取得数据
Tmp = "对方位址:" + Winsock1.RemoteHostIP + "发言内容为-->" + Tmp
txtMess.Text = Tmp + Chr$(13) + Chr$(10) + txtMess.Text
End Sub

Answer 2

这是谁教你做的啊,这个是写入文件和发送文件没关系...

Answer 3

j kb

Answer 4

如果只是想在两台机器之间对发,而且都在一个网段的话(即网速有保证的话),采用UDP编程比较简单,使用一个组件就够了。