Question

我用vb的winsock局域网间发送图片成功，发送txt文档成功，但是发送excel表格虽然成功了，

但是打开后的表格却是乱码，求解
发送端
Dim allziliao() As Byte
Dim pathn As String
Dim lenth As String
pathn = "d:\my.xls"
Open pathn For Binary As #1
lenth = LOF(1)
ReDim allziliao(lenth - 1)
Get #1, , allziliao()
Close #1
Winsock2.SendData allziliao()
接收端
Private Sub Winsock2_DataArrival(ByVal bytesTotal As Long)
MsgBox "winsock2有数据来了"
Dim allziliao() As Byte
Dim pathn As String

pathn = "d:\my.xls"
Winsock2.GetData allziliao(), vbByte + vbArray

Open pathn For Binary As #1
lenth = LOF(1)
If lenth > 0 Then Seek 1, lenth + 1
Put #1, , allziliao()
Close #1
End Sub
你帮忙看看，这个什么什么编码有什么问题

Answer 1

乱码通常都是编码错误造成的。检查一下这方面吧。

追问

问题补充里的代码，你帮忙看看有什么问题

追答

现在我在用VB.NET，已经不用VB很多年了，对Winsock控件已经很陌生了。
不过印象中，这个控件只能正常传输文本和图片，其它类型的文件传输一定会出现编码错误，比如MP3之类的，还有你说的XLS等。其实这个问题在NET中一样存在。
想解决这个问题，在net中可以调用tcp/ip类或udp类来实现，如果是VB的话，应该调用底层的socket动态库也可以解决这个问题，示例代码我没有，你在网上搜索一下相关的代码吧。

追问

这个这个。。。从何搜起？给点思路吧

追答

其实我用VB.NET，有很多改变编码的方法，但VB在我印象中好像无法改变编码，所以我也没什么办法。VB的功能有点太弱了。

搜索了一下，找到以下这些代码，希望对你有启发。
下面的代码关键就在于写入时设置了编码为UTF-8。UTF-8也是我常用的编码之一，全球通用的编码。国内使用的话，我通常会用GB2312。
=======================
flash socket跟VB winsock的乱码问题.
VB端代码.
winsock1.localport=5000
winsock1.listen
flash端代码
var socket:Socket;{
socket = new Socket( );
socket.addEventListener( Event.CONNECT, onConnect );
socket.connect( "192.168.1.100",5000 );
这时如果不出意外 应该连接正常了 你可以添加一个连接监听确定是否连接 这时我需要的功能是VB端接收IPHONE端传来的字符串 然后shell cmd 问题会出现一些问题.
乱码问题.
解决方法如下 当flash的socket write的时候 加入编码方式就可以了 试过UTF-8跟Unicode之后发现是UTF-8 会正常 所以代码是 btn.addEventListener(MouseEvent.CLICK,btnEvent);
function btnEvent(event:MouseEvent) {
var str:String
str=textbox.text
socket.writeMultiByte(str, "UTF-8");
socket.flush();
}