Jump to content

Marcos

Membros
  • Content count

    36
  • Joined

  • Last visited

  • Days Won

    1

Marcos last won the day on October 19 2017

Marcos had the most liked content!

Community Reputation

1 Neutro

About Marcos

  • Rank
    Membro

Profile Information

  • Location
    São Paulo
  1. Navegador Chrome, firefox e Edge

    Mais ele não abre o chrome na GUI, ele apenas abre o próprio chrome. É isso mesmo?
  2. Olá pessoal, O codigo abaixo #include <IE.au3> #include <GUIConstantsEx.au3> #include <WindowsConstants.au3> #Region ### START Koda GUI section ### Form=D:\Clientes\autoit\gmail\bowser_gmail.kxf $inicio = GUICreate("www.marketing.br.com - gmail", 1009, 763, 0, 0) $Navegador = ObjCreate("Shell.Explorer.2") ; Aki Ele Cria O Objeto O Ie Q É O Shell.Explorer.2 GUISetFont(12, 400, 0, "Arial") $Tamanho_Navegador = GUICtrlCreateObj($Navegador, 8, 55, 993, 700) GUICtrlSetData(-1, "browser") $txt_assunto = GUICtrlCreateLabel("Assunto:", 10, 16, 63, 24) Local $input_assunto = GUICtrlCreateInput("", 80, 16, 250, 28) $invalidos = GUICtrlCreateButton("E-mails Inválidos", 740, 16, 135, 30) $comecar = GUICtrlCreateButton("Enviar E-mails", 880, 16, 125, 30) GUISetState(@SW_SHOW) _IENavigate($Navegador, 'https://google.com', 0) #EndRegion ### END Koda GUI section ### While 1 $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE Exit EndSwitch WEnd só abre o IE e para abrir o Chrome, firefox ou Edge e não sei como fazer isso, tem como??
  3. Socket caindo

    vou da uma olhada
  4. Socket caindo

    Olá Galera, Fiz um server socket em PHP e o cliente em Autoit funciona perfeitamente porém depois de algum tempo parado o cliente autoit para de funcionar ou seja o script continua rodando porém perde a conexão com o socket server #include <GUIConstants.au3> #Include <JSMN.au3> #include <ImageSearch.au3> #AutoIt3Wrapper_UseX64=n Example() Func Example() TCPStartup() OnAutoItExitRegister("OnAutoItExit") Local $sIPAddress = "127.0.0.1" ; This IP Address only works for testing on your own computer. Local $iPort = 8080 ; Port used for the connection. Opt("TCPTimeout",2000) Global $x1=0,$y1=0 Local $iSocket = TCPConnect($sIPAddress, $iPort) If $iSocket = -1 Then MsgBox(0, "Erro", "Erro ao Conectar") TCPCloseSocket($iSocket) EndIf Local $bData = Binary("") Local $iDataLen = 0 Local $bEOFReached = False Do $bData = TCPRecv($iSocket, 10000) $iDataLen = BinaryLen($bData) ; If nothing is received, retry for the incoming data. If $iDataLen = 0 Then ContinueLoop MsgBox(0, "Erro", "conectado") $nMsg = GUIGetMsg() Switch $nMsg Case $GUI_EVENT_CLOSE OnAutoItExit() Exit Case HotKeySet("^p","parar") EndSwitch Until $bEOFReached ; Close the socket. TCPCloseSocket($iSocket) EndFunc ;==>Example Func OnAutoItExit() TCPShutdown() ; Close the TCP service. EndFunc ;==>OnAutoItExit Func parar() TCPShutdown() Exit EndFunc Se alguém souber a causa me ajude. Obrigado!
  5. Server Socket PHP e Client Autoit

    Pessoal consegui resolver faltava TCPStartup() fica a dica Valeu!
  6. Pessoal eu to fazendo um tste aqui de um servidor socket em PHP e um cliente com Autoit e nao to conseguindo acessar, to usando o exemplo do Help do autoit o server socket em PHP ta funcionando normalmente pq ja acesso ele pelo cliente php normalmente OBS:O server php ta em uma maquina Linux virtualizada com IP 192.168.0.40 e o script cliente autoit ta na maquina física e sempre da o erro: Cloud not connect, Error code: 10060 alguém ai tem alguma ideia do que ta acontecendo?? #include <MsgBoxConstants.au3> ; I am the client, start me after the server! (Start first the TCPAccept example script). Example() Func Example() TCPStartup() ; Start the TCP service. ; Register OnAutoItExit to be called when the script is closed. OnAutoItExitRegister("OnAutoItExit") ; Assign Local variables the loopback IP Address and the Port. Local $sIPAddress = "192.168.0.40" ; This IP Address only works for testing on your own computer. Local $iPort = 65003 ; Port used for the connection. ; Assign a Local variable the socket and connect to a Listening socket with the IP Address and Port specified. Local $iSocket = TCPConnect($sIPAddress, $iPort) ; If an error occurred display the error code and return False. If @error Then ; The server is probably offline/port is not opened on the server. Local $iError = @error MsgBox(BitOR($MB_SYSTEMMODAL, $MB_ICONHAND), "", "Could not connect, Error code: " & $iError) Return False Else MsgBox($MB_SYSTEMMODAL, "", "Connection successful") EndIf ; Close the socket. TCPCloseSocket($iSocket) EndFunc ;==>Example Func OnAutoItExit() TCPShutdown() ; Close the TCP service. EndFunc ;==>OnAutoItExit
  7. Tenho interesse no código, por favor posta pra mim
  8. Extrator de email Google

    tentei usar o ControlSend mais nao vai nem a pau Example() Func Example() ; Run Notepad ; Wait 10 seconds for the Notepad window to appear. Local $hWnd = WinWait("[CLASS:Chrome_WidgetWin_1]", "", 10) ; Wait for 2 seconds. Sleep(2000) ; Send a string of text to the edit control of Notepad. The handle returned by WinWait is used for the "title" parameter of ControlSend. ControlSend($hWnd, "", "Chrome_RenderWidgetHostHWND", "This is some text") EndFunc ;==>Example Desculpe pq ainda to estudando
  9. Extrator de email Google

    Sim, eu já ví programas na internet que faz isso e é bem barato porém eu gostaria de aprender a fazer, seria mais para aprendizagem mesmo, eu sei fazer com PHP porém quero aprender mais Autoit Outra coisa é para extrair endereço de emails mesmo na internet tipo no google, sites, facebook e etc a expressão regular eu ja tenho que fiz no PHP acredito que seja a mesma coisa porém não sei como navegar no google pelo autoit
  10. Olá Galera, to precisando criar um extrator de email para minha empresa e pensei em criar em autoit vou começar a desenvolver e gostaria de saber se alguém tem uma dica como eu to pensando em fazer: vou fazer a pesquisa no google por alguma palavra chave e armazenar os resultados da pesquisa em seguida irei entrar em cada link e extrair os emails de cada pagina alguém tem alguma ideia ai??
  11. WhatsApp Web

    Opa vou da uma olhada nele obrigado
  12. Binario de Imagem

    Realmente o FileInstall() faz o que eu queria eu apenas não tinha entendido
  13. WhatsApp Web

    Já tinha visto esse porém tb não funciona
  14. WhatsApp Web

    Sim, eu to querendo o Whatsapp mesmo
  15. WhatsApp Web

    ja procurei uma solução mais até agora não encontrei
×