SOS求救！！！我头都快想晕了，可能很简单啊，大家快来帮忙啊！！

Question

zhuangbx220(星)，
 中文也可以不管吗，就象英文一样传送过去？
 英文可以转换成ASC码或16进制，
 但是中文可以这么做吗？
 有没有什么函数啊？

Answer 1

griefforyou(为你伤心) 
for i =1 to len(string)
Arr = Mid(string, i, 1) 
arrasc=ASC(arr)
sendmessage=sendmessage+arrasc
mscomm.output="AT+CMGS"="......

Answer 2

MSComm.Output = "AT+CMGF=1" + Chr(13) + Chr(10) 
MSComm.Output = "AT+CSMP=4,167,0,8" + Chr(13) + Chr(10) 
'上边两行语句作为联机是初始化用的命令Private Sub SMSend(TxtNumber As String, TxtMessage As String) 'txtNumber 是目的号码  txtMessage 是信息内容
Dim TxtMsg As String 
Dim Arr, ArrA, ArrB As String 
Dim InChar, InCharB, Wait As String 
Dim i As Single 
MSComm.InBufferCount = 0 
For i = 1 To Len(TxtMessage) 
Arr = Mid(TxtMessage, i, 1) 
ArrA = Hex(AscB(MidB(Arr, 1, 1))) 
ArrB = Hex(AscB(MidB(Arr, 2, 1))) 
If Len(ArrB) = 1 Then If Val(ArrB) = 0 Then ArrB = "00" 
If Len(ArrA) = 1 Then ArrA = "0" + ArrA 
TxtMsg = TxtMsg + ArrB + ArrA 
Next i 
If MSComm.PortOpen  Then MSComm.Output = "AT+CMGS=" + Chr(34) + TxtNumber + Chr(34) + Chr(13) '送出短信目的号码
MSComm.Output = TxtMsg + "005B5F2052519510005D" + Chr(26) '送出已编码后的短信内容
EndIf

Answer 3

使用MSCOMM控件的时候，在发送和接收中文会有些小问题，比如乱码，出错等。这些问题在发送英文字符串时没事。最好的解决方法是使用二进制数组。

Answer 4

你用www.google.com网站查询查询MSCOMM相关资料,看有没有?
关于你的问题我也想知道,到时搞定了能否将你的源码借我看一看?
[email protected]

Answer 5

MyZhang(MyZhang)
 大哥你好！
 我知道要转化成机器内码或区位码数据，但是我就是不知道该怎么转化，
 VB里面有这种转化函数吗 ？？？
 谢谢指教！

Answer 6

用asc()将字符转换成二进制
将二进制chr()转换成字符程序写好后mail一个给我好吗[email protected]

Answer 7

kintsoon(kintsoon) 
 我试过你说的办法，但是用ASC（）函数后，比如说“啊”
 吧，ASC（"啊"）=-20319
     但是这个数，代表什么，手机上面能够知道吗？
     chr(-20319)="啊"
    但是又转化回来了啊？
     是不是一定要知道手机那边怎样来收汉字呢
  比如说NOKIA的手机吧，我上网找了很久，一直没有找到，它们是怎么解决这个问题的，大家谁知道呢？或者有这样的资料的网站
  

Answer 8

不知道手机用什么编码？
区位码：国标GB2312规定,所有的国标汉字与符号组成一个94×94的矩阵。在此方阵中,每一行称为一个"区",每一列称为一个"位",因此,这个方阵实际上组成了一个有94个区(区号分别为0 1到94)、每个区内有94个位(位号分别为01到94)的汉字字符集。一个汉字所在的区号和位号简单地组合在一起就构成了该汉字的"区位码"。在汉字的区位码中,高两位为区号,低两位为位号。由此可见,区位码与汉字或符号之间是一一对应的。内码：汉字的内码是指在计算机中表示汉字的编码。机内码与区位码稍有区别。为什么不直接用区位码作为计算机内的编码呢? 这是因为汉字的区码和位码的范围都在1到94内, 如果直接用区位码作机内码, 就会与基本ASCII码冲突。 汉字的内码通常与所使用的计算机系统有关。目前,对于国内大多数的计算机系统,一个汉字的内码占两个字节,分别称为高位字节与低位字节,且这两位字节与区位码的关系如下: 内码高位=区码+A0H(H表示十六进制) 内码低位=位码+A0H 例如,汉字"啊"的区位码为"1601",区码和位码分别用十六进制表示即为"1001H",则它的内码为"B0A1H"。其中B0H为内码的高位字节,A1H为内码的低位字节。 

Answer 9

汉字国标交换码和机内码西文处理系统的交换码和机内码均为ASCII,用一个字节表示,一般只用低七位。1981年我国在国标GB2312-80制定了汉字交换码也称为国标交换码(简称国标码)。在国标码中,一个汉字用两个字节表示,每个字节也只用其中的七位,每个字节的取值范围和94个可打印的ASCII字符的取值范围相同(21H-7EH),涵盖了一、二级汉字和符号。为了避免ASCII码和国标码同时使用时产生二义性问题,大部分汉字系统一般都采用将国标码每个字节高位置“1”作为汉字机内码。这样既解决了汉字机内码与西文机内码之间的二义性,又使汉字机内码与国标码具有极简单的对应关系。区位码、国标码和机内码之间的关系可以概括为(区位码的十六进制表示)+2020H=国标码,国标码+8080H=机内码,以汉字“大”为例,“大”字的区内码为2083,将其转换为十六进制表示为1453H,加上2020H得到国标码3473H,再加上8080H得到机内码为B4F3H。

Answer 10

谢谢你了！！
我的E-MAIL是[email protected]
如果呵呵，你推出来了，请发给我，谢谢了！！！

Answer 11

使用MSCOMM时，不管你的最终目的是什么，前提是一定要知道你所用到的硬件发送和接收字符串的原理（这类硬件或外围设备都有协议文本）。
    另：我在上面提到的将汉字或字符转换为机器内码或区位码数据数组的函数,很遗憾，VB 5.0/6.0中并没有提供。
    以下是求整数高、低字节的函数。其它不用我多说了吧。
　　Public Function HiByte(a As Integer) 
　　 Dim b 
　　 b = a And &HFF00 
　　 b = b / 256 
　　 If b < 0 Then b = b + 256 
　　 HiByte = b 
　　End Function 　　Public Function LowByte(a As Integer) 
　　 Dim b 
　　 b = a And &HFF 
　　 LowByte = b 
　　End Function    我近来也打算做一些与手机通讯的东西，可是一时也没有什么资料，如果各位手头有的话，提供一份可好？EMail:[email protected]。

Answer 12

首先谢谢大家的帮忙，非常感谢！！！以下是我找到的一篇文章：
代码是用DELPHI写的，不知道谁能帮着用VB来重写一下！！！
中文编码 
设短信息内容为“中文短信息”。要发送中文短消息需将GB2312的中文编码转换为代码页为CP936的Unicode编码才可以。 
　　
通过Delphi的WideString类型转换，可以巧妙地实现GB2312到Unicode的编码转换（注意代码页和操作系统相关联）。下面是实现中文编码的部分Delphi 5代码： 
// 中文格式编码，s为Unicode String 
function Encode2(var s:WideString):String;  
var 
i,len:Integer; 
cur:Integer; 
t:String; 
begin 
Result:=‘’; 
len:=Length(s); 
i:=1; 
while i<=len do 
begin 
cur:=ord(s[i]); 
//BCD转换 
FmtStr(t,‘％4.4X’,[cur]);  
Result:=Result＋t; 
inc(i); 
end; 
end;