一个免费的彩信二次开发DLL包，有demo - 深圳市未来时代科技有限公司

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;
}

复制代码

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() ' 断开连接

复制代码