我用vb做网关发送短消息给移动服务器遇到困难了大家来讨论提意见
首先我建立两个结构体
Public Type Message_Header
Total_Length(3) As Byte '4 消息总长度(含消息头及消息体)
Command_ID(3) As Byte '4 命令或响应类型
Sequence_ID(3) As Byte '4 消息流水号,顺序累加,步长为1,循环使用
End Type
Public Type MSG_Connect
Source_Addr As String * 6 ' 6 Octet String SP_ID 926021/01001
AuthenticatorICP As String * 16 ' 16 Octet String SP认证码
Version As Byte '1 Integer 双方协商的版本号
Timestamp(3) As Byte ' 4 Integer 时间戳的明文,由客户端产生,格式为MMDDHHMMSS,即月日时分秒,10位,右对齐
End Type
在tcp连接上我是这样写的
mHeader.Total_Length=Len(mHeader) + Len(mConnect)
mHeader.Sequence_ID=XuHao
mConnect.Timestamp=Format(Date, "mmdd") + Format(Time, "hhmmss")
mConnect.Source_Addr = "564565"
mConnect.AuthenticatorICP = MD5(Source_Addr+9 zero int+shared secret)加密后的
mConnect.Version = &H12
那我该如何发送这个结构体呢
WinSocket.SendData ???????????????????
各位帮帮忙
在线等待~~~~
首先我建立两个结构体
Public Type Message_Header
Total_Length(3) As Byte '4 消息总长度(含消息头及消息体)
Command_ID(3) As Byte '4 命令或响应类型
Sequence_ID(3) As Byte '4 消息流水号,顺序累加,步长为1,循环使用
End Type
Public Type MSG_Connect
Source_Addr As String * 6 ' 6 Octet String SP_ID 926021/01001
AuthenticatorICP As String * 16 ' 16 Octet String SP认证码
Version As Byte '1 Integer 双方协商的版本号
Timestamp(3) As Byte ' 4 Integer 时间戳的明文,由客户端产生,格式为MMDDHHMMSS,即月日时分秒,10位,右对齐
End Type
在tcp连接上我是这样写的
mHeader.Total_Length=Len(mHeader) + Len(mConnect)
mHeader.Sequence_ID=XuHao
mConnect.Timestamp=Format(Date, "mmdd") + Format(Time, "hhmmss")
mConnect.Source_Addr = "564565"
mConnect.AuthenticatorICP = MD5(Source_Addr+9 zero int+shared secret)加密后的
mConnect.Version = &H12
那我该如何发送这个结构体呢
WinSocket.SendData ???????????????????
各位帮帮忙
在线等待~~~~
解决方案 »
- VBA调用COM组件,那COM组件依赖的一些dll、config文件放哪?
- 用VB和MSN9做个简单的MSN发送接收消息正常,不能发送和接收文件。
- 关于VB中的分组打印问题
- 用winsock发送邮件的问题,急在线等,解决了马上给分
- 如何创建非模态对话框?
- ★★★★★★100征集思路。FlexCell控件显示数据,进行编辑,实现撤消和重复?要高手啊!!!!!
- 请问!我想捕捉vb使用SQL后查找返回为空的事件,该怎么做?
- 用什么编程思路
- 谁知道 这样的分页连接代码.在一个窗体显示不同的内容
- 放在 WindowsXP 注册表 HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run 中的程序启动时为什么不运行?
- 手机发送中文短消息问题?大家帮帮忙啊!!急!
- 我们得到了联通的短消息网关,用什么命令
gejun2000(飞的感觉)
遇到了同样问题,我的邮件[email protected],解决开贴给分!谢谢!
WinSocket.SendData mHeader.Sequence_ID
......
WinSocket.SendData mHeader.Sequence_ID
发送的是一个包吗?