请问我用SOCKET传递数据,,怎么才能传送中文我传的中文全是乱码,,,怎么才能传送中文呢???
解决方案 »
- 在线等。关于windows2003 服务器的问题。(100)分
- aspx页在虚拟空间的问题
- 用JS判断几组单选按钮的选中状态
- 我想在DetailsView1控件的文本框里输入数值,然后插入到数据库里,可是提示出错。求助
- 问个初级的问题,怎么在wap控件中绑数据
- ftp上传问题
- 关于Atlas 里用Response.Redirect(“aaa.aspx”)的问题 兄弟快疯了!
- 如何将一个字符串顺序调换 如abc 变成cba有什么简单的方法?
- 请问用客户端脚本能捕捉服务器端控件吗?如果能怎么做?
- 菜鸟问专家?为什么不能Update?
- ASP.NET能不能实现聊天功能?
- 有关点击IE“后退”按键,无法显示数据的问题
Imports System.Net.Sockets
Imports System.TextPublic Class SmsToachievement
Inherits Sms Private rebyte(1024) As Byte
Private client As Socket
Private buffer(0) As String
<VBFixedString(4)> Private command As String Public Function SendMsg() As String
'发送
'打开连接
Dim revalues As String revalues = MyBase.Open
If revalues <> "ok" Then
Return revalues
Else
client = MyBase.GetClient
End If '发送信息
command = "A001"
buffer(0) = command rebyte = Encoding.GetEncoding("gb2312").GetBytes(buffer(0))
Try
client.Send(rebyte, rebyte.Length, 0)
Catch ex As Exception
Call MyBase.Dispose()
Return "Code(03) " & ex.Message
Finally
rebyte.Clear(rebyte, rebyte.Length, 0)
buffer.Clear(buffer, 0, buffer.Length)
End Try '读取返回值
Return MyBase.Read(client)
End Function
End Class