如何從vb.net發送短信

Question

我需要設置一個應用程序的目的是發送短信。已經知道短信網關類型。但我真的想與SIM卡整合。我需要通過一個SIM卡（這是通過COM口連接到PC）

Answer 1

進口System.IO.Ports

公共類Exampl1

Public Class Form1 
    Dim WithEvents serialport As New IO.Ports.SerialPort 
    Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) 

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 
     For i As Integer = 0 To My.Computer.Ports.SerialPortNames.Count - 1 
      .Items.Add(My.Computer.Ports.SerialPortNames(i)) 
     Next 
    End Sub 

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 

     If serialport.IsOpen Then 
      serialport.Close() 
     End If 

     Try 
      With serialport 
       .PortName = ComboBox1.Text 
       .BaudRate = 96000 
       .Parity = Parity.None 
       .DataBits = 8 
       .StopBits = StopBits.One 
       .Handshake = Handshake.RequestToSend 
       .DtrEnable = True 
       .RtsEnable = True 
       .NewLine = vbCrLf 
      End With 
      serialport.Open() 
     Catch ex As Exception 

     End Try 

     serialport.WriteLine("AT+CMGF=1" & vbCr) 
     System.Threading.Thread.Sleep(200) 
     serialport.WriteLine("AT+CMGS=" & Chr(34) & "destination" & Chr(34) & vbCr) 
     System.Threading.Thread.Sleep(200) 
     serialport.WriteLine("test message" & vbCrLf & Chr(26)) 
     System.Threading.Thread.Sleep(200) 
    End Sub 
End Class 

末級

Answer 2

在這裏你可以找到免費的圖書館，可以幫助你與你的任務發送：http://www.codeproject.com/KB/cs/SMS.aspx?msg=3179142

或者，您可以選擇的是做一些商業庫同樣的事情：例如，http://www.logixmobile.com/products/mcorelib/index.asp。