使用VBA通過VoipBuster發送短信

Question

我是初學者，但我試圖在條件完成時使用VoipBuster平臺在VBA中發送短信。

可能嗎？使用安裝在PC或網頁上的應用程序更容易嗎（https://www.voipbuster.com/sms）。

請幫忙！

Answer 1

對於來自voipbuster發送短信，您可以通過PHP瓦爾發送...
" https://www.voipbuster.com/myaccount/sendsms.php?username= $USER&password=$PASS&from=$FROM&to=\"$TO\"&text=$SMS_TEXT"

所以，你需要從這樣的VBA訪問IEXPLORE，創建你乏使用，傳遞，文本ETCC和CONCAT everythins如URL之前..

從VBA調用IEXPLORE，你會發現有很多與谷歌的方式，在這裏你有一個例子

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