.net 发送手机短信息

 最近开发项目中要用到发送短信功能,看了一下短信接口,由于是web开发, 选择了接口中的com的api !

 

当然先要引用接口中的empp.dll文件,需要注册

然后实现下面代码    

/// <summary>
///短信发送类
/// </summary>
public class SMS:DB
{
  /// <summary>
  /// 发送手机短信
  /// </summary>
  /// <param name="nRecordCount">手机号码,多个手机号用|隔开,并以|结尾</param>
  /// <param name="nOrder">短信内容</param>
  public static void SendSMS(string mobiles,string contents)
  {
    //短信服务器IP
    string host = "211.136.163.68";
    //短信服务器端口
    int port = 9981;

    //发送账户
    string accountId = "";
    string serviceId = "0";
    //发送账户密码
    string password = "";
    EMPPLib.emptcl empp = new EMPPLib.emptclClass();

    EMPPLib.ConnectResultEnum result = ConnectResultEnum.CONNECT_OTHER_ERROR;
    result = empp.connect(host, port, accountId, password);

    String msg = contents;
    EMPPLib.ShortMessage shortMsg = new EMPPLib.ShortMessageClass();
    shortMsg.srcID = accountId;
    shortMsg.ServiceID = serviceId;
    shortMsg.needStatus = true;
    EMPPLib.Mobiles mobs = new EMPPLib.MobilesClass();
    if (mobiles.IndexOf("|") > -1)
    {
      char[] cut = new char[] { '|'};
      for (Int32 i = 0; i < mobiles.Split(cut).Length-1; i++) {
        mobs.Add(mobiles.Split(cut)[i].ToString());
      }
    }
    else
    {
      mobs.Add(mobiles);
    }
    shortMsg.DestMobiles = mobs;
    shortMsg.content = msg;
    shortMsg.SendNow = true;

    empp.needStatus = true;
    if (empp != null && empp.connected == true)
    {
      empp.submit(shortMsg);
    }
  }

 

   

转载于:https://www.cnblogs.com/zyosingan/archive/2010/07/20/1781479.html

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
VB.NET发送文件可以使用Socket进行网络通信。首先,我们需要创建一个服务器端和一个客户端。 服务器端代码如下: ```vb.net Imports System.IO Imports System.Net Imports System.Net.Sockets Public Class Server Public Shared Sub Main() Dim serverIp As IPAddress = IPAddress.Parse("服务器IP地址") Dim serverPort As Integer = 8888 ' 创建服务器Socket Dim serverSocket As New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp) serverSocket.Bind(New IPEndPoint(serverIp, serverPort)) serverSocket.Listen(10) Console.WriteLine("等待客户端连接...") Dim clientSocket As Socket = serverSocket.Accept() Console.WriteLine("客户端已连接") ' 读取文件 Dim filePath As String = "文件路径" Dim fileBytes As Byte() = File.ReadAllBytes(filePath) ' 发送文件大小给客户端 Dim fileSize As Integer = fileBytes.Length Dim fileSizeBytes As Byte() = BitConverter.GetBytes(fileSize) clientSocket.Send(fileSizeBytes) ' 发送文件给客户端 clientSocket.Send(fileBytes) Console.WriteLine("文件已发送") ' 关闭连接 clientSocket.Shutdown(SocketShutdown.Both) clientSocket.Close() serverSocket.Close() Console.WriteLine("连接已关闭") End Sub End Class ``` 客户端代码如下: ```vb.net Imports System.IO Imports System.Net Imports System.Net.Sockets Public Class Client Public Shared Sub Main() Dim serverIp As IPAddress = IPAddress.Parse("服务器IP地址") Dim serverPort As Integer = 8888 ' 创建客户端Socket Dim clientSocket As New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp) clientSocket.Connect(New IPEndPoint(serverIp, serverPort)) ' 接收服务器发送的文件大小 Dim fileSizeBytes(3) As Byte clientSocket.Receive(fileSizeBytes) Dim fileSize As Integer = BitConverter.ToInt32(fileSizeBytes, 0) ' 接收文件内容 Dim receivedBytes As Integer = 0 Dim buffer(1024) As Byte Using fileStream As New FileStream("保存文件路径", FileMode.Create, FileAccess.Write) While receivedBytes < fileSize Dim bytesRead As Integer = clientSocket.Receive(buffer) fileStream.Write(buffer, 0, bytesRead) receivedBytes += bytesRead End While End Using Console.WriteLine("文件已接收") ' 关闭连接 clientSocket.Shutdown(SocketShutdown.Both) clientSocket.Close() Console.WriteLine("连接已关闭") End Sub End Class ``` 注意替换代码中的服务器IP地址、服务器端口、文件路径和保存文件路径为实际的值。服务器端首先等待客户端连接,然后读取要发送的文件并发送给客户端。客户端首先连接服务器,然后接收服务器发送的文件大小,最后按照文件大小逐步接收文件内容并保存到本地。 运行服务器端和客户端,即可完成文件的发送和接收过程。

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值