[VBS – TIP] – Consumare un Web Service da VBS
Tramite VB Scripts è anche possibile (in maniera un pochino limitata) invocare Web Services.
Nell’esempio ci connetteremo a un servizio di traduzione offerto da Altavista(http://www.altavista.com).
Questo servizio web permette, senza scrivere una riga di codice, di avere a disposizione un potente strumento di traduzione da inserire nelle vs. applicazioni.
Il servizio lo abbiamo trovato consultando un elenco pubblico di WebServices che risiede sul sito :” http://www.xmethods.net“.
Codice di implementazione della SP di Esempio :
1 2 3 4 5 6 7 8 |
Public Function Main() Dim objSOAP,Risultato; Set objSOAP=CreateObject("MSSOAP.SoapClient")<BR> sWSDLPath = "http://www.xmethods.net/sd/BabelFishService.wsdl"; objSOAP.ClientProperty("ServerHTTPRequest") = True; objSOAP.mssoapinit sWSDLPath, "BabelFish", "BabelFishPort"; stringa = InputBox("Inserire la frase"); Risultato = objSOAP.babelfish("en_it",stringa)<BR> MsgBox(Risultato) End Function Main() |