VB.NET Appel de service Web avec clé d'authentification

Question

J'essaie de configurer une connexion à un service Web à partir de VB.NET Je suis totalement désemparé sur la façon d'effectuer cela. Je reçois un aperçu de ce que leur savon peut faire et j'ai également reçu une clé de sécurité. Je ne suis cependant pas sûr de savoir comment appeler ce service Web en utilisant la clé de sécurité dans VB.NET. J'espère que quelqu'un peut m'aider un peu plus en utilisant la disposition du service ci-dessous.

C'est la mise en page de savon:

POST /Webservice/Coachview.asmx HTTP/1.1 
Host: training.coachview.net 
Content-Type: text/xml; charset=utf-8 
Content-Length: length 
SOAPAction: "http://coachview.net/webservices/ToevoegenWebAanvraag" 

<?xml version="1.0" encoding="utf-8"?> 
<soap:Envelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/"> 
    <soap:Body> 
    <ToevoegenWebAanvraag xmlns="http://coachview.net/webservices"> 
     <aWebserviceAuthentication> 
     <Key>string</Key> 
     </aWebserviceAuthentication> 
     <aWebAanvraag> 
     <OpleidingsSoortCode>string</OpleidingsSoortCode> 
     <OpleidingsSoortNaam>string</OpleidingsSoortNaam> 
     <OpleidingCode>string</OpleidingCode> 
     <OpleidingNaam>string</OpleidingNaam> 
     <AantalPersonen>short</AantalPersonen> 
     <ReferentieNrKlant>string</ReferentieNrKlant> 
     <Uitvoeringstermijn>string</Uitvoeringstermijn> 
     <Oorsprong>string</Oorsprong> 
     <Opmerking>string</Opmerking> 
     <ContactPersoonIsDeelnemer>boolean</ContactPersoonIsDeelnemer> 
     <AanvraagIsOrder>boolean</AanvraagIsOrder> 
     </aWebAanvraag> 
     <aWebAanvraagBedrijf> 
     <Naam>string</Naam> 
     <Adres>string</Adres> 
     <Postcode>string</Postcode> 
     <Plaats>string</Plaats> 
     <Land>string</Land> 
     <BezoekAdres>string</BezoekAdres> 
     <BezoekPostcode>string</BezoekPostcode> 
     <BezoekPlaats>string</BezoekPlaats> 
     <BezoekLand>string</BezoekLand> 
     <FactuurAdres>string</FactuurAdres> 
     <FactuurPostcode>string</FactuurPostcode> 
     <FactuurPlaats>string</FactuurPlaats> 
     <FactuurLand>string</FactuurLand> 
     <Emailadres>string</Emailadres> 
     <Telefoonnummer>string</Telefoonnummer> 
     <Faxnummer>string</Faxnummer> 
     <Opmerking>string</Opmerking> 
     <Website>string</Website> 
     <ExternId>string</ExternId> 
     <ExternSource>string</ExternSource> 
     </aWebAanvraagBedrijf> 
     <aContactPersoon> 
     <Achternaam>string</Achternaam> 
     <Voorletters>string</Voorletters> 
     <Tussenvoegsels>string</Tussenvoegsels> 
     <Voornaam>string</Voornaam> 
     <Titel>string</Titel> 
     <Geslacht>string</Geslacht> 
     <Adres>string</Adres> 
     <Postcode>string</Postcode> 
     <Plaats>string</Plaats> 
     <Land>string</Land> 
     <Afdeling>string</Afdeling> 
     <Functie>string</Functie> 
     <Faxnummer>string</Faxnummer> 
     <GeboorteDatum>string</GeboorteDatum> 
     <GeboortePlaats>string</GeboortePlaats> 
     <TelefoonMobiel>string</TelefoonMobiel> 
     <TelefoonDirect>string</TelefoonDirect> 
     <Emailadres>string</Emailadres> 
     <Opmerking>string</Opmerking> 
     <ExternId>string</ExternId> 
     <ExternSource>string</ExternSource> 
     </aContactPersoon> 
     <theDeelnemers> 
     <WebAanvraagPersoon> 
      <Achternaam>string</Achternaam> 
      <Voorletters>string</Voorletters> 
      <Tussenvoegsels>string</Tussenvoegsels> 
      <Voornaam>string</Voornaam> 
      <Titel>string</Titel> 
      <Geslacht>string</Geslacht> 
      <Adres>string</Adres> 
      <Postcode>string</Postcode> 
      <Plaats>string</Plaats> 
      <Land>string</Land> 
      <Afdeling>string</Afdeling> 
      <Functie>string</Functie> 
      <Faxnummer>string</Faxnummer> 
      <GeboorteDatum>string</GeboorteDatum> 
      <GeboortePlaats>string</GeboortePlaats> 
      <TelefoonMobiel>string</TelefoonMobiel> 
      <TelefoonDirect>string</TelefoonDirect> 
      <Emailadres>string</Emailadres> 
      <Opmerking>string</Opmerking> 
      <ExternId>string</ExternId> 
      <ExternSource>string</ExternSource> 
     </WebAanvraagPersoon> 
     <WebAanvraagPersoon> 
      <Achternaam>string</Achternaam> 
      <Voorletters>string</Voorletters> 
      <Tussenvoegsels>string</Tussenvoegsels> 
      <Voornaam>string</Voornaam> 
      <Titel>string</Titel> 
      <Geslacht>string</Geslacht> 
      <Adres>string</Adres> 
      <Postcode>string</Postcode> 
      <Plaats>string</Plaats> 
      <Land>string</Land> 
      <Afdeling>string</Afdeling> 
      <Functie>string</Functie> 
      <Faxnummer>string</Faxnummer> 
      <GeboorteDatum>string</GeboorteDatum> 
      <GeboortePlaats>string</GeboortePlaats> 
      <TelefoonMobiel>string</TelefoonMobiel> 
      <TelefoonDirect>string</TelefoonDirect> 
      <Emailadres>string</Emailadres> 
      <Opmerking>string</Opmerking> 
      <ExternId>string</ExternId> 
      <ExternSource>string</ExternSource> 
     </WebAanvraagPersoon> 
     </theDeelnemers> 
    </ToevoegenWebAanvraag> 
    </soap:Body> 
</soap:Envelope> 
HTTP/1.1 200 OK 
Content-Type: text/xml; charset=utf-8 
Content-Length: length 

<?xml version="1.0" encoding="utf-8"?> 
<soap:Envelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/"> 
    <soap:Body> 
    <ToevoegenWebAanvraagResponse xmlns="http://coachview.net/webservices"> 
     <ToevoegenWebAanvraagResult>string</ToevoegenWebAanvraagResult> 
    </ToevoegenWebAanvraagResponse> 
    </soap:Body> 
</soap:Envelope> 

Answer 1

Ajouter un WebReference à l'endroit où le .asmx est en cours d'exécution. Utilisez la référence sur l'emplacement où vous voulez faire quelque chose avec.

Dans mon cas, mon code ressemble à ça:

//On top of my class 
Imports net.coachview.training 

//On the location where i needed it 
Dim aWebserviceAuthentication As New WebserviceAuthentication 
     aWebserviceAuthentication.Key = "xxx" 
Dim aCoachviewnetWebservices As New CoachviewnetWebservices() 

      inschrijvingNummer = aCoachviewnetWebservices.ToevoegenWebAanvraag(aWebserviceAuthentication, aWebAanvraag, aanvraagBedrijf, contactPersoon, colDeelnemers) 

Où tous les types sont juste utilisés à partir de la référence webservice.