none
no se puede crear el componente activex vb net createobject RRS feed

  • Pregunta

  • Buenas

    Estoy desarrollando un programa con Visual studio 2017

    Estoy tratando de que cuando pongo el numero de cedula del cliente, de una vez me identifique su nombre conectandome con el trubunal de elecciones para que me tiene el nombre a como esta en el registro!

    Tengo el siguiente codigo:

      IE = CreateObject("InternetExplorer.Application") ----AQUI ES DONDE ME DA UNA EXCEPCION

            wait(1)
                IE.Navigate("https://www.consulta.tse.go.cr/consulta_persona/consulta_cedula.aspx")
                wait(1)
                Do Until IE.ReadyState = WebBrowserReadyState.Complete
                    Application.DoEvents()

                Loop

                wait(1)
                IE.Document.all.Item("txtcedula").Value = txtNIT.Text


                wait(1)
                consulta = IE.Document.getElementbyId("Button1")
                wait(1)
                consulta.Click()
                wait(1)
                Do Until IE.ReadyState = WebBrowserReadyState.Complete
                    Application.DoEvents()

                Loop
                wait(3)
                Nombre = IE.Document.getElementbyId("lblnombrecompleto")

                txtNombreCompleto.Text = DirectCast(Nombre, mshtml.HTMLSpanElementClass).IHTMLElement_innerText

    LA EXCEPCION LO QUE ME DICE ES NO SE PUEDE CREAR EL COMPONENTE ActiveX

    Alguien me puede ayudar??

    Muchas Gracias

    martes, 17 de diciembre de 2019 20:22

Todas las respuestas

  • Prueba de este modo

    Dim IE As Object = CreateObject("InternetExplorer.Application")

    y si no te funciona simplemente importa la libreria Microsoft.Internet.Controls y despues usas la clase InternetExplorer

    Imports SHDocVw
    
    Public Class Form1
    
        Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    
            Dim IE As New InternetExplorer
    
        End Sub
    End Class
    igual no te compliques la vida y simplemente usa el control WebBrowser



    • Editado DANTE-3D miércoles, 18 de diciembre de 2019 3:22
    • Propuesto como respuesta Pablo Rubio miércoles, 18 de diciembre de 2019 17:05
    miércoles, 18 de diciembre de 2019 3:17