一个免费的彩信二次开发DLL包，有demo

admin · 发表于 2014-3-26 09:55:15

这个DLL包经过本人测试可以正常使用，如需要朋友可以下载进行开发，里面附有说明文档。有短信猫的例程也有彩信的例程，这里主要介绍的就是彩信的例程吧。测试时请使用彩信收发设备，非短信猫，短信猫没有GPRS功能不可以拨号进行发送彩信的。如果觉得这款免费的开发包开发起来浪费时间，你可以考虑我们公司的木鱼彩信数据库接口3.0的，但需要收费的哦加密狗加密。

彩信开发接口以标准的DLL(Dynamic Linkable Library)即动态链接库文件提供，是软件开发商（ISV）和系统集成商（SI）在系统开发中对于短信、彩信、WAP PUSH应用需求的最优解决方案之一。同时也是企事业终端用户短信、彩信、WAP PUSH嵌入应用的最佳选择。
使用该二次开发控件，您可以简单快捷的二次开发，将短信、彩信与企业信息管理系统全面融合。广泛应用在企业MIS系统、调度通知系统、ERP应用、OA办公网络、客户服务中心等关键环节，将短信、彩信服务与针对不同行业度身定制的信息管理系统相结合，根据不同客户、不同需求，高效提供更多个性化的服务、产品和信息。

产品特点：

一个开发接口，支持多种信息类型，包括短信、彩信、闪信等
支持几乎所有常用的开发语言，理论上可以调用COM组件的开发语言均可使用。包括ASP,ASP.NET,Borland C++ Builder,Borland Delphi,HTML,PHP,VBA,VBScript,Visual Basic,Visual Basic.NET,Visual C++,Visual C#.net 等
同时支持中国移动、中国联通的彩信业务，支持移动Edge网络
支持超长短信自动拼接，(当发送超过70个汉字的超长短信时，短信自动拼接，用户收到的信息仍显示为1条信息，而不会拆分成多条)
支持彩信批量打包，几何级的提高彩信发送速度，在群发时，可提高5-20倍的发送速度
支持多种形式的接入方式，除了调用本地硬件外，还能调用我公司网关或第三方接口，彩信可以通过MM7协议直连运营商
支持信息到达回执

安装

1：复制xssmsmms.dll至windows安装目录下的system32文件夹或开发程序所在目录

2：注册一下控件，运行regsvr32 xssmsmms.dll

有C#，PHP，VB，VB.NET四种例程，下面就给大家看看C#下的例程吧，其他自己下载压缩包看说明说了，嘿嘿。

通过gprs modem发送彩信C#：

