XML - Problemas con XML

Imports System.IO

Imports System.Text

Imports mshtml

Module HTMLDataToFile

    Sub Main()

        ' Cargar la página HTML en un objeto WebBrowser '

        Dim webBrowser As New WebBrowser()

        webBrowser.Navigate("ruta/a/tu/pagina.html")

        ' Esperar hasta que la página se haya cargado completamente '

        AddHandler webBrowser.DocumentCompleted, Sub(sender As Object, e As WebBrowserDocumentCompletedEventArgs)

                                                     ' Obtener el contenido HTML de la página '

                                                     Dim htmlDocument As HTMLDocument = CType(webBrowser.Document.DomDocument, HTMLDocument)

                                                     Dim htmlContent As String = htmlDocument.documentElement.outerHTML

                                                     ' Extraer los datos que necesitas del contenido HTML '

                                                     Dim data As String = ExtractDataFromHTML(htmlContent)

                                                     ' Guardar los datos en un archivo de texto '

                                                     SaveDataToFile(data, "ruta/al/archivo.txt")

                                                     Console.WriteLine("Datos guardados correctamente.")

                                                 End Sub

        ' Esperar a que la aplicación finalice '

        Application.Run()

    End Sub

    Function ExtractDataFromHTML(htmlContent As String) As String

        ' Implementa el código necesario para extraer los datos deseados del contenido HTML '

        ' Puedes utilizar técnicas como búsqueda de elementos por ID o clase, manipulación del DOM, etc. '

        ' Retorna los datos extraídos en un formato de texto '

        Return "Datos extraídos del HTML"

    End Function

    Sub SaveDataToFile(data As String, filePath As String)

        ' Guarda los datos en un archivo de texto '

        File.WriteAllText(filePath, data, Encoding.UTF8)

    End Sub

End Module

Imports System.IO

Imports System.Net

Imports System.Text

Module SendXMLRequest

    Sub Main()

        ' Crear una solicitud HTTP POST '

        Dim request As HttpWebRequest = CType(WebRequest.Create("URL_del_servicio"), HttpWebRequest)

        request.Method = "POST"

        request.ContentType = "application/xml"

        ' Definir el contenido XML con parámetros personalizados '

        Dim xmlContent As String = "<request>"

        xmlContent += "<param1>valor1</param1>"

        xmlContent += "<param2>valor2</param2>"

        xmlContent += "</request>"

        ' Convertir el contenido XML en bytes '

        Dim xmlBytes As Byte() = Encoding.UTF8.GetBytes(xmlContent)

        ' Establecer la longitud del contenido y escribirlo en la solicitud '

        request.ContentLength = xmlBytes.Length

        Using requestStream As Stream = request.GetRequestStream()

            requestStream.Write(xmlBytes, 0, xmlBytes.Length)

        End Using

        ' Obtener la respuesta del servicio '

        Using response As HttpWebResponse = CType(request.GetResponse(), HttpWebResponse)

            Using responseStream As Stream = response.GetResponseStream()

                Using reader As New StreamReader(responseStream)

                    Dim responseContent As String = reader.ReadToEnd()

                    Console.WriteLine(responseContent)

                End Using

            End Using

        End Using

    End Sub

End Module