CADASTRO
Boa Noite estou precisando efetuar o cadastro de fornecedores e estou querendo buscar os dados do saite da receita federal
http://www.receita.fazenda.gov.br/PessoaJuridica/CNPJ/cnpjreva/Cnpjreva_Solicitacao.asp
então o que tive pensando em exportar os dados de um WebBrowser que eu coloquei em um form. entao tava pensando em fazer o seguinte:
Dim intFF As Integer
Dim strCaminho As String
Set htdDocumento = WebBrowser.Document
intFF = FreeFile
[ô]1943 strCaminho = CaminhoDaPasta & [Ô]\CadastroFornecedor.TXT[Ô]
strCaminho = [Ô]C:[Ô] & [Ô]\CadastroFornecedor.TXT[Ô]
[ô]*** DELETA O ARQUIVO TEMPORARIO
If Dir(strCaminho, vbNormal) <> [Ô][Ô] Then
Kill strCaminho
End If
[ô]*** GERA ARQUIVO TEMPORÃRIO *****************************************************************
Open strCaminho For Output As #intFF
Print #intFF, htdDocumento.documentElement.innerHTML
Close #intFF
DoEvents
Exit Sub
sendo que quando abre o arquivo texto que gera entao ele não mostra os dados
<HEAD><TITLE>Receita Federal do Brasil</TITLE>
<META name=GENERATOR content=[Ô]Microsoft FrontPage 6.0[Ô]><LINK rel=stylesheet type=text/css href=[Ô]/css/Common.css[Ô]>
<SCRIPT language=JavaScript type=text/javascript src=[Ô]/js/Principal.js[Ô]></SCRIPT>
<LINK rel=[Ô]SHORTCUT ICON[Ô] href=[Ô]/favicon.ico[Ô]></HEAD><FRAMESET frameSpacing=0 border=0 frameBorder=0 rows=100,100% width=[Ô]100%[Ô]><FRAME noResize marginHeight=0 src=[Ô]cabecalho.htm[Ô] frameBorder=0 name=top marginWidth=0 scrolling=no target=[Ô]contents[Ô]><FRAME noResize marginHeight=0 src=[Ô]cnpjreva_solicitacao2.asp[Ô] frameBorder=0 name=main marginWidth=0><NOFRAMES></NOFRAMES></FRAMESET>
sera que tem algum geito de acertar isso ou é uma proteção do site.
alguem tem algum exemplo em vb6 que possa fazer esse tipo de consulta, os aqui do site nehum funciona.
http://www.receita.fazenda.gov.br/PessoaJuridica/CNPJ/cnpjreva/Cnpjreva_Solicitacao.asp
então o que tive pensando em exportar os dados de um WebBrowser que eu coloquei em um form. entao tava pensando em fazer o seguinte:
Dim intFF As Integer
Dim strCaminho As String
Set htdDocumento = WebBrowser.Document
intFF = FreeFile
[ô]1943 strCaminho = CaminhoDaPasta & [Ô]\CadastroFornecedor.TXT[Ô]
strCaminho = [Ô]C:[Ô] & [Ô]\CadastroFornecedor.TXT[Ô]
[ô]*** DELETA O ARQUIVO TEMPORARIO
If Dir(strCaminho, vbNormal) <> [Ô][Ô] Then
Kill strCaminho
End If
[ô]*** GERA ARQUIVO TEMPORÃRIO *****************************************************************
Open strCaminho For Output As #intFF
Print #intFF, htdDocumento.documentElement.innerHTML
Close #intFF
DoEvents
Exit Sub
sendo que quando abre o arquivo texto que gera entao ele não mostra os dados
<HEAD><TITLE>Receita Federal do Brasil</TITLE>
<META name=GENERATOR content=[Ô]Microsoft FrontPage 6.0[Ô]><LINK rel=stylesheet type=text/css href=[Ô]/css/Common.css[Ô]>
<SCRIPT language=JavaScript type=text/javascript src=[Ô]/js/Principal.js[Ô]></SCRIPT>
<LINK rel=[Ô]SHORTCUT ICON[Ô] href=[Ô]/favicon.ico[Ô]></HEAD><FRAMESET frameSpacing=0 border=0 frameBorder=0 rows=100,100% width=[Ô]100%[Ô]><FRAME noResize marginHeight=0 src=[Ô]cabecalho.htm[Ô] frameBorder=0 name=top marginWidth=0 scrolling=no target=[Ô]contents[Ô]><FRAME noResize marginHeight=0 src=[Ô]cnpjreva_solicitacao2.asp[Ô] frameBorder=0 name=main marginWidth=0><NOFRAMES></NOFRAMES></FRAMESET>
sera que tem algum geito de acertar isso ou é uma proteção do site.
alguem tem algum exemplo em vb6 que possa fazer esse tipo de consulta, os aqui do site nehum funciona.
ALGUEM SABE COMO POSSO RESOLVER ISSO????
Tópico encerrado , respostas não são mais permitidas