//Enviar vários registros com WL

IF EDT_Mensagem_SMS <> "" THEN

sDDD_Telefones , sResposta is string

informacoes is string = "acao=login&usuario=USERCADASTRADO&senha=SENHACADASTRADA"

//importante trocar user e senha de acordo com o seu cadastro

ResStart is boolean = HTTPRequest("http://app.smsapi.com.br/contas/service.json","SMSAPI","",informacoes)
IF ResStart = True THEN
sResposta = "HTML code: " + HTTPGetResult() + "<br>"
sResposta += "Header: " + HTTPGetResult(httpHeader) + "<br>"
sResposta += "Cookie: " + HTTPGetResult(httpCookie)
END
EDT_Retorno = sResposta

nTotal, nRegistros is int = 0
ok is boolean = HExecuteQuery(QRY_Select_TotalRegistros,Connect,hQueryDefault)
IF ok = True THEN
FOR EACH QRY_Select_TotalRegistros
nTotal = QRY_Select_TotalRegistros.Total
END
END
PROGBAR_01..MaxValue = nTotal
PROGBAR_01..Value = 0

Telefone is string = ""
ok = HExecuteQuery(QRY_Select_Clientes,Connect,hQueryDefault)
IF ok = True THEN

FOR EACH QRY_Select_Clientes

nRegistros += 1

Telefone = NoSpace(QRY_Select_Clientes.t001_ddd) + NoSpace(QRY_Select_Clientes.t001_numero)

sDDD_Telefones += Telefone + CR

informacoes = "acao=enviar&destinos=@destinos@&texto=@texto@&chave=@chave@"
informacoes = Replace(informacoes,"@destinos@","[55"+Telefone+"]")
informacoes = Replace(informacoes,"@texto@",NoSpace(EDT_Mensagem_SMS))
informacoes = Replace(informacoes,"@chave@","f6a0d0523138b4b263d96c3e8f260110")

//IMPORTANTE TROCAR A CHAVE: f6a0d0523138b4b263d96c3e8f260110 pela sua...

ResStart = HTTPRequest("http://app.smsapi.com.br/mensagens/service.json","SMSAPI","",informacoes)
IF ResStart = True THEN
sResposta = "HTML code: " + HTTPGetResult() + "<br>"
sResposta += "Header: " + HTTPGetResult(httpHeader) + "<br>"
sResposta += "Cookie: " + HTTPGetResult(httpCookie)
END

PROGBAR_01..Value += 1

END

END

EDT_Retorno += sDDD_Telefones + sResposta + CR + "Total de Registros: " + nRegistros

ELSE
Info("Informe o ddd, celular e a mensagem!")
END