Visual Basic.NET - No se puede obtener la propiedad "CreateElement" de referencia nula o sin definir

 
Vista:
sin imagen de perfil
Val: 2
Ha disminuido su posición en 21 puestos en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

No se puede obtener la propiedad "CreateElement" de referencia nula o sin definir

Publicado por Mina (3 intervenciones) el 30/04/2020 19:04:59
Buen día, estamos haciendo una descarga masiva del SAT desde vb.net pero al iniciar sesión manda el siguiente error, adjunto código he imágenes de los errores.
aquí parte de mi código donde inicio sesión.

Gracias.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
Public Sub New()
       InitializeComponent()
       _wbsat.Navigate("https://cfdiau.sat.gob.mx/nidp/app/login?id=SATUPCFDiCon&sid=0&option=credential&sid=0")
        AddHandler Me._wbsat.DocumentCompleted, New WebBrowserDocumentCompletedEventHandler(AddressOf Me.wbsat_DocumentCompleted)
       'Me.InitControls()
End Sub
 
 
 
 
 Private Sub Authenticate()
        Try
            Dim uri As System.Uri = New System.Uri(String.Format("https://cfdiau.sat.gob.mx/nidp/app/login?id=SATUPCFDiCon&sid=0&option=credential&sid=0&Ecom_User_ID={0}	    &Ecom_Password={1}&userCaptcha={2}", Me.TxRfc.Text.Trim.ToUpper(), Me.TxContraseña.Text.Trim(), Me.Txcaptcha.Text.Trim()))
            'MsgBox(String.Format("Iniciando sesion del usuario {0}.", Me.TxRfc.Text.Trim.ToUpper()))
            Me._wbsat.Navigate(uri)
        Catch exception As System.Exception
            Throw New System.Exception(exception.Message)
        End Try
    End Sub
 
Private Sub wbsat_DocumentCompleted(sender As Object, e As WebBrowserDocumentCompletedEventArgs)
 
	If (Me._wbsat.Url = New Uri("https://cfdiau.sat.gob.mx/nidp/portal?locale=en_US") Or _
                Me._wbsat.Url = New Uri("https://cfdiau.sat.gob.mx/nidp/portal?locale=es_MX") Or _
                Me._wbsat.Url = New Uri("https://cfdiau.sat.gob.mx/nidp/portal?locale=es_ES") Or _
                 Me._wbsat.Url = New Uri("https://cfdiau.sat.gob.mx/nidp/app?sid=0")) Then
                Me.Message(String.Format("Usuario {0} Autentificado correctamente.", TxRfc.Text))
                'HabilitarDeshabilitarControles(False)
                MsgBox("BIENVENIDO!! " & TxRfc.Text) 'COMENTAR
 
                If (Me.RbRecibidos.Checked) Then 'VALIDAMOS EL TIPO DE RECIBO
                    Me._wbsat.Navigate("https://portalcfdi.facturaelectronica.sat.gob.mx/ConsultaReceptor.aspx")
                End If
                If (Me.RbEmitidos.Checked) Then
                    Me._wbsat.Navigate("https://portalcfdi.facturaelectronica.sat.gob.mx/ConsultaEmisor.aspx")
                End If
        End If
 
end sub
 
 
 
Private Sub btnDescargarSat_Click(sender As Object, e As EventArgs) Handles btnDescargarSat.Click
	Me.Authenticate()
end sub
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder