关于一个短信收发的程序字符转换的有关问题

关于一个短信收发的程序字符转换的问题
关于一个短信收发的程序fsnr.text这个文本框的内容是从表里读取出来的，而且我已经将字符进行了转换
vbFormUnicode但是手机收到的中文信息还是乱码，只能收英文和数字不能收中文这是什么原因，但是如果不从表里读数据直接在fsnr.text那里写的话好像就可以收到中文信息。

VB code


Dim smscontent As String
Dim smslen As Long
  '2) 发送短信
status1.text = "正在发送短信，请稍等 ......"
smscontent = StrConv(fsnr.text, vbFormUnicode)
smslen = LenB(StrConv(fsnr.text, vbFormUnicode))
number = jshm.text   
ret = GSMModemSMSsend(Device.text, "", 0, smscontent, smslen, jshm.text, statereq)
 If ret Then
MsgBox "GSMModemSMSsend: 短信发送成功!"
 Else
MsgBox "GSMModemSMSsend: 短信发送失败!" + GSMModemGetErrorMsg(Device.text)

------解决方案--------------------
去掉转换试试
或者转换为UTF8(用StrConv不行)

关于一个短信收发的程序字符转换的有关问题

相关推荐