servis adı ve XML yapısı değişiyor tabiki ama mantık budur.
Bu arada direk Gib yazmanıza izin veriyormu bilmiyorum?? özel entegratörler bu yöntemi kullanarak verileri alıp işliyorlar Gib'e.
Kod:
Private Sub Komut2_Click()
Dim XMLHttp As New MSXML2.XMLHttp
Dim s As String
Dim url As String
Dim user As String
Dim pass As String
Dim servis As String
url = "https://servis.turkiye.gov.tr/services/g2g/kdgm/test/uetdsesya?wsdl"
user = "999999"
pass = "999999testtest"
servis = "aracMuayeneSorgula"
s = ""
s = s & "<soapenv:Envelope xmlns:soapenv=""http://schemas.xmlsoap.org/soap/envelope/"" xmlns:uet=""http://uetds.unetws.udhb.gov.tr/"">"
s = s & " <soapenv:Header/>"
s = s & " <soapenv:Body>"
s = s & " <uet:" & servis & ">"
s = s & " <wsuser>"
s = s & " <kullaniciAdi>" & user & "</kullaniciAdi>"
s = s & " <sifre>" & pass & "</sifre>"
s = s & " </wsuser>"
s = s & " <plaka>34TEST123</plaka>"
s = s & " </uet:" & servis & ">"
s = s & " </soapenv:Body>"
s = s & "</soapenv:Envelope>"
XMLHttp.Open "POST", url, False
XMLHttp.Send s
MsgBox XMLHttp.responseText
Debug.Print XMLHttp.responseText
End Sub