客户在君贤公司主页下载区域下载《彩信短信接口函数》，然后运行安装，该DLL文件即自动注册到本地电脑里，下一步在自己的开发环境里引用，然后直接使用里面的对象进行编程。

    彩信接入，把手机变成商机，使您步步领先！

 

     A.发送函数一次最多可以提交50个手机号码。
     B.一次可以附加三个彩信文件，比君贤网页和软件可以多附加一个文件。
     C.多种函数可以实现多种功能，具有开发灵活性。

 

    vb调用示例

Dim MMSObj As New MMLJServiceEX.MMSAccess '定义并初始化新的彩信发送对象
Dim strIP As String, strPort As String '定义服务器参数
Dim strEID As String, strUser As String, strPassword As String '定义账户参数
Dim FileA As String, FileB As String, FileC As String '定义文件参数
Dim PhoneList As String, Cont As String '手机号码和内容
Dim Ret As String '定义返回值

strIP = "59.36.100.101" '君贤服务器地址
strPort = "12250" '君贤服务器端口
strEID = "SystemUser" '贵宾账号参数，由君贤提供
strUser = "TestID" '用户账号参数，由君贤提供
strPassword = "123456" '用户密码，客户可通过函数自设

PhoneList = "13939685448,13815848771" '手机号码
Cont = "测试彩信" '彩信主题

FileA = "C:\MyPicture\funny.jpg" '图片文件
FileB = "C:\MyMusic\happy.mid" '声音文件
FileC = "C:\MyDocument\Hello.txt" '文本文件

'登录远程服务器，只需进行一次即可（一般在程序初始化时即可自动登录）
Ret = MMSObj.Initial(strIP, strPort, strEID, strUser, strPassword)

If InStr(Ret, "OK/") > 0 Then'登录成功
'后续代码
Else'登录失败
'后续代码
End If

Ret = MMSObj.SendMMS(PhoneList, Cont, FileA, FileB, FileC)'调用发送彩信命令

If InStr(Ret, "OK/") > 0 Then'发送成功
'后续代码
Else'发送失败
'后续代码
End If

Ret = MMSObj.SendMsg(PhoneList, Cont)'调用发送短信命令

If InStr(Ret, "OK/") > 0 Then'发送成功
'后续代码
Else'发送失败
'后续代码
End If