189 8069 5689
我不给你代码了，我才编了SOCKET的，告诉你原理吧（我的编程经验而已）
网站建设哪家好，找创新互联！专注于网页设计、网站建设、微信开发、小程序设计、集团企业网站建设等服务项目。为回馈新老客户创新互联还提供了嵊州免费建站欢迎大家使用！
SOCKET传输文件和接受是有大小限制的，默认是81**来则也就是8K多，你可以改小，但改大我没试过，然后你必须把文件分成若干份，然后传过去，然后在接收端组合起来，同时接收端的接受大小要和发送大小统一。
至于你说的文件名，文件名不属于文件数据中的一部分，它不参与数据传输的，你只能在接收端重新改名字。
同时为什么要用上面的方法传呢，因为VB.NET中的SOCKET有很多问题，我就为此烦过，因为要丢包（理论上TCP不存在），或者粘包，或者断包，也就是你在接收端获取文件时数据是要出错的，比如你定长3000B，结果接收端可能先收到2000B，当接受端接受后，处理会出错的。
所以SOCKET的标准发送方法是建立定长的结构体（结构体必须定义为可序列化结构体），最好结构体里面至少包含有 1，文件名，2，本包序号，3，本包数据，比如每个包大小3040B，文件名占20，序号占20，数据占3000，然后发送出去，接收端每次固定接受3040B，如果接受到的包没有这么大（比如收到2000），那么继续接受（1040），直到达到3040后组合成一个包，在把包分解成结构体，相同的文件名为一个文件，再按照序号按次组合其中的数据，这就完成了传输。这样的方法还可以同时传送多个文件，因为结构体里面包含了文件名和序列号，不会错乱，如果是大文件，请不要接收完毕后（最后一个包的序号可以为-1，或者包里包含总长度，检查到序号为-1时表示完毕，或者达到总长度后表示完毕）再组合，因为这样会浪费电脑内存，最好的方法是一边接受数据，一边写入到文件中（收到第一个包时就建立文件，以后每个包的数据都往里面写）。
回答你的问题：
1、经过上面的传输后，文件是不变化的,MD5检查都是正常的，不用担心文件大小有变化（如果有变化，那就是代码没编对）
2,、文件名问题，我前面提到了，文件名是不参与传输的，它不属于数据中的一部分，比如同一个文件，不管你怎么改名字MD5是不变的。你只能通过把文件名想办法传给对方（比如我上面说的结构体方法），让对方写入文件时使用。
3，代码：
还是给你找找吧，等等
不行，我的都很大，很长，你还是在网上找吧，有很多例子，我也是网上学的。
新窗体中写
构造函数
，然后调用。
比如你要调用的新窗体是From1.cs这个窗体，
public
Form1(要传入的参数)
{
//把传入的参数传入窗体中
//执行窗体标准内容
}
然后在需要调用的地方调用
Form1
f
=
new
Form1(传出的参数);
'--------Form1--------
Dim
f2
As
Form2
Private
Sub
Command1_Click()
Set
f2
=
New
Form2
f2.Show
vbModal
End
Sub
'--------Form1
End--------
'--------Form2--------
Dim
WithEvents
f3
As
Form3
Private
Sub
Command1_Click()
Set
f3
=
New
Form3
f3.Show
End
Sub
Public
Sub
f3_f2W()
Me.Command1.Caption
=
"f2W"
End
Sub
'--------Form2
End--------
'--------Form3--------
Public
Event
f2W()
Private
Sub
Command1_Click()
RaiseEvent
f2W
End
Sub
'--------Form3
End--------
f.Show();
如此就能实现调用了。
一个简单的例子：
Dim a(3) As Integer = { 0, 1, 2 }**修改**既然有界数组不能初始化，就还缺（省）界数组试试嘛：
Dim a() As Integer = { 0, 1, 2 }
类型不匹配的错误估计是你的结构体缺少构造函数造成的。在你的quality_i结构体定义里面加一个构造函数，如下所示
Public Structure quality_i
Public nub As Integer
Public nae As String
Public Sub New(ub As Integer, ae As String)nub = ubnae = aeEnd SubEnd Structure然后以如下方式初始化：
1、先定义一个结构体
2、初始化并定义一个结构体的变量
3、使用该变量即可
对不起，我没有学过vb.net，但是学过vb，希望这个可以
解决您程序的毛病。首先您注意以下两种GetClientRect
声明的方法：
Option Explicit
Private Declare Function GetClientRect Lib "user32" ( _
ByVal hwnd As Long, _
ByRef lpRect As RECT _
) As Long
Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Private Sub Form_Load()
Dim r As RECT
Me.AutoRedraw = True
GetClientRect Me.hwnd, r
Print r.Left
Print r.Right
Print r.Top
Print r.Bottom
End Sub
----------------------------------------------------------------------------
Option Explicit
Private Declare Function GetClientRect Lib "user32" ( _
ByVal hwnd As Long, _
ByVal lpRect As Long _
) As Long
Private Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Private Sub Form_Load()
Dim r As RECT
Me.AutoRedraw = True
GetClientRect Me.hwnd, VarPtr(r)
Print r.Left
Print r.Right
Print r.Top
Print r.Bottom
End Sub
看出问题了没有，就在GetClientRect的第二个参数上：
一个是按地址传递，另一个是按值传递：
ByRef lpRect As RECT 用 GetClientRect Me.hwnd, r
ByVal lpRect As Long 用 GetClientRect Me.hwnd, VarPtr(r)
据我所知vb.net按值传递的比较多，应该用VarPtr获取RECT类型
(结构体)的指针，然后传递。
希望能对你有所帮助。
序列化发出然后反序列化
序列化成文本就行，Json和Xml都是可以的
如果是Vb.net与C++交换数据的话，百度都能直接搜到的