vba - VBA を使用して VoipBuster 経由で SMS を送信する

Question

私はまったくの初心者ですが、条件が満たされたときに VoipBuster プラットフォームを使用して SMS を送信するマクロを VBA で作成しようとしています。

出来ますか？PCにインストールしたアプリとWebページ（ https://www.voipbuster.com/sms）のどちらが使いやすいですか？

助けてください！

Answer 1

voipbuster から SMS を送信するには、php vars で送信できます...
"https://www.voipbuster.com/myaccount/sendsms.php?username=$USER&password=$PASS&from=$FROM&to=\"$TO\"&text=$SMS_TEXT"

したがって、このように vba から iexplore にアクセスし、使用する変数を作成し、パス、テキストなどを作成し、URL の前にすべてを連結する必要があります。

VBA から iexplore を呼び出すには、 google を使用して多くの方法を見つけることができます。ここに例があります

Private Sub IE_Autiomation()
    Dim i As Long 
    Dim IE As Object 
    Dim objElement As Object
    Dim objCollection As Object

    ' Create InternetExplorer Object
    Set IE = CreateObject("InternetExplorer.Application")

    ' You can uncoment Next line To see form results
    IE.Visible = False

    ' Send the form data To URL As POST binary request
    IE.Navigate "https://www.voipbuster.com/myaccount/sendsms.php?username=$USER&password=$PASS&from=$FROM&to=\"$TO\"&text=$SMS_TEXT"

Answer 2

以下のコードを試してください。URL 変数の値をブラウザに入力してテストすることもできます。

Sub SendSms()

    Dim username As String
    Dim password As String
    Dim sendTo As String
    Dim msg As String

    username = "test" 'enter username here
    password = "test" 'enter password here
    sendTo = "9999999999"
    msg = "Hello"

    Dim URL As String
    URL = "https://www.voipbuster.com/myaccount/sendsms.php?username=" & username & "&password=" & password & "&to=" & sendTo & "&text=" & msg

    Dim xml As Object
    Set xml = CreateObject("MSXML2.XMLHTTP")
    xml.Open "GET", URL, False
    xml.send
End Sub