Exemple d'implémentation du client en vb.net

Module EncodeurSpartimeClient

    Sub Main()

Dim login As String = "test"
Dim password As String = "test"

        Dim client As Object

        client = CreateObject("MSSOAP.SOAPClient")

client.mssoapinit("http://" & login & ":" & password & "@code.spartime.com/axis2/services/EncodeurSpartimeService?wsdl")

client.ConnectorProperty("AuthUser") = login
client.ConnectorProperty("AuthPassword") = password

        client.setCryptoParameters("0114A25205990CF5D2E6D7628036192B", 1, "0202020202020202020202020202020202020202020202020202020202020202020202020202020202020202020202020202020202020202020202020202", 14)
        Console.Out.WriteLine("Code gestionnaire = " & client.getCodeGestionnaire())
        Console.Out.WriteLine("Code installateur = " & client.getCodeInstallateur("20081231T0000"))
        Console.Out.WriteLine("Code de date à date = " + client.getCodeDateADate("20080223T0000", "20090707T2359", False, 1))
        Console.Out.WriteLine("Code fonction ajout d'opposition = " + client.getCodeFonctionAddOpposition("123456"))
        Console.Out.WriteLine("Code fonction suppression d'opposition = " + client.getCodeFonctionDelOpposition("123456"))
        Console.Out.WriteLine("Code fonction ajout d'un code perso = " + client.getCodeFonctionAddPerso("1234", 1))
        Console.Out.WriteLine("Code fonction suppression d'un code perso = " + client.getCodeFonctionDelPerso("1234"))
        Console.Out.WriteLine("Code fonction suppression d'une activité = " + client.getCodeFonctionDelActivite(0))
        Console.Out.WriteLine("Code fonction ajout d'un créneau = " + client.getCodeFonctionAddCreneau(0, 0, 671))
        Console.Out.WriteLine("Code fonction modification d'un créneau = " + client.getCodeFonctionModCreneau(0, 0, 671))
        Console.Out.WriteLine("Code fonction suppression d'un créneau = " + client.getCodeFonctionDelCreneau(0))
        Console.Out.WriteLine("Code fonction mise à l'heure = " + client.getCodeFonctionSetDateTime("20081231T1410"))
        Console.Out.WriteLine("Code périodique jour V2 = " + client.getCodePeriodiqueJourV2(0, "20080101T0800", 10, 3, 3, 1))
        Console.Out.WriteLine("Code instantané = " + client.getCodeInstantane("20090102T1427", 1, False, 3))

    End Sub

End Module