Creare un banale Web Service con vb.net

Da Visual Web Developer aggiungere un nuovo elemento di tipo Servizio Web.

Un esempio elementare di codice per rendere disponibile tramite web services una stringa di testo è questo:

Imports System.Web
Imports System.Web.Services
Imports System.Web.Services.Protocols


'<'webservice(namespace:="http://indirizzodelserver/")> _
'<'webservicebinding(conformsto:=wsiprofiles.basicprofile1_1)> _
'<'global.microsoft.visualbasic.compilerservices.designergenerated()> _
Public Class servizioweb
Inherits System.Web.Services.WebService

'<'webmethod()> _
Public Function testoweb() As String
Return "Ciao WEB"
End Function

End Class



Pubblicando su di un sito IIS il file .asmx di cui sopra si renderà disponibile la stringa testoweb.

Per richiamarla, ad esempio tramite una applicazione Visual Basic, da un altro server è sufficiente inserire nel programma un riferimento al servizio come nell'immagine qui sotto digitando http://indirizzoserver/nomedelwebservice.asmx


E poi la si può utilizzare ad esempio così:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim MyService2 As shw.hwSoapClient = New shw.hwSoapClient
Dim servizioweb As servizioweb.serviziowebSoapClient = New servizioweb.serviziowebSoapClient

TextBox2.Text = servizioweb.testoweb

End Sub