VB用COM口发WAPPUSH,返回+CMS ERROR: 500
给出代码如下:
Type WAPPushPDUStruct
SMSCLen As String
SMSCType As String
SMSC As String
PROTOCOL As String
TPMRBase As String
RePhoneNumLen As String
RePhoneNumType As String
RePhoneNum As String
TPPID As String
TPDSC As String
TPVP As String
MSGLen As String
WAPPUSHHeadLen As String
WAPPUSHFlag As String
DATALen As String
WAPPUSHCOMBFlag As String
Total As String
MSGID As String
WapPushUDH As String
WapPushPUD As String
' WAPPUSHBegin As String
' WSP As String
' Flag As String
' DTDSIFlag As String
' UTF As String
' FlagBegin As String
' SIBegin As String
'
' IndicationBegin As String
'
' Action As String
' Href As String
' HrefBegin As String
WapPushIndicator As String
URL As String
' HrefEnd As String
' Split As String
' TitleBegin As String
WapPushDisplayTextHeader As String
title As String
' TitleEnd As String
' SIEnd As String
' IndicationEnd As String
EndOfWapPush As String
&nb
相关文档：
VB实现VC TabControl控件
新建一个工程文件Project1，
在左侧工具栏中点右键
在出现的选项中点“Components”，在打开窗口中找到“Controls”选项也中的“Microsoft Tabbed Dialog Control 6.0”，然后点“应用”“确定”退出该页� ......
1. ASC(X)，Chr(X)：转换字符字符码
[格式]：
P=Asc(X) 返回字符串X的第一个字符的字符码
P=Chr(X) 返回字符码等于X的字符
[范例]：
(1)P=Chr(65)
‘ 输出字符A,因为A的ASCII码等于65 ......
'创建快捷方式，兼容vista
'要把vb6stkit.DLL放到程序目录
'敖士伟 09-10-27
'只对“桌面”和“开启”有效，其它还没做
'=========开启外部同步程序定义开始
Const SYNCHRONIZE = &H100000
Const INFINITE = &HFFFF 'Wait forever
Const WAIT_OBJECT_0 = 0 'The state of the spe ......
Function crypt(Action As String, Key As String, Src As String) As String
'Action
' E encrypts, D decrypts,
'Key is a unique string needed to en/decrypt (either
' hardcode or setup something for the user to enter.
'Src is the string to be en/decrypted.
On Error GoTo errHandl ......
