ANTICHAT — форум по информационной безопасности, OSINT и технологиям
ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию.
Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club,
и теперь снова доступен на новом адресе —
forum.antichat.xyz.
Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.
⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.
 |
|
20.04.2007, 20:29
|
|
Участник форума
Регистрация: 10.10.2006
Сообщений: 127
Провел на форуме:
483695
Репутация:
31
|
|
А я немного по-другому сделал
{
HANDLE hToken;
TOKEN_PRIVILEGES tkp;
// Get a token for this process.
OpenProcessToken(GetCurrentProcess(),TOKEN_ADJUST_ PRIVILEGES | TOKEN_QUERY, &hToken);
LookupPrivilegeValue(NULL, SE_SHUTDOWN_NAME,&tkp.Privileges[0].Luid);
tkp.PrivilegeCount = 1; // one privilege to set
tkp.Privileges[0].Attributes = SE_PRIVILEGE_ENABLED;
AdjustTokenPrivileges(hToken, FALSE, &tkp, 0,(PTOKEN_PRIVILEGES)NULL, 0);
SetSystemPowerState(false,false);
}
Вроде работает. |
|
|
26.04.2007, 17:28
|
|
Статус пользователя:
Регистрация: 26.07.2005
Сообщений: 568
Провел на форуме:
1290766
Репутация:
1236
|
|
BroadcastSystemMessage() c SC_MONITORPOWER рубит монитор например.
|
|
|
|
26.04.2007, 19:48
|
|
Участник форума
Регистрация: 10.10.2006
Сообщений: 127
Провел на форуме:
483695
Репутация:
31
|
|
sn0w, спасибо, пригодиться.
Скоро я наконец допишу прогу, и выложу сюда. Как-никак первая серьезная (ну, немного серьезная) программа =)
Сейчас пытаюсь сообразить, как сделать ввод данных из ini файла обратно в TEdit и в массив. Вся проблема в том, что эти данные строковые, а значить StrToInt уже не прокатит...
Кстати, запись в файл выполнена средствами TIniFile (WriteString), и в теории вывод надо делать с помощью ReadString, но как, я пока так и не понял...
|
|
|
|
26.04.2007, 20:33
|
|
Постоянный
Регистрация: 23.04.2006
Сообщений: 622
Провел на форуме:
5887054
Репутация:
1292
|
|
Сообщение от Noman
Кстати, запись в файл выполнена средствами TIniFile (WriteString), и в теории вывод надо делать с помощью ReadString, но как, я пока так и не понял...
Код:
var
myini :TIniFile;
procedure TForm1.FormCreate(Sender: TObject);
begin
myini := TIniFile.Create('C:\123.ini');
Edit1.Text := myini.ReadString('MySection', 'MyIdent', 'It is default text')
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
myini.WriteString('MySection', 'MyIdent', Edit1.Text);
myini.Destroy;
end;
)))
|
|
|
|
26.04.2007, 22:21
|
|
Участник форума
Регистрация: 10.10.2006
Сообщений: 127
Провел на форуме:
483695
Репутация:
31
|
|
hidden, это если не ошибаюсь делфи? Хотя с с++ они очень похожи. Иными словами получается так:
Код:
void __fastcall TSettingBox::FormCreate(TObject *Sender)
{
TIniFile *read = new TIniFile( ExtractFilePath( Application->ExeName ) + "data.ini" );
Edit1->Text = read->ReadString("Options", "Process_1", 0);
delete read;
}
void __fastcall TSettingBox::SaveButtonClick(TObject *Sender)
{
TIniFile *ini = new TIniFile( ExtractFilePath( Application->ExeName ) + "data.ini" );
ini->WriteString("Options", "Process_1", Edit1->Text);
ini->UpdateFile();
delete ini;
}
И должно бы работать... А не работает 
Added: вот блин, я дал... Hidden спасибо!!! Я совсем идиот стал))) Взял и поместил ф-ию чтения на кнопку сохранения и закрытия))))) Код исправил, как надо.
Hidden, еще раз, спасибо)))
Последний раз редактировалось Noman; 26.04.2007 в 22:24..
|
|
|
|
26.04.2007, 22:30
|
|
Постоянный
Регистрация: 23.04.2006
Сообщений: 622
Провел на форуме:
5887054
Репутация:
1292
|
|
Сообщение от Noman
hidden, это если не ошибаюсь делфи? Хотя с с++ они очень похожи. Иными словами получается так:
Код:
void __fastcall TSettingBox::FormCreate(TObject *Sender)
{
TIniFile *read = new TIniFile( ExtractFilePath( Application->ExeName ) + "data.ini" );
Edit1->Text = read->ReadString("Options", "Process_1", 0);
delete read;
}
void __fastcall TSettingBox::SaveButtonClick(TObject *Sender)
{
TIniFile *ini = new TIniFile( ExtractFilePath( Application->ExeName ) + "data.ini" );
ini->WriteString("Options", "Process_1", Edit1->Text);
ini->UpdateFile();
delete ini;
}
И должно бы работать... А не работает
Added: вот блин, я дал... Hidden спасибо!!! Я совсем идиот стал))) Взял и поместил ф-ию чтения на кнопку сохранения и закрытия))))) Код исправил, как надо.
Hidden, еще раз, спасибо)))
Не посмотрел на заголовак, увидел что юзаешь TIniFile и WriteString, а видел я их только в Delphi)), не думал что в С++ точно так-же называется))), так-как в последнее время только на API пишу)))
|
|
|
|
26.04.2007, 22:40
|
|
Участник форума
Регистрация: 10.10.2006
Сообщений: 127
Провел на форуме:
483695
Репутация:
31
|
|
Хех, весь инет облазил, а помог родной аЧат =)))
2Hidden, я сам на делфи не работал, но сейчас, когда искал нужный мне материал часто сталкивался, и пришел к выводу, что они очень похожи. Разумееется мое мнение мнение очень поверхностно, но на первый взгляд отличие только в операторах объявления.
На API? Ммм... Такой вопрос, я нашел код для убийства процесса такого вида:
Код:
//По имени ехе узнаем пид процесса
DWORD GetProcessByExeName(AnsiString ExeN)
{
DWORD id;
HANDLE hProcessSnap = NULL;
PROCESSENTRY32 pe32 = {0};
AnsiString temp="";
hProcessSnap = CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, NULL);
pe32.dwSize=sizeof(PROCESSENTRY32);
if(Process32First(hProcessSnap,&pe32)) temp = pe32.szExeFile;
pe32.dwSize=sizeof(PROCESSENTRY32);
while(Process32Next(hProcessSnap,&pe32))
{
temp = pe32.szExeFile;
pe32.dwSize = sizeof(PROCESSENTRY32);
if (temp == ExeN)
{
id = pe32.th32ProcessID;
CloseHandle(hProcessSnap);
return id;
}
}
CloseHandle(hProcessSnap);
MessageBox(NULL, "Процесс не найден!", "Внимание!", MB_OK|MB_ICONWARNING);
return false;
}
//Зная пид убиваем процесс
bool KillProcByPid(DWORD id)
{
HANDLE hProcess = OpenProcess(PROCESS_ALL_ACCESS, TRUE, id);
if(INVALID_HANDLE_VALUE != hProcess)
{
TerminateProcess(hProcess, 0);
CloseHandle(hProcess);
}
return 0;
}
{
AnsiString ExeName; //имя ехе
DWORD Pid = 0; // PID процесса
ExeName = "process.exe";
Pid = GetProcessByExeName(ExeName);
KillProcByPid(Pid);
{
Но его минус в том, что его можно использовать только для уничтожения одного процесса. А мне нужно на несколько. Я написал на один форум по C++, и там мне ответили, что можно воспользоваться broadcast'ом.
Почитал на сайте мелкомягких про это, но толком ничего не понял. Можешь объяснить, что это такое? |
|
|
|
26.04.2007, 23:07
|
|
Постоянный
Регистрация: 23.04.2006
Сообщений: 622
Провел на форуме:
5887054
Репутация:
1292
|
|
Сообщение от Noman
Я написал на один форум по C++, и там мне ответили, что можно воспользоваться broadcast'ом.
Почитал на сайте мелкомягких про это, но толком ничего не понял. Можешь объяснить, что это такое?
Ты не это читал?: http://msdn2.microsoft.com/en-us/library/ms686722.aspx
Никогда этим не пользовался, но думаю что-то вроде этого:
Код:
BroadcastSystemMessage(BSF_IGNORECURRENTTASK + BSF_NOTIMEOUTIFNOTHUNG, BSM_APPLICATIONS, WM_DESTROY, 0, 0);
По идее, оно разошлёт сообщения о завершении(WM_DESTROY, 0, 0) всем приложениям(BSM_APPLICATIONS), имеющие окна(включая невидимые), кроме себя(BSF_IGNORECURRENTTASK), затем дождётся завершения их всех(BSF_NOTIMEOUTIFNOTHUNG)
|
|
|
|
27.04.2007, 00:06
|
|
Участник форума
Регистрация: 10.10.2006
Сообщений: 127
Провел на форуме:
483695
Репутация:
31
|
|
2hidden, спасибо. Буду пробовать =)
|
|
|
|
12.05.2007, 20:09
|
|
Участник форума
Регистрация: 10.10.2006
Сообщений: 127
Провел на форуме:
483695
Репутация:
31
|
|
Спустя 2 недели я все-таки добрался доделать прогу, и как и обещал, выкладываю ссылку сюда. Там же и ее исходники. Сильно не пинайте =)
_http://winsource.mirahost.ru/moi-programmy/rubilnik-ver-10-beta/
|
|
|
|
|
|
|
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Похожие темы
Линейный вид
