Sub BilgileriGetir(ide As Int)
Dim xml As String=$"<?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>
<BilgileriGetir xmlns="http://tempuri.org/">
<id>$Xml{ide}</id>
</BilgileriGetir>
</soap:Body>
</soap:Envelope>"$
Dim j As HttpJob
j.Initialize("j", Me)
j.PostString("http://192.168.1.48/WebService1.asmx", xml)
j.GetRequest.SetContentType("text/xml; charset=utf-8")
j.GetRequest.SetHeader("SOAPAction",$""http://tempuri.org/BilgileriGetir""$)
Wait For (j) JobDone(j As HttpJob)
If j.Success Then
xml_Label.Text = j.GetString
Else
MsgboxAsync(j.ErrorMessage,"")
End If
End Sub