rsss pow nao entendi oque vc escreveu camarada Alfterra....hehehehe

Entao, quando tava desenvolvendo aoinda, deixei um tópico oferecendo e ninguem respondeu.... entao..............

 

olha o topico ai http://www.vbweb.com.br/forum_resp.asp?Codigo=219116

Poxa que falta de interesse da galera....isso aew é util pra caramba , mas esse link que vc mandou ta ruim tbm

Eu devo ser muito cabeça dura mesmo....

Aqui não ta funfando não.

Korn, deve ser o seu micro tanto aki no trampo quanto lá em casa abre todos os links numa boa...

 

Antonio Carlos (nome do meu irmao mais novo hehhehe) o q vc nao ta conseguindo fazer? talvez possa ajudar.......

 

 

Não funfa Alfterra

Abro o navegador:

Set CadEmp.TabStrip1.SelectedItem = TabStrip1.Tabs(3)
WebBrowser1.Navigate ("https://www8.receita.fazenda.gov.br/SimplesNacional/controleacesso/autentica.aspx?id=5")

 

Depois:

Private Sub Timer1_Timer()

If WebBrowser1.Busy = False Then
   
   WebBrowser1.Document.All.Item("txtCNPJ").Value = Tabela("Cnpj")
   WebBrowser1.Document.All.Item("txtCPF").Value = Tabela("cpf")
   WebBrowser1.Document.All.Item("txtCodAcesso").Value = Tabela("Codigo")

 

Timer1.Enabled = False
   
 End If

End Sub

Abre a pagina mas não implementa as informações nos campos da pagina.