PC Toledo

Código: Selecionar todos

#include "minigui.ch"
#include "directry.ch"
#include "Fileio.ch"
#include "xhb.ch"
**********************************************
FUNCTION Main()
   Public cUrl := "http://www8.receita.fazenda.gov.br/simplesnacional/aplicacoes/atbhe/consultaoptantes.app/consultaropcao.aspx?"
   Public cUrlC:= "http://www8.receita.fazenda.gov.br/simplesnacional/aplicacoes/atbhe/consultaoptantes.app/Captcha/Inicializa.ashx"
   Public cCaptcha, cCnpj, cStringCookie, cViewState, cEeventValidation, cHiddenField

   LOAD WINDOW F_Simples
   Captcha()
   F_Simples.Center
   F_Simples.Activate

***********************************************
Function Consulta()
	cCaptcha:= F_Simples.text_2.Value
	cCnpj   := Tira_Mascara(F_Simples.text_1.value)

	oHttp:=TipClientHttp():new( cURL )
	oHttp:open()
	cHtml := oHttp:readAll()
	oHttp:close()
	memowrit('site.txt', cHtml)
	nIni:= At('id="__VIEWSTATE" value=',  cHtml) + 24
	cHtml1:= SubStr( cHtml, nIni)
   nFim:= At(' />', cHtml1) - 1
	cViewState:= SubStr(cHtml, nIni, nFim)

	nIni1:= At('id="__EVENTVALIDATION" value="',  cHtml) + 30
	cHtml1:= SubStr( cHtml, nIni1)
   nFim1:= At(' />', cHtml1) - 1
	cEeventValidation:= SubStr(cHtml, nIni1, nFim1)

   nIni2:= At('ctl00$ContentPlaceHolderConteudo$',  cHtml) + 33
	cHtml1:= SubStr( cHtml, nIni2)
   nFim2:= At('" type="text"', cHtml1) - 1
 	cHiddenField:= SubStr(cHtml, nIni2, nFim2)

    cRet:= MicrosoftPost()
	 F_Simples.Edit_1.Value:= cRet
    Return Nil

***************************************
Function Captcha()

	oHttp:=TipClientHttp():new( cURLc )
	oHttp:open()
	cHtml := oHttp:readAll()
	oHttp:close()
	memowrit('sitec.txt', cHtml)
	nIni1:= At('"Token":',  cHtml) + 7
   nFim1:= At('","Dados"', cHtml) - nIni1
   cStringCookie:= SubStr(cHtml, nIni1, nFim1)
   nIni:= At('Dados":"',  cHtml) + 8
   nFim:= At('","ContentType"', cHtml) - nIni
   txt_file:=fcreate("captcha.png", 0)
   if (!(ferror() = 0))
      MsgInfo("Erro de criacao do arquivo TESTE.TXT ::> " + ;
      Str(ferror(), 3, 0))
      quit
   endif
   cFile:= SubStr(cHtml, nIni, nFim)
   cFile:= hb_base64Decode(cFile, "image/png")
   fwrite(txt_file, cFile)
   fclose(txt_file)
   SetProperty ('F_Simples', 'image_1', 'Picture', 'Captcha.png')
   Return Nil

***************************************
Function Tira_Mascara(arg)
Local arg1:= "", x

	For x:= 1 To Len(arg)
   	If SubStr(arg, x, 1) != "/"
   		If SubStr(arg, x, 1) != "."
   			If SubStr(arg, x, 1) != "-"
   				If SubStr(arg, x, 1) != "("
   					If SubStr(arg, x, 1) != ")"
   						If SubStr(arg, x, 1) != " "
   							arg1+= SubStr(arg, x, 1)
   						EndIf
   					EndIf
   				EndIf
   			EndIf
   		EndIf
   	EndIF
   Next x
   Return(AllTrim(arg1))

***************************************
Function TrocaUtf8(cTexto)

 cTexto := StrTran( cTexto, "/", "%2F" )
 cTexto := StrTran( cTexto, "=", "%3D" )

 Return cTexto
