使用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