Отправка SMS через HTTP-протокол с использованием Visual Basic

Примерный код для SMS рассылки на VB может быть таким:

Dim Http
Http = CreateObject("Msxml2.XMLHTTP.4.0")

Http.Open("POST", "http://alfa-sms.ru:8080/smw/aisms", False)

Http.setRequestHeader("Content-Type", "application/
x-www-form-urlencoded; charset=UTF-8")
Http.send("user=user11&pass=test1111&action=post_sms
&message=Hello&target=+79999999999")

MsgBox(Http.responseText, , "responseText")