Kali

Top resolvido !

Opa, consegui deixa o Height do Edit grande agora minha duvida é como centralizar o texto para ser digitado no meio como no skype. O meu fica assim : Gostaria de deixar assim :

Olá amigos da script brasil. Gostaria de saber como faço para por um Edit desse tamanho na minha aplicação do delphi, PS: O Edit normal quando eu almento á largura do mesmo ele volta para o normal, so cresce á altura Me ajudem obrigado .

Então pessoal , seguinte. Eu tenho um arquivo de texto na WEB até ai tudo bem, ele é um contador de visitas. ele adiciona por exemplo: Você tem o total de : 10 visitas. Você tem o total de : 30 visitas.. Ele adiciona uma linha á cada visita, enfim .. até ai tudo bem. Fiz um aplicativo em delphi no qual o meu TWebBrowser acessa o local na WEB, é pega o conteúdo é joga em um Memo. Então gostaria que á cada valor que caise no memo ele desse uma notificação no sistema, tipo á zuadinha do skype. ..

Olha eu novamente, rss . Enfim .. hojé me surgiu uma necessidade muito grande para envio de mensagens atráves do delphi para um webchat (xat.com) Como funcionaria ? - Meu webbrowser abriria o link: http://xat.com/FCGAZETADOCARTOLA - Após acessar o webbrowser em um memo eu digitaria á mensagem, está mensagem seria digitada no campo grande do webchat. - E um botão para clicar no botão de enviar que fica ao lado da mensagem. Como posso fazer isto, sendo que o webchat é feito com o adobe .. Abrçs.

Jonathan, aproveitando aqui o assunto.. Você sabe utilizar á função Recv do Winsock ? poderia me da um exemplo se o meu aplicativo receber um determinado packet ele me retorne uma mensagem ? rss . Se não for pedir de mais ..

Jhonas, no seu ponto de vista qual o metodo mais correto de se utilizar uma Thread para um anti-cheat de um jogo online? Pela classe TThread ou pelas APIs do Windows ?

Sem sucesso também jhonas, preciso resolver somente um problema no meu script que é este: if SuspendThread(hThread) > 0 then ShowMessage('Minha Thread foi suspença'); if TerminateThread(hThread, 0) then ShowMessage('Minha Thread foi finalizada.'); O meu sistema de checagens das threads, eu verifiquei o mesmo suspende á minha thread é depois exibe o resultado (Thread foi suspença) Queria apenas impedir que terçeiros pausa-sem ás. Sabe como posso fazer isto ? Abraços.

Olhei o script e não consegui achar o que eu queria :/ .

Muito obrigado novamente jhonas , rs. O problema é que, á classe TThread entrou para deprecated, estou tentando utilizar á API do Windows (CreateThread) . Eu consigo fazer o seguinte. Crio á minha Thread. Consigo suspende-lá. Consigo resumi-lá. com as funções (SuspendThread, ResumeThread) porém meu problema está sendo na checagem, rss . Você poderia me explicar como faço está checagem atráves da API CreateThread ? eu procuro na internet so acho para á classe TThread. .

Olha eu novamente, rss :) . Então, desenvolvi o seguinte script em Delphi porém não está funcionando á intenção dele é : Verificar se á minha Thread está suspença ou foi finalizada, utilizando á API CreateThread. Code: ******* Criação de um procedimento com meu nome Procedure MyName(Nome : String); begin Nome := 'David'; end; ******* Criação da minha Thread var hThread : THandle; hThdID : Cardinal; hThread := CreateThread(nil, 0, @MyName, nil, 0, hThdID); ******* Verificação das Threads if SuspendThread(hThread) > 0 then ShowMessage('Minha Thread foi suspença'); if TerminateThread(hThread, 0) then ShowMessage('Minha Thread foi finalizada.'); ** FIM. Então este meu script não funciona, fiz com base em um artigo,onde sera que estou errando? rss tranks.

Olha eu novamente, rss. Então, estava estudando um pouco sobre Threads é achei um metódo bem simples para serem criadas (CreateThread). Achei está API do Windows muito bacana é simples de se utilizar, Diferente das Classes que precisamos fazer mil é uma coisas, Enfim. Estou desenvolvendo um aplicativo é preciso fazer uma checagem se minha Thread está suspença, caso esteja ela ficaria ativa novamente. Nas classes eu achei á função TThread.Resume (); - TThread.Suspend (); Queria saber como posso utilizar essas funções na API CreateThread . Abraços.

