Code example in Visual Basic:

'This is the code for opening the connection to ViaNett
Private WithEvents mySMSConnection As ViaNettSMSConnection
Set mySMSConnection = New ViaNettSMSConnection
mySMSConnection.StartConnection

'The code for sending a logo NB!!! All in one line
mySMSConnection.SendMsg "91748750", True, "42F21000480E010000000000004000000000000000
011000000000000F30015030000000003C7019F670000000
00F03038063000"

'The code for sending a textmessage

mySMSConnection.SendMsg "91748750", False, "", "Dette er en tekst melding", ""

'The code for recieving a message (Message sendt from the mobil to 1901 / 1963)
Sub mySMSConnection_ReceiveMsg(ByVal tlf As String, ByVal msg As String)
MsgBox "Message Received: Tlf=" & tlf & " msg=" & msg
End Sub

' The code for closing the Connection
mySMSConnection.EndConnection



The ActiveX menu, as you find it in Visual Basic

The technology is based on ViaNett Publishing
 Copyright ViaNett 2001

 Contact us
.

Choose language