Jump to content
Fórum Script Brasil

Pimpao

Membros
  • Posts

    19
  • Joined

  • Last visited

About Pimpao

  • Birthday 08/07/1990

Contatos

  • Website URL
    http://
  • ICQ
    0

Pimpao's Achievements

0

Reputation

  1. Adicione um TLabel no local que você deseja que apareça o resultado. Mude as linhas: showmessage(); por: label1.caption := 'sua mensagem'; falou
  2. não é ali naquele espaçamento que você deve adicionar, dê dois cliques ali e digite no source ^^
  3. 1. Não precisa ser necessariamente esse arquivo, pode ser outro qualquer. Abrindo o arquivo (Adicione ShellApi na clausula uses): Coloque um novo botao, como você mesmo falou, e coloque no OnClick: ShellExecute(handle,'open','c:\temp.txt', '','',SW_SHOWNORMAL); 2. Na ultima linha do OnClick do botao coloque: Edit1.Clear; Edit1.SetFocus; 3. No evento OnKeyPress do Edit1: if key=#13 then button1.click;
  4. Pimpao

    Acessando email

    Sim é o nativo do delphi, mas eu já consegui sair dessa parte, eu consegui receber a autenticacao do google, e to procurando saber como faco pra usar ela pra ver a caixa de entrada do Gmail... To tentando assim: auth := http.Post('https://www.google.com/accounts/ClientLogin',variaveis); auth := Copy(auth,Pos('Auth=',auth)+5,length(auth)); Memo1.Lines.Add(http.Get('http://mail.google.com/mail/?auth='+auth)); Mas ele da um erro muito louco olha: Vlw
  5. Pimpao

    Acessando email

    Bom, editando aqui meu post, parece que eu to quase lá! ta me ajudando mt Jhonas! Tipo, eu descobri q o Google tem um servico pra conectar via softwares o link: http://code.google.com/intl/pt-BR/apis/acc...tml#ClientLogin E me retorna corretamente a resposta, dessa maneira: (como mostra o exemplo no google) SID=DQAAAGgA...7Zg8CTN LSID=DQAAAGsA...lk8BBbG Auth=DQAAAGgA...dk3fA5N Mas e agora pra eu logar no email? to meio confuso o.o
  6. Falta pouco ^^ Preste atencao na linha: procedure TForm1.FormCreate(Sender: TObject); Significa que está no evento OnFormCreate, será executado quando o form for criado. Agora, faça o seguinte: abra novamente o delphi, vá em File > New Application, coloque um TEdit no form e um TButton, dê dois cliques no TButton, apague a segunda linha ("begin"), e coloque este código: var //quando se tem variaveis, elas ficam antes do primeiro begin txt: TStringList; i: integer; begin txt := TStringList.Create; txt.LoadFromFile('c:\temp.txt'); //abre o arquivo for i:=0 to txt.Count -1 do if Pos(edit1.Text,txt[i])>0 then //edit1.text é a palavra que você procura begin showmessage('existe palavra'); exit; end; txt.Add(edit1.Text); //adiciona palavra txt.SaveToFile('c:\temp.txt'); //salva arquivo showmessage('palavra adicionada'); txt.Free;
  7. Pimpao

    Acessando email

    Jhonas Eu olhei tópico a tópico dessa busca sua e não achei nada a respeito, eu já tinha procurado bem antes de postar tambem... é que eu realmente não acho NADA a respeito do que eu quero... só acho mensagens com assunto de Enviar Email (SMTP) e Receber (POP3), sobre o HTTP que eu queria não acho nada... Obrigado desde já...
  8. Ficaria assim: procedure TForm1.FormCreate(Sender: TObject); var //quando se tem variaveis, elas ficam antes do primeiro begin txt: TStringList; i: integer; begin txt := TStringList.Create; txt.LoadFromFile('c:\temp.txt'); //abre o arquivo for i:=0 to txt.Count -1 do if Pos(edit1.Text,txt[i])>0 then //edit1.text é a palavra que você procura begin showmessage('existe palavra'); exit; end; txt.Add(edit1.Text); //adiciona palavra txt.SaveToFile('c:\temp.txt'); //salva arquivo showmessage('palavra adicionada'); txt.Free; end; Você está fazendo no OnCreate do form, se você precisa de um campo de busca seria interessante fazer isso num OnClick de um botao... Falou
  9. Poste seu código pra facilitar ^^
  10. dei uma pesquisada, acho que é isso q você precisa: var txt: TStringList; i: integer; begin txt := TStringList.Create; txt.LoadFromFile('c:\temp.txt'); //abre o arquivo for i:=0 to txt.Count -1 do if Pos(edit1.Text,txt[i])>0 then //edit1.text é a palavra que você procura begin showmessage('existe palavra'); exit; end; txt.Add(edit1.Text); //adiciona palavra txt.SaveToFile('c:\temp.txt'); //salva arquivo showmessage('palavra adicionada'); txt.Free; end; é só adaptar para sua necessidade falou espero que te ajude ^^
  11. Se for aqueles jogos online (mmorpg) normalmente eles tem Anti-Bot, então um simples autoclick desses não irá funcionar mesmo... teria q fazer um sistema pra burlar o antibot deles... isso é meio complicado pra mim ^^
  12. Fiz uns testes aqui acho que é isso que você quer: uses Windows (padrão): Mouse_event(dwFlags, dx, dy, dwData, dwExtraInfo: DWORD); Botão direito: Mouse_event(MOUSEEVENTF_RIGHTDOWN, 0, 0, 0, 0); //clica Mouse_event(MOUSEEVENTF_RIGHTUP, 0, 0, 0, 0); //solta Botão esquerdo: Mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0); //clica Mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0); //solta Outros eventos: MOUSEEVENTF_MOVE; //mouse move MOUSEEVENTF_LEFTDOWN; //left button down MOUSEEVENTF_LEFTUP; //left button up MOUSEEVENTF_RIGHTDOWN; //right button down MOUSEEVENTF_RIGHTUP; //right button up MOUSEEVENTF_MIDDLEDOWN; //middle button down MOUSEEVENTF_MIDDLEUP; //middle button up MOUSEEVENTF_WHEEL; //wheel button rolled MOUSEEVENTF_ABSOLUTE; //absolute move
  13. Boa tarde, Bom pessoal, eu to tentando fazer um sisteminha (na veradade é mais pra aprender mesmo) simples que acessa um webemail e me retorna os "subjects" dos emails pra posteriormente baixar os anexos... eu consegui fazer usando o método POP3 (usando TIdPop3) mas eu quero tambem que dê para acessar usando o método HTTP e eu não to conseguindo (não sei nem se é possivel fazer isso pelo delphi na verdade). Um exemplo doq eu to tentando fazer é isso: http://www.mailresender.com.ar/downloads.html (podem baixar p ver como é, é bem simples n precisa nem de instalacao) esse MailResender tem 3 métodos (HTTP,POP3,IMAP). To tentando usar o TIdHTTP pra acessar usando o Post (tentando acessar Gmail) com o código abaixo: var variaveis: TStringList; ssl: TIdSSLIOHandlerSocket; http: TIdHttp; begin http := TIdHttp.Create(Self); ssl := TIdSSLIOHandlerSocket.Create(Self); variaveis := TStringList.Create; variaveis.Add('Email=MeuEmail'); variaveis.Add('Passwd=MinhaSenha'); variaveis.Add('ltmpl=default'); variaveis.Add('ltmplcache=2'); variaveis.Add('continue=http://mail.google.com/mail/?ui=html&zy=l'); variaveis.Add('service=mail'); variaveis.Add('rm=false'); variaveis.Add('ltmpl=default'); variaveis.Add('scc=1'); variaveis.Add('PersistentCookie=no'); variaveis.Add('rmShown=1'); http.IOHandler := ssl; Memo1.Clear; Memo1.Lines.Add(http.Post('https://www.google.com/accounts/ServiceLoginAuth?service=mail',variaveis)); variaveis.Free; ssl.Free; http.Free; Mas ele me retorna o html daquele "Redirecionando", não da caixa de entrada. Não sei nem se é o jeito mais facil de fazer, procurei bastante na net e não achei nada a respeito, espero q me ajudem. :D Obrigado pessoal...
  14. Micheus, Você é foda de mais cara! muito obrigado, ficou certinho, do jeito que era pra ficar! amanha eu levo na escola e publico o forum xD vlw, muito obrigado micheus e deio! vou dar uma olhada no teste de mesa vlw [PROBLEMA RESOLVIDO]
  15. @identação - ahh ok... eu ainda não vejo mta diferença de dar esses espaços... mas eu já to começando a fazer isso! vlw! @ sobre o codigo - Outra coisa, eu não consegui terminar o codigo cara =/, tipo, eu entendi oque você disse (quando o label6 está saindo do form, o label7 começa a entrar... mas eu não consegui termina =/) tem como você falar o que eu está faltando? não precisa terminar o codigo, so fala o que está faltando pra eu tenta aqui... eu to começando a mexer agora com delphi não to muito ligado nas coisas (por isso o professor está dando 2pnts a mais na media pra quem conseguir fazer...), vlw espero que me ajude! falou
×
×
  • Create New...