在vb .net中用MyPhoneExplorer发送短信

Dim myPhoneExplorer As New MyPhoneExplorer
myPhoneExplorer.Init()

myPhoneExplorer.SendMessage("手机号码", "短信内容")

Imports MyPhoneExplorerCOM

Public Class Form1
    Private Sub btnSendSMS_Click(sender As Object, e As EventArgs) Handles btnSendSMS.Click
        Dim myPhoneExplorer As New MyPhoneExplorer
        myPhoneExplorer.Init()

        Dim phoneNumber As String = txtPhoneNumber.Text
        Dim message As String = txtMessage.Text

        myPhoneExplorer.SendMessage(phoneNumber, message)

        MessageBox.Show("短信发送成功！")

        myPhoneExplorer.Shutdown()
    End Sub
End Class