Example Code

Send Text Messages Through GET API Examples

Copy to Clipboard

Send Text Messages Through POST API Examples

Copy to Clipboard

Public Function UploadWithFile() As String
    Dim WinHttpReq As WinHttp.WinHttpRequest
    
    
    Dim strBody As String
    Dim strFile As String
    Dim aPostBody() As Byte
Dim requesturl, UserName, Password
    Dim bound As String
    Dim boundSeparator As String
    Dim boundFooter As String
requesturl = "https://app.botmastersender.com/api/app/send.php"
UserName = "919425008429"
Password = "IhJplYEBOW4XpdsLqlqx"
    bound = "WebKitFormBoundary7MA4YWxkTrZu0gW"
boundSeparator = "--" & bound & vbCrLf
boundFooter = "--" & bound & "--" & vbCrLf

Set WinHttpReq = New WinHttpRequest
WinHttpReq.Open "POST", requesturl, False

WinHttpReq.SetRequestHeader "Content-Type", "multipart/form-data; boundary=" & bound
strBody = boundSeparator

strBody = strBody & "Content-Disposition: form-data; name=""" & "sender" & """" & vbCrLf & vbCrLf & UserName
strBody = strBody & vbCrLf & boundSeparator

strBody = strBody & "Content-Disposition: form-data; name=""" & "token" & """" & vbCrLf & vbCrLf & Password
strBody = strBody & vbCrLf & boundSeparator

strBody = strBody & "Content-Disposition: form-data; name=""" & "receiver" & """" & vbCrLf & vbCrLf & "918708037328"
strBody = strBody & vbCrLf & boundSeparator

'strBody = strBody & "Content-Disposition: form-data; name=""" & "receiverName" & """" & vbCrLf & vbCrLf & "Tarun"
'strBody = strBody & vbCrLf & boundSeparator

strBody = strBody & "Content-Disposition: form-data; name=""" & "msgtext" & """" & vbCrLf & vbCrLf & "Hey"
strBody = strBody & vbCrLf & boundSeparator

Dim strFileName As String
strFileName = "D:\devendar.jpg" '"D:\A.pdf"
strFile = getFile(strFileName) ''GetFile("C:\temp\" & strFileName)

strBody = strBody & "Content-Disposition: form-data; name=""" & "fileUpload" & """; filename=""" & strFileName & """" & vbCrLf & "Content-Type: application/pdf" & vbCrLf & vbCrLf & strFile

strBody = strBody & vbCrLf & boundFooter
    'Request Body ended

'convert to byte array
aPostBody = StrConv(strBody, vbFromUnicode)

WinHttpReq.Send aPostBody

UploadWithFile = WinHttpReq.ResponseText
MsgBox (UploadWithFile)
    Set WinHttpReq = Nothing
End Function

Function getFile(strFileName As String) As String
    Dim strFile As String
    Dim nFile

' Grap the file
nFile = FreeFile
    Open strFileName For Binary As #nFile
strFile = String(LOF(nFile), " ")
    Get #nFile, , strFile
    Close #nFile

getFile = strFile
End Function

Download Sample Code

Example Code

Send Text Messages Through GET API Examples

PHP

JavaScrpt/AJAX

Python

Java

C#/.NET

Bash

Send Text Messages Through POST API Examples

PHP

JavaScrpt/AJAX

Python

Java

C#/.NET

Bash

VB6

C#, VB10, VB8 With .NET 3.5

C#, VB10, VB8 With .NET 4.5

CHATBOTS

SERVICES

RESOURCES

FOR PARTNERS