Kodeeksempel i Visual Basic:
'Her er koden for at åbne koblingen til ViaNett
Private WithEvents mySMSConnection As ViaNettSMSConnection
Set mySMSConnection = New ViaNettSMSConnection
mySMSConnection.StartConnection
'Koden for at sende en operatørlogo NB!!! Kun en linje
mySMSConnection.SendMsg "91748750", True, "42F21000480E010000000000004000000000000000
011000000000000F30015030000000003C7019F670000000
00F03038063000"
'Koden for at sende en tekstmeddelelse
mySMSConnection.SendMsg "91748750", False, "", "Dette er en tekst melding", ""
'Koden for at modtage en melding (Melding sendt fra mobiltelefon til 1901 / 1963)
Sub mySMSConnection_ReceiveMsg(ByVal tlf As String, ByVal msg As String)
MsgBox "Message Received: Tlf=" & tlf & " msg=" & msg
End Sub
' Koden for at tage forbindelsen ned
mySMSConnection.EndConnection

Figur1. ActiveX menuen som man finder den i Visual Basic.
Gå tilbage