• Espa帽ol
    • Franc茅s
    • Ingl茅s
Contacto : +33(0)4.13.41.50.70
  • Espa帽ol
    • Franc茅s
    • Ingl茅s

API SMS VBA C贸digo Fuente

Archivo de configuraci贸n

Public Class configFile

Public user_login As String = 芦************@********禄
Public api_key As String = 芦****************禄
Public sms_text As String = 芦test text禄
Public sms_recipients() As String = {芦+33600000000禄}
Public sms_type As String = SMS_TYPE_QUALITE_STANDARD
Public sms_mode As String = 1

Public sms_sender As String = 芦Octopush禄

End Class

Archivo Principal

Imports System.Xml

Module campagne

Sub Main()

Dim config As configFile = New configFile()
Dim sms As SMS = New SMS()

sms.set_user_login(config.user_login)
sms.set_api_key(config.api_key)
sms.set_sms_mode(config.sms_mode)
sms.set_sms_text(config.sms_text)
sms.set_sms_recipients(config.sms_recipients)
sms.set_sms_type(config.sms_type)
sms.set_sms_sender(config.sms_sender)

Dim xml As String = sms.send(config.DOMAIN, config.PATH_SMS, config.PORT)

Dim xmlDoc As New XmlDocument
Dim productNodes As XmlNodeList

xmlDoc.LoadXml(xml)

End Sub

End Module