***************************************
Function MicrosoftPost()
   LOCAL oServer, cRetorno := "*ERRO*", cMsgErro:= ''

   cParm:= [__EVENTTARGET%3D&] + ;
           [__EVENTARGUMENT%3D&] + ;
           [__VIEWSTATE%3D] +  TrocaUtf8(cViewState) + ;
           [&__EVENTVALIDATION%3D] + TrocaUtf8(cEeventValidation) + ;
           [&ctl00%24ContentPlaceHolderConteudo%24] + cHiddenField + [%3D] + cCnpj + ;
      	  [&ctl00%24ContentPlaceHolderConteudo%24HiddenField1%2F] + cHiddenField + ;
           [&ctl00%24ContentPlaceHolderConteudo%24hddServidorCaptcha%3D] + 'pro' + ;
           [&ctl00%24ContentPlaceHolderConteudo%24txtTexto_captcha_serpro_gov_br%3D] + cCaptcha + ;
           [&ctl00%24ContentPlaceHolderConteudo%24btnConfirmar%3D] + 'Consultar'

	TRY
   	oServer:= win_OleCreateObject( "MSXML2.ServerXMLHTTP.5.0")
	CATCH
   	cMsgErro:= "Serviço não mapeado"
   	RETURN(cMsgErro)
	END
	TRY
    	oServer:Open( "POST", cUrl , .F. )
    	oServer:SetRequestHeader("Content-Type", "application/x-www-form-urlencoded")
      oServer:SetRequestHeader("Accept", "text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,*/*;q=0.8")
     	oServer:SetRequestHeader("Accept-Encoding", "gzip, deflate" )
     	oServer:SetRequestHeader("Accept-Language", "pt-BR,pt;q=0.8,en-US;q=0.5,en;q=0.3")
     	oServer:SetRequestHeader("Connection", "keep-alive")
     	oServer:SetRequestHeader("Cookie", "captcha_token=" +  cStringCookie)
     	oServer:SetRequestHeader("Host", "www8.receita.fazenda.gov.br")
//    	oServer:SetRequestHeader("Referer", "http://www8.receita.fazenda.gov.br/SimplesNacional/Aplicacoes/ATBHE/ConsultaOptantes.app/ConsultarOpcao.aspx")
     	oServer:SetRequestHeader("User-Agent", "Mozilla/5.0 (Windows NT 6.1; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/42.0.2311.152 Safari/537.36")
   CATCH
     	RETURN('Erro no open')
   END
   TRY
   //msgInfo(cUrl+cParm)
   	oServer:send(cParm)
   	oServer:WaitForResponse( 500 )
   CATCH
   	cMsgErro:= "Erro ao criar"
      RETURN(cMsgErro )
   END
   cRetorno:= (oServer:ResponseText() + cMsgErro)
	HB_MemoWrit("Reposta.txt", cRetorno, .f. )
  	RETURN(cRetorno)
