VBA를 사용하여 VoipBuster를 통해 SMS 보내기

Question

총 초보자이지만 조건이 완료되면 VoipBuster 플랫폼을 사용하여 SMS를 보내기 위해 VBA에서 매크로를 만들려고합니다.

가능합니까? PC 또는 웹 페이지 (https://www.voipbuster.com/sms)에 설치된 응용 프로그램을 사용하는 것이 더 쉽습니다.

도와주세요!
" https://www.voipbuster.com/myaccount/sendsms.php?username= $USER&password=$PASS&from=$FROM&to=\"$TO\"&text=$SMS_TEXT"

그래서 당신이 텍스트 ETCC 및 CONCAT의 everythins를,이 같은 VBA에서 IEXPLORE에 액세스하면 사용을 바르 생성, 전달해야 voipbuster에서 보내는 SMS를 들어

Answer 1

당신이 PHP가 바르하여 보낼 수 있습니다 ... 이전 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