UC知道VB如何使用Winsock控件,发送文件到服务器?
来源：百度知道 编辑：UC知道 时间：2024/05/23 20:50:58
如下面描述那样.请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
谁能帮我改啊
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
谁能帮我改啊
自己改下就可以了
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
你是想两台机器对发吧?如果使用UDP方式的话,1个SOCKET就够了