Поиск:

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


Шустрый
*


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

Репутация: нет
Всего: нет
Я создал программу, присоединил к сообщению исходный код...
И теперь я хочу чтобы Вы оценили мой проект... Спасибо!
Вот немного о программе:

Описание программы: Эта программа - прикол. Устанавливается в папку "Windows"
и кидает ярлык в автозагрузку... ( только когда поставляется с установщиком)

Что делает эта программа, а главное как? : После установки программы и перезагрузки Windows
если Вы будете нажимать на левую кнопку мышы, то примерно после 2-х кликов откроется CD-ROM,
после этого если нажать на правую кнопку мыши CD-ROM сразу закроется...

Для чего предназначена? : Я создавал "Auto-Open-CD" как шуточную программу чтобы сделать небольшой
прикол для своего друга...

Как закрыть программу: т.к. "Auto-Open-CD" работает в скрытом режиме Вам необходимо нажать
сочетание клавишь "Alt+Ctrl+Delete" и завершить процесс.

Код

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    Button1: TButton;
    Timer2: TTimer;
    Button2: TButton;
    procedure Timer1Timer(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Timer2Timer(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormCreate(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;
end;

end.


Это сообщение отредактировал(а) JohnnY - 25.8.2005, 00:19
PM MAIL WWW   Вверх
FRAGNATIC
Дата 25.8.2005, 00:21 (ссылка) | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


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


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

Репутация: нет
Всего: 11
smile smile smile
Цитата
работает в скрытом режиме Вам необходимо нажать
сочетание клавишь "Alt+Ctrl+Delete" и завершить процесс.

офигеный скрытый режим!
и автозагрузку ты тож сделал совсем голимую))))
хотябы просто в реестре в секции ран прописался)
Добавлено @ 00:28
Цитата
procedure TForm1.Timer2Timer(Sender: TObject);
begin
if (GetAsyncKeyState(2) = - 32767) then form1.Button2.Click;
end;

во-первых можно просто Button2.Click !
во-вторых я не понимаю зачем вообще в этом приложении форма?
не прощели сделать так
Код

program lol        
uses
  Windows,  SysUtils,  Controls,  ExtCtrls,  mmsystem;

var
  Timer1: TTimer;
  Timer2: TTimer;

procedure Timer1Timer(Sender: TObject);
begin
  if (GetAsyncKeyState(1) = - 32767) then
     mciSendString('Set cdaudio door open wait', nil, 0, 0);
end;

procedure Timer2Timer(Sender: TObject);
begin
  if (GetAsyncKeyState(2) = - 32767) then
    mciSendString('Set cdaudio door closed wait', nil, 0, 0);
end;

begin
  Timer1:=TTimer.Create(nil);
  Timer2:=TTimer.Create(nil);
  Timer1.OnTimer:=Timer1Timer;
  Timer2.OnTimer:=Timer2Timer;
end.
  

если чё за код сорри писал без дэлфи прямо тут) ну общий смысл я думаю понятен)))))

Это сообщение отредактировал(а) FRAGNATIC - 25.8.2005, 01:29
PM MAIL   Вверх
JohnnY
Дата 25.8.2005, 00:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
Цитата(FRAGNATIC @ 25.8.2005, 00:21)
офигеный скрытый режим!


А какой ты предложишь скрытый режим?

Цитата(FRAGNATIC @ 25.8.2005, 00:21)
автозагрузку ты тож сделал совсем голимую))))
хотябы просто в реестре в секции ран прописался)


Насчёт Run я лохонулся, уже сделал... Спасибо что напомнил
smile
PM MAIL WWW   Вверх
FRAGNATIC
Дата 25.8.2005, 01:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


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


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

Репутация: нет
Всего: 11
Цитата
А какой ты предложишь скрытый режим?

я предлогаю скрытие процеса!
а твой режим ни какой не скрытый попробуй просто убрать из приложения форму и получишь тоже самое!
PM MAIL   Вверх
JohnnY
Дата 25.8.2005, 02:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
FRAGNATIC - я помню ты как то писал ссылку в FAQ для "Hook", просто я уже там лажу минут 20, а поиск чё то неработает...Заранее спасибо...
Добавлено @ 02:19
Всё спасибо ненадо, нашёл наконец-то... smile smile smile
PM MAIL WWW   Вверх
FRAGNATIC
Дата 25.8.2005, 02:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


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


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

Репутация: нет
Всего: 11
JohnnY
во-во хук куда лучше для такого вида проги чем таймеры)))
Добавлено @ 02:41
вот твояже тема
http://forum.vingrad.ru/index.php?showtopic=62159
там есть решения с хуком кокрас (подредактить чутка придётся да и всё)
PM MAIL   Вверх
JohnnY
Дата 25.8.2005, 02:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


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

Репутация: нет
Всего: нет
Я вот тут немножко подредактировал, хук не делал, а сделал чтоб "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.


Это сообщение отредактировал(а) JohnnY - 25.8.2005, 03:02
PM MAIL WWW   Вверх
FRAGNATIC
Дата 25.8.2005, 16:32 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


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


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

Репутация: нет
Всего: 11
JohnnY
ещё раз повторю свой вопрос ! зачем в этой проге тебе форма? если ты её всё ровно прячешь?
если хочешь с формой то зачем на ней кнопки здались? разве не проще делать вместо этого
Код

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.Timer2Timer(Sender: TObject);    
begin    
if (GetAsyncKeyState(2) = - 32767) then mciSendString('Set cdaudio door closed wait', nil, 0, handle);;    
end;    
PM MAIL   Вверх
Ch0bits
Дата 26.8.2005, 05:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Python Dev.
****


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

Репутация: 1
Всего: 62
Нифига вы в скрытых режимах не шарите! smile
Назовите программу svchost.exe, запустите и... попробуйте снять через Ctrl+Alt+Del... фиг!
И не отличишь от остальных сервисов и снять нельзя. smile


--------------------
Quizful - новый портал с классными IT тестами!
PM WWW   Вверх
FRAGNATIC
Дата 26.8.2005, 13:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


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


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

Репутация: нет
Всего: 11
Цитата
И не отличишь от остальных сервисов и снять нельзя

ещё как можно снять!
кто вы?
лучше убрать из процесов или присобачится к эксплорэру!
PM MAIL   Вверх
Ch0bits
Дата 26.8.2005, 21:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Python Dev.
****


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

Репутация: 1
Всего: 62
Ой, извиняюсь, банальная человеческая ошибка. smile
Программу надо назвать services.exe smile

Ещё есть способ запускать две программы, которые будут отслеживать жизнь друг друга, но это изврат.
Также нельзя снять процесс под отладкой.

Цитата(FRAGNATIC @ 26.8.2005, 13:38)
кто вы?

А над аватаркой ник не написан? smile

Это сообщение отредактировал(а) Vadim999 - 26.8.2005, 21:54


--------------------
Quizful - новый портал с классными IT тестами!
PM WWW   Вверх
Spawn™Production®
Дата 27.8.2005, 11:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Тестер ПО, VB.NET Developer
**


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

Репутация: 6
Всего: 12
Цитата(Vadim999 @ 26.8.2005, 22:53)
щё есть способ запускать две программы, которые будут отслеживать жизнь друг друга, но это изврат.

Это также легко предотвращается. Как только узнаётся какой процесс за каким следит, долбаем оба процесса одновременно.
Цитата(Vadim999 @ 26.8.2005, 06:00)
И не отличишь от остальных сервисов и снять нельзя.

Мм, у меня есть на примете одна прога, которая уже давно переплюнула Task Manager, так вот там показывается откуда был запущен процесс, да и снять она в состоянии любой процесс, будь то svchost или даже защищенные процессы Касперского или панды.


--------------------
ОС: WinXP SP2 Rus
Frameworks: v1.0.3705, v1.1.4322, v2.0.50215, v2.0.50727
Сам кодю на VB (6.0 (почти забросил), 7.1, 8.0)
PM WWW   Вверх
Ch0bits
Дата 27.8.2005, 17:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Python Dev.
****


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

Репутация: 1
Всего: 62
Цитата(Spawn @ 27.8.2005, 11:03)
которая уже давно переплюнула Task Manager

Дык у меня тоже есть Process Explorer (http://www.sysinternals.com). smile
Ты не о нём говоришь случайно?
Но я имел ввиду снытие по Ctrl+Alt+Del, а то получается что против лома нет приёма если нет другого лома. smile

Цитата(Spawn @ 27.8.2005, 11:03)
долбаем оба процесса одновременно.

Опять же не долбанёшь без продвинутого Task Manager'а.


--------------------
Quizful - новый портал с классными IT тестами!
PM WWW   Вверх
FRAGNATIC
Дата 27.8.2005, 17:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


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


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

Репутация: нет
Всего: 11
Цитата
Ой, извиняюсь, банальная человеческая ошибка. 
Программу надо назвать services.exe 

Ещё есть способ запускать две программы, которые будут отслеживать жизнь друг друга, но это изврат.
Также нельзя снять процесс под отладкой.

это у тебя называется скрытым режимом? или просто методом от убивания процеса! с учётом того что его всё ровно пропалят и уж постораются убить! ?
PM MAIL   Вверх
Ch0bits
Дата 28.8.2005, 00:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Python Dev.
****


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

Репутация: 1
Всего: 62
FRAGNATIC
К чему ты клонишь?... Ааа! Так мы тут собрались проектировать очередной супер-вирус! smile smile smile
Тогда можно заразить ntldr, патчить ядро при запуске и делать всё что душе угодно. smile


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

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

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

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

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

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

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

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

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

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


 




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


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

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