FAQ ASP.NET/VB.NET

					
Microsoft.Web.Services2.Diagnostics.EventLog.WriteLine("votre texte")

				

					
<WebMethod> _
Public Function GetClasse() As MaClasse 
End Function

				

					
<WebMethod()> _
<System.Xml.Serialization.XmlInclude(GetType(String))> _
Public Sub SetObjet(ByVal maVariable As String)
End Sub

				

					
<WebMethod(Description = "Comment lever une exception personnalisée dans un service Web ?")>_
Public Function Diviser(ByVal a As Integer, ByVal b As Integer) As Integer
	Try
		Return a / b
	Catch ex As DivideByZeroException
		Throw New System.Web.Services.Protocols.SoapException("La division par 0 est impossible", SoapException.ClientFaultCode, Context.Request.Url.AbsoluteUri, ex)
	End Try
End Function

				

					
%windir%\microsoft.net\framework\v1.1.4322\aspnet_regiis -i

				

					
<system.web>
	<webServices>
		<protocols>
			<remove name="HttpSoap12"/>
		</protocols>
	</webServices>
</system.web>

				

					
Dim service As Service1 = New Service1()
service.Url = ConfigurationManager.AppSettings["Service1Url"]

				

					<SoapDocumentMethod(OneWay:=True), _
WebMethod(Description:="Comment appeler une méthode Web sans attendre une réponse du serveur ?")> _
Public Sub SaveToLog(ByVal logEntry As String)
	Dim FaqLog As EventLog = New EventLog("OneWayAttributeDemo")
	FaqLog.Source = "OneWayAttributeDemo"
	FaqLog.WriteEntry(logEntry, EventLogEntryType.Information)
End Sub