/*
parte do site pelo firebug
Accept
text/html,application/xhtml+xml,application/xml;q=0.9,* /*;q=0.8
Accept-Encoding
gzip, deflate
Accept-Language
pt-BR,pt;q=0.8,en-US;q=0.5,en;q=0.3
Connection
keep-alive
Content-Type
application/x-www-form-urlencoded
Cookie
captcha_token=45615119762207542432998174142126158180112212181911714386
Host
www8.receita.fazenda.gov.br
Referer
http://www8.receita.fazenda.gov.br/simplesnacional/aplicacoes/atbhe/consultaoptantes.app/consultaropcao
.aspx?__EVENTTARGET=&__EVENTARGUMENT=&__VIEWSTATE=%2FwEPDwUKLTI4MDEzODYyMg9kFgJmD2QWAgIDD2QWAgICD2QW
AgIDD2QWBAIBD2QWAgIDDw8WAh4RQ29udHJvbFRvVmFsaWRhdGUFEjYzNTkxMzI1NzgwNDY5MzQ4OGRkAgMPDxYCHgdWaXNpYmxl
aGQWCAITD2QWBAIDDzwrABEBARAWABYAFgBkAgcPPCsAEQEBEBYAFgAWAGQCGQ9kFgICAw88KwARAQEQFgAWABYAZAIfD2QWAgID
DzwrABEBARAWABYAFgBkAiUPZBYCAgMPPCsAEQEBEBYAFgAWAGQYBQU7Y3RsMDAkQ29udGVudFBsYWNlSG9sZGVyQ29udGV1ZG8k
Z3JkUGVyaW9kb3NBbnRlcmlvcmVzU0lNRUkPZ2QFOmN0bDAwJENvbnRlbnRQbGFjZUhvbGRlckNvbnRldWRvJGdyZEFnZW5kYW1l
bnRvc09wY2FvU2luYWMPZ2QFOWN0bDAwJENvbnRlbnRQbGFjZUhvbGRlckNvbnRldWRvJEdyaWRWaWV3T3Bjb2VzQW50ZXJpb3Jl
cw9nZAUyY3RsMDAkQ29udGVudFBsYWNlSG9sZGVyQ29udGV1ZG8kZ3JkRXZlbnRvc0Z1dHVyb3MPZ2QFN2N0bDAwJENvbnRlbnRQ
bGFjZUhvbGRlckNvbnRldWRvJGdyZEV2ZW50b3NGdXR1cm9zU2ltZWkPZ2T920T0GuCQkl8xdxBEk0zVBiLNY06JbOckBYKTOSNRsQ
%3D%3D&__EVENTVALIDATION=%2FwEWBgLc6fWoAgL89J3qBALm7oLoAQK03OyQCwKI9eioCgLDwpOgAaQZXvAsQIyYcxZ4x%2FcSIf5qFytGdIkWWT
%2BCwr38M2bm&ctl00%24ContentPlaceHolderConteudo%24635913257804693488=02351488000127&ctl00%24ContentPlaceHolderConteudo
%24HiddenField1=635913257804693488&ctl00%24ContentPlaceHolderConteudo%24hddServidorCaptcha=pro&ctl00
%24ContentPlaceHolderConteudo%24txtTexto_captcha_serpro_gov_br=uztgyg&ctl00%24ContentPlaceHolderConteudo
%24btnConfirmar=Consultar
User-Agent
Mozilla/5.0 (Windows NT 10.0; rv:44.0) Gecko/20100101 Firefox/44.0

RETURN( NIL ) */

Código: Selecionar todos

*HMGS-MINIGUI-IDE Two-Way Form Designer Generated Code
*OPEN SOURCE PROJECT 2005-2015 Walter Formigoni http://sourceforge.net/projects/hmgs-minigui/

DEFINE WINDOW TEMPLATE AT 198 , 274 WIDTH 597 HEIGHT 300 TITLE 'Consulta Optante do Simples' MAIN

     DEFINE LABEL Label_1
            ROW    10
            COL    30
            WIDTH  40
            HEIGHT 15
            VALUE "CNPJ"
     END LABEL

     DEFINE TEXTBOX Text_1
            ROW    30
            COL    30
            WIDTH  160
            HEIGHT 30
            FONTNAME 'Arial'
            FONTSIZE 12
            INPUTMASK "99.999.999/9999-99"
     END TEXTBOX

     DEFINE LABEL Label_2
            ROW    10
            COL    200
            WIDTH  55
            HEIGHT 15
            VALUE "Captcha"
     END LABEL

     DEFINE TEXTBOX Text_2
            ROW    30
            COL    200
            WIDTH  120
            HEIGHT 30
            FONTNAME 'Arial'
            FONTSIZE 12
            MAXLENGTH 6
     END TEXTBOX

     DEFINE IMAGE Image_1
            ROW    30
            COL    330
            WIDTH  180
            HEIGHT 50
     END IMAGE

     DEFINE EDITBOX Edit_1
            ROW    100
            COL    20
            WIDTH  550
            HEIGHT 140
            VALUE ''
            FONTNAME 'Arial'
            MAXLENGTH  NIL
     END EDITBOX

     DEFINE BUTTON Button_1
            ROW    70
            COL    160
            WIDTH  100
            HEIGHT 28
            CAPTION "Consultar"
            FONTNAME 'Arial'
            ACTION { || Consulta()}
     END BUTTON

END WINDOW