kkkk você e foda mano, tipo to começando á codar agora em delphi é so aqui na scriptbrasil com minhas duvidas (noobs) você me ajudando estou aprendendo desculpa ta encomodando voces ai kkk e que sou cheio de duvidas. <3 , pode por como resolvido vlw.

Agora como faço para que meu TWebBrowser leia o proxy? está e a minha dificuldade, rss.

Acabei de olhar um pouco mais á fundo na internet é verifiquei que é feito atráves dos registros do Windows. Poderia me da um exemplo de como fazer? ví que e feito mais ou menos com isto: [HKEY_CURRENT_USER\Software\Microsoft\Windows\Curre ntVersion\Internet Settings] ProxyEnable -> True ProxyServer -> 'IP:PORTA Abraços.

Olá amigos da Scriptbrasil. Então, desenvolvi um aplicativo no Delphi, no qual ele acessa uma página na WEB é á cada 10 segundos ele atualiza á pagina. Então, estou querendo por uma lista de PROXYS para á cada atualização ele mudar o PROXY. Funcionando da seguinte forma: Eu adiciono um memo no meu projeto, é la ficaria os meus proxys: 127.0.0.1:8080; 147.0.0.1:8080; Á cada REFRESH do meu WebBrowser ele pegaria á primeira PROXY do memo é daria -1 na lista para remove-ló é ir para o próximo. Queria um exemplo de script para fazer isto, procurei em todo os locais e não achei algo que fica-se mais ou menos como eu queria... Abraços :p

Tentei seguir o exemplo do link e não deu certo :(

Muito obrigado caraa, duvida resolvidaaaa te adoroooooooo!

Olá amigos. Então, eu tenho uma página na WEB cuja o titulo do meu website é: <title>Minha página</title> Gostaria de fazer uma verificação no Delphi. Eu clico em um botão e ele verifica o titulo da pagina pagina na WEB Se o titulo da minha página for : "Minha página" ele mostra uma mensagem (Texto encontrado) se não achar ele não efetua nenhuma ação. Abraços.

Funcionou perfeitamente como eu queria amigo, tenho somente mais uma dúvida. Então, cada SMTP possuí um limite de envios diários. Queria saber como faço para adicionar multiplos servidores SMTP e limitar o envio de cada um por exemplo SMTP: smtp.gmail.com Username: minhaconta@gmail.com Password: senha123 Port: 465 Eu queria que esse SMTP envia-se apenas 10 e-mails após enviar os 10 e-mails ele trocaria de SMTP para um segundo. Abrçs

Um exemplo de como estou tentando fazer minha aplicação: Estou com dificuldades para faze-lá. se você poder me públicar um código-fonte de como ficaria isto em delphi no código que lhe enviei no tópico cara ficaria muito gratooooo !

Então ai e que está a minha dúvida o meu script para enviar e-mail não sei onde implementar o código.

Na verdade eu já fiz isto, porém não sei como fazer para contar os e-mails enviados. tipo, Total de e-mails enviados: 1 é assim sucessivamente conforme o envio de e-mails do componente do Indy. como faço ?

Então, eu consigo enviar para mais de um e-mail porém a aplicação trava. Eu queria enquanto estivese enviando abrir um allocconsole, tipo. Enquanto está enviando os e-mails abriria um AllocConsole é mostraria os emails que estão sendo enviados tipo Mensagem enviada para destinario1@hotmail.com - OK Mensagem enviada para destinario2@hotmail.com - OK Mensagem enviada para destinario3@hotmail.com - OK Mensagem enviada para destinario4@hotmail.com - OK Conforme o envio é o script em perl, abrçs

Olá amigos da Scripbrasil. Então, estou utilizando um script para enviar e-mails para multiplos destinários pelo Delphi. Segue o código-fonte: var // objetos necessários para o funcionamento IdSSLIOHandlerSocket: TIdSSLIOHandlerSocket; IdSMTP: TIdSMTP; IdMessage: TIdMessage; CaminhoAnexo: string; begin // instanciação dos objetos IdSSLIOHandlerSocket := TIdSSLIOHandlerSocket.Create(Self); IdSMTP := TIdSMTP.Create(Self); IdMessage := TIdMessage.Create(Self); try // Configuração do SSL IdSSLIOHandlerSocket.SSLOptions.Method := sslvSSLv23; IdSSLIOHandlerSocket.SSLOptions.Mode := sslmClient; // Configuração do SMTP IdSMTP.IOHandler := IdSSLIOHandlerSocket; IdSMTP.AuthenticationType := atLogin; IdSMTP.Port := 465; IdSMTP.Host := 'smtp.gmail.com'; IdSMTP.Username := 'usuario'; IdSMTP.Password := 'senha'; // Tentativa de conexão e autenticação try IdSMTP.Connect; IdSMTP.Authenticate; except on E:Exception do begin MessageDlg('Erro na conexão e/ou autenticação: ' + E.Message, mtWarning, [mbOK], 0); Exit; end; end; // Configuração da mensagem IdMessage.From.Address := 'meu.email@gmail.com'; IdMessage.From.Name := 'Meu Nome'; IdMessage.ReplyTo.EMailAddresses := IdMessage.From.Address; IdMessage.Recipients.EMailAddresses := 'destinatario@email.com'; IdMessage.Subject := 'Assunto do e-mail'; IdMessage.Body.Text := 'Corpo do e-mail'; // Anexo da mensagem (opcional) CaminhoAnexo := 'C:\Anexo.txt'; if FileExists(CaminhoAnexo) then TIdAttachment.Create(IdMessage.MessageParts, CaminhoAnexo); // Envio da mensagem try IdSMTP.Send(IdMessage); MessageDlg('Mensagem enviada com sucesso.', mtInformation, [mbOK], 0); except On E:Exception do MessageDlg('Erro ao enviar a mensagem: ' + E.Message, mtWarning, [mbOK], 0); end; finally // liberação dos objetos da memória FreeAndNil(IdMessage); FreeAndNil(IdSSLIOHandlerSocket); FreeAndNil(IdSMTP); end; end; Até ai tudo bem, o envio vai perfeitamente para minha caixa de entrada, porém quando envio para vários destinários ao mesmo tempo á minha aplicação trava. Queria saber como para minha aplicação autenticar o envio conforme enviado para o destinário com um delay de 3 segundos para envio de cada mensagem, por por exemplo: Enviado e-mail para : destinario1@hotmail.com - OK! Delay (3) segundos. Enviado e-mail para : destinario2@hotmail.com - OK! Delay (3) segundos. Enviado e-mail para : destinario3@hotmail.com - OK! Delay (3) segundos. Envio de e-mail market completo, você já pode fechar á aplicação. Com base nesse script em perl. #!/usr/local/bin/perl $ARGC=@ARGV; if ($ARGC !=4) { printf "Você deve ter digitado os comandos de forma errada\n"; printf "Veja como usar corretamente...\n"; printf "perl $0 <mailist> <remetente\@mail.com> <assunto> <corpo.html>\n"; printf "Exemplo: perl $0 lista01.txt peu\@msn.com Ola index.html\n"; exit(1); } $mailtype = "content-type: text/html"; $sendmail = '/usr/sbin/sendmail'; $sender = $ARGV[1]; $subject = $ARGV[2]; $efile = $ARGV[0]; $emar = $ARGV[0]; open(FOO, $ARGV[3]); @foo = <FOO>; $corpo = join("\n", @foo); open (BANDFIT, "$emar") || die "Can't Open $emar"; $cont=0; while(<BANDFIT>) { ($ID,$options) = split(/\|/,$_); chop($options); foreach ($ID) { $recipient = $ID; open (SENDMAIL, "| $sendmail -t"); print SENDMAIL "$mailtype\n"; print SENDMAIL "Subject: $subject\n"; print SENDMAIL "From: $sender\n"; print SENDMAIL "To: $recipient\n\n"; print SENDMAIL "$corpo\n\n"; close (SENDMAIL); $cont=$cont+1; printf "$cont Enviado para $recipient"; } } close(BANDFIT); Abraços, espero que alguém me ajude!!