Boa tarde pessoal, preciso consumir um WebService com soap em VB.Net, preciso passar por parâmetro login e senha, fiz até agora o que segue, mas não consigo sair do lugar. Peço por gentileza se alguém pode me ajudar com isso.
O WebService está em ISO-8859-1 e preciso converter em UTF-8 (também não estou conseguindo)
O webservice é: http://homologcra.protesto.com.br/cra/webservice/e-formulario.php?wsdl
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim Formulario As New Formulario.serverFormulario
Dim WS = New ServiceReference1.serverFormularioPortTypeClient
Dim Credencial As New NetworkCredential("dist.26902", "teste")
Dim Resposta As String
Dim encoder As System.Text.Encoding = System.Text.Encoding.UTF8
Dim bytes As Byte() = encoder.GetBytes(txtPedido.Text)
Dim decoded As String = encoder.GetString(bytes)
Dim Converter As Byte() = Encoding.Convert(Encoding.UTF8, Encoding.GetEncoding("ISO-8859-1"), bytes)
Dim cUri = New Uri(Formulario.Url)
Dim req As HttpWebRequest = HttpWebRequest.Create(cUri)
Dim auth As String = "Basic " & Convert.ToBase64String(System.Text.Encoding.Default.GetBytes("dist.26902:teste"))
req.PreAuthenticate = True
req.Headers.Add("Authorization", auth)
Dim resp As WebResponse = req.GetResponse
Dim Converter1 As Byte() = Encoding.Convert(Encoding.GetEncoding("ISO-8859-1"), Encoding.UTF8, encoder.GetBytes(WS.Consultar(Convert.ToBase64String(Converter))))
Resposta = Convert.ToBase64String(Converter1)
End Sub
Obrigado
Rodrigo