using xssmsmms
public MmsProtocolMm1 objMMSProtocolMm1;
public MmsMessage objMmsMessage;
public MmsSlide objMmsSlide;
public MmsConstants objMmsConstants;
objMmsProtocolMm1 = new MmsProtocolMm1 ();
objMmsMessage = new MmsMessage ();
objMmsSlide = new MmsSlide ();
objMmsConstants = new MmsConstants ();
public MmsProtocolMm1 objMMSConnection;
public MmsMessage objMmsMessage;
/*****************************************************************************************************/
private void Form1_Load(object sender, System.EventArgs e)
{
objMMSConnection = new MmsProtocolMm1Class();
objMmsMessage = new MmsMessageClass ();
for ( int n = 0 ; n < objMMSConnection.GetDeviceCount () ; n++ )
{
ComboDevice.Items.Add (objMMSConnection.GetDevice(n));
ComboDevice.SelectedIndex = 0;
}
TextLogfile.Text = System.IO.Path.GetTempPath() + "MMSLog.txt";
}
/*****************************************************************************************************/
private void ButtonLoadCfg_Click(object sender, System.EventArgs e)
{
openFileDialog1.DefaultExt = ".mm1";
openFileDialog1.Filter = "MMS Connection Files (*.mm1)|*.mm1";
if ( openFileDialog1.ShowDialog() == DialogResult.OK )
{
objMMSConnection.ProviderProviderLoadConfig(openFileDialog1.FileName);
if ( GetResult() == 0)
{
TextServerAddress.Text = objMMSConnection.ProviderMMSC;
TextServerAPN.Text = objMMSConnection.ProviderAPN;
TextServerGateway.Text = objMMSConnection.ProviderWAPGateway;
TextServerLogin.Text = objMMSConnection.ProviderAPNAccount;
TextServerPassword.Text = objMMSConnection.ProviderAPNPassword;
}
}
}
/*****************************************************************************************************/
private void ButtonSaveCfg_Click(object sender, System.EventArgs e)
{
saveFileDialog1.DefaultExt = ".mm1";
saveFileDialog1.Filter = "MMS Connection Files|mm1";
if ( saveFileDialog1.ShowDialog() == DialogResult.OK )
{
objMMSConnection.ProviderMMSC = TextServerAddress.Text;
objMMSConnection.ProviderAPN = TextServerAPN.Text;
objMMSConnection.ProviderWAPGateway = TextServerGateway.Text;
objMMSConnection.ProviderAPNAccount = TextServerLogin.Text;
objMMSConnection.ProviderAPNPassword = TextServerPassword.Text;
objMMSConnection.ProviderSaveConfig(saveFileDialog1.FileName);
GetResult ();
}
}
/*****************************************************************************************************/
private long GetResult ()
{
if (objMMSConnection.LastError == 0)
{
TextResult.Text = "发送成功";
}
else
{
TextResult.Text = "发送失败";
}
TextResponse.Text = objMMSConnection.ProviderResponse;
return objMMSConnection.LastError;
}
/*****************************************************************************************************/
private void ButtonSend_Click(object sender, System.EventArgs e)
{
MmsSlide objMmsSlide;
objMMSConnection.Device = ComboDevice.Text;
objMMSConnection.ProviderMMSC = TextServerAddress.Text;
objMMSConnection.ProviderAPN = TextServerAPN.Text;
objMMSConnection.ProviderAPNAccount = TextServerLogin.Text;
objMMSConnection.ProviderAPNPassword = TextServerPassword.Text;
objMMSConnection.ProviderWAPGateway = TextServerGateway.Text;
objMMSConnection.LogFile = TextLogfile.Text;
objMmsMessage.Clear();
objMmsMessage.AddRecipient(TextRecipient.Text);
objMmsMessage.From = TextSender.Text;
objMmsMessage.Subject = TextSubject.Text;
objMmsSlide = new MmsSlide ();
object obj1 = null;
objMmsSlide.AddText(TextBody.Text);
objMmsSlide.AddAttachment(TextAttachment.Text, ref obj1);
obj1 = objMmsSlide;
objMmsMessage.AddSlide ( ref obj1 );
Cursor.Current = Cursors.WaitCursor;
objMMSConnection.Connect();
if ( GetResult() == 0)
{
object obj = objMmsMessage;
objMMSConnection.Send (ref obj );
GetResult();
objMMSConnection.Disconnect();
}
Cursor.Current = Cursors.Default;
}
/*****************************************************************************************************/
private void ButtonView_Click(object sender, System.EventArgs e)
{
if (System.IO.File.Exists(TextLogfile.Text.ToString()))
{
System.Diagnostics.Process.Start(TextLogfile.Text);
}
}
/*****************************************************************************************************/
private void ButtonBrowse_Click(object sender, System.EventArgs e)
{
openFileDialog1.Filter = "MMS配置文件|*";
if ( openFileDialog1.ShowDialog() == DialogResult.OK )
{
TextAttachment.Text = openFileDialog1.FileName;
}

复制代码

示例1——发送彩信

Set objMm1Protocol = CreateObject ( "XunsaiSMSMMS.MmsProtocolMm1" ) ' 创建MmsProtocolMm1实例
Set objMmsMessage = CreateObject ( "XunsaiSMSMMS.MmsMessage" ) ' 创建MmsMessage实例
Set objMmsSlide = CreateObject ( "XunsaiSMSMMS.MmsSlide" ) ' 创建MmsSlide实例
Set objConstants = CreateObject ( "XunsaiSMSMMS.MmsConstants" ) ' 创建MmsConstants实例
' 彩信幻灯片
objMmsSlide.Clear()
objMmsSlide.Duration = 10 ' 显示10为10秒
objMmsSlide.AddAttachment( "logo.gif" ) ' 为这个幻灯片增加一个图片
objMmsSlide.AddText( "发一条彩信看看" ) ' 为这个幻灯片增加文本信息
objMmsMessage.Clear()
objMmsMessage.Subject = "主题" ' 彩信主题
objMmsMessage.AddRecipient( "+8613812345678" ) ' 收件人
objMmsMessage.AddRecipient( "+8615901731589" ) ' 增加一个收件人
objMmsMessage.AddRecipient( "N13901234567" )
objMmsMessage.AddSlide( objMmsSlide ) ' 增加一个幻灯片
objMm1Protocol.Device = "标准33600bps modem" ' 选择设备
' 设置GPRS拨号
objMm1Protocol.ProviderAPN = "CMWAP" ' GPRS APN
objMm1Protocol.ProviderAPNAccount = "" ' GPRS 用户名
objMm1Protocol.ProviderAPNPassword = "" ' GPRS 密码
objMm1Protocol.ProviderWAPGateway = "10.0.0.172" ' WAP 网关
objMm1Protocol.ProviderMMSC = "mmsc.monternet.com" ' 彩信中心
objMm1Protocol.Connect() ' GPRS 拨号
If ( objMm1Protocol.LastError <> 0 ) Then
WScript.Quit
End If
objMm1Protocol.Send ( objMmsMessage ) ' 发送彩信
objMm1Protocol.Disconnect() ' 断开连接