Pessoal to a um tempao tentando descobrir pq esse comando na da certo... esse codigo da certo em vb6, so ki no vb 2008 nao funciona. Alguem pode me ajudar?
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim objcnpj As Object
Dim objcaptcha As Object
Dim objConsultar As Object
'Desabilita o abrir do Captcha para não caregar novamente quando o site for reaberto
'CaptchaRefresh = False
'Busca os TextBox do site do SEFAZ
BuscaSite(objcnpj, objcaptcha, objConsultar)
'Peenche os campos do site com as informações da tela
objcnpj.value = Txt_CNPJ.Text
If Txt_Captcha.Text = "" Then
MsgBox("Digite os caracers da imagem")
Exit Sub
End If
objcaptcha.Value = Txt_Captcha.Text
objConsultar.Click()
End Sub
Public Sub BuscaSite(ByVal pobjCNPJ As Object, ByVal pobjCaptcha As Object, ByVal pobjConsultar As Object)
'pagina
Dim Document As Object
Dim forms As Object
Dim item As Object
'texto
Dim CNPJ As Object
Dim Captcha As Object
'Botao
Dim Consultar As Object
'----------BUSCA OS TEXTBOX DO CNPJ E DO CAPTCHA----------
'Busca o Documento da pagina
While (Document Is Nothing)
Document = WebBrowser1.Document.ActiveElement
End While
'Busca os forms da pagina
While (forms Is Nothing)
forms = Document
End While
'Busca o Item do form
While (item Is Nothing)
item = forms.item
End While
'Busca o TextBox do CNPJ
While (CNPJ Is Nothing)
CNPJ = item.item(2)
End While
'Busca o TextBox do Captcha
While (Captcha Is Nothing)
Captcha = item.item(3)
End While
'Busca o Botao do Consultar
While (Consultar Is Nothing)
Consultar = item.item(TextBox1)
End While
pobjCNPJ = CNPJ
pobjCaptcha = Captcha
pobjConsultar = Consultar
Exit Sub
End Sub
CONSULTA CNPJ NA RECEITA FEDERAL
A vantagem de ser inteligente é que podemos fingir que somos imbecis enquanto ao contrario é completamente impossivel