readme.txt

来自「西门子TC35源程序」· 文本 代码 · 共 64 行

/************************************************************************
	亿号通第三方短信通道COM接口
	作者：WLB
	版本：1.0
	时间：2005-8-25

  　相关使用说明：
		1、InitClientSm初始化开发包
			szServerIP	连接的服务器IP
			iPort		连接的服务器端口

		2、SendSm2Mobile发送短信接口：
			szMobile		接收手机
			szUserID		接收信息尾号
			iChargeType		计费方式（0免费　1计费）
			szContent		短信内容
			iLen			短信长度（不要超过68个）
			
		3、RecvType监听服务端转发过来的数据包格式，返回值说明：
			1	上行短信
			2	下行短信提交回应
			0	非法数据包(FALSE)

		4、当接收到的数据包为1时调用RecvSm初始接收信息
			下面的4个接口具体的接收短信内容：
				ReadSmContent	短信内容
				ReadSerialNum	上行特服号
				ReadUserID		接收信息尾号
				ReadMobile		接收手机			
				
		5、当接收到的数据包为2时调用RecvSm2MobileReap进行接收下发短信回应
				pszSerialNum内容说明：
					下发成功返回为15长度的短信序号。
					下发失败返回为：0111
************************************************************************/

VB 测试代码供参考：

－初始化接口－
	com = CreateObject("CYhtSm.CYhtSm")

        iRet = com.InitClientSm("211.152.65.182", 8500)

        If iRet = 1 Then
            MsgBox("成功")
        Else
            MsgBox("失败")
        End If

－发送信息－
	com = CreateObject("CYhtSm.CYhtSm")

        iRet = com.SendSm2Mobile(mobile.Text, userid.Text, 0, content.Text, content.TextLength)
        If iRet = 1 Then
            MsgBox("成功")
        Else
            MsgBox("失败")
        End If