会用winsock吗？不会的话我贴个代码
那就把图片和文本合在一个包里再发呗，等到那边又再按各自大小将之分开不就可以？你所说的同时是什么概念？请再把你遇到的问题说清楚点？
怎样通过WinSock传送图片
Winsock1(Winsock1.Count - 1).SendData PictureByt '发送数据 End Sub '=== 窗体Client，需要控件：Command1，Command2，Picture1，Winsock1 。全部是默认属性 Option Explicit Private Sub Command1_Click()Winsock1.Close '关闭连接 Winsock1.Protocol = sckTCPProtocol '使用TCP协议 Winsock1.Loc...
vb winsock 图片文件传输 代码
Close #1 cli.SendData B ', vbByte '发送整个文件,字节方式 ser 接收文件端 每次只能接收8000多字节，要分多次接收 Private Sub ser_DataArrival(ByVal bytesTotal As Long)dim Bf() as byte ser.GetData bf(), vbByte + vbArray ' 接收文件 Dim l As Long Open App.Path & "\\a...
vb winsock怎么发图片
Public Sub SendFile(FileName As String, WinS As Winsock)'FileName 为要传送的文件名，WinS为发送文件的WinSock控件 Dim FreeF As Integer '空闲的文件号 Dim LenFile As Long '文件的长度 Dim bytData() As Byte '存放数据的数组 FreeF = FreeFile '获得空闲的文件号 Open FileName For Bi...
VB如何使用Winsock控件,发送文件到服务器?
Winsock1.RemoteHost = my '这里应该是设置为别人计算机的IP地址，由于自己是单机，所以就设置成自己的，自己给自己发信息 End Sub Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) '取得数据时发生 Dim Tmp As String Winsock1.GetData Tmp, vbString '取得数据 Tmp = "对方位址:" ...
在VB中WINSOCK的使用方法
通过创建控件数组,使用一个控件也可以同时接受多个连接请求。利用这种方法,不需要关闭连接,而只需创建新的控件实例(通过设置其索引属性),然后在新的实例上调用 Accept 方法。 下面的代码假定名为 sckServer 的窗体上有一个 Winsock 控件,它的 Index 属性被设置为 0;因此控件是控件数组的一部分。在声明部分,声明...
急~!!! 如何用VB实现局域网内传送文件
首先把Server主机的一个Winsock控件设置TCP协议及使用的端口号，调用.listen方法。Client主机的Winsock控件设置服务主机的IP地址和端口号，调用Connect方法。服务主机的侦听Winsock会收到连接请求，使用Accept(另一个Winsock控件Name)来响应，完成连接的建立。服务端程序读文件，通过Send方法传送数据，客户端程序有...
vb里怎么通过winsock实现两台计算机的数据传输,,每台计算机一个程序...
'控件的名字为 udpPeerB。With udpPeerB'重点:必须将 RemoteHost 的值改为 '计算机的名字。.RemoteHost= "PeerA".RemotePort = 1002 '要连接的端口。.Bind 1001 '绑定到本地的端口上。End WithEnd SubPrivate Sub txtSend_Change()'在键入后立即发送文本。udpPeerB.SendData txtSend.Text...
如何编写一个 能够传送文件 的 VB程序
首先，在VB中要传送字符串，你可以这样写：Dim strData As String strData = "Test"Winsock1.SendData strData 但是如果你传送的二进制文件，你还能用String变量来存放吗？从理论上分析是不行的，我也做了实验，确实是不行的。文件虽然可以传，但是接受的文件和发送的不一样，原因可能是二进制文件里...
VB中用Winsock如何进行远程文件传输?
Winsock1(0).LocalPort = port 'Winsock控件数组第一个控件开始侦听 Winsock1(0).Listen End Sub Private Sub Form_Unload(Cancel As Integer) '关闭服务器时缓冲,发送断开信号 Cancel = 1 t = 0 Timer2.Enabled = 1 End Sub Private Sub Timer1_Timer() On Error Resume Next '错误处理 Winsock1(k)....
VB使用Winsock控件,发送文件到服务器?
Winsock1.RemoteHost = my '这里应该是设置为别人计算机的IP地址，由于自己是单机，所以就设置成自己的，自己给自己发信息 End Sub Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) '取得数据时发生 Dim Tmp As String Winsock1.GetData Tmp, vbString '取得数据 Tmp = "对方位址:" ...
