Exenin Çalışmasını Engellemek
Forum kuralları
Forum kurallarını okuyup, uyunuz!
Forum kurallarını okuyup, uyunuz!
Exenin Çalışmasını Engellemek
Arkadaşlar herkese kolay gelsin,
Küçük bir program yapmamız gerek.
Yardımlarınızı bekliyoruz.
Yapmak İstediğimiz program bir cafede kullanılaçak.
proğram cafede ne iş yapaçak..?
cafedeki sistemlerde bir exenin çalışmasını önleyeçek,
arka planda çalışaçak.
Yardımlarınız için şimdiden teşekkür ederim.
Küçük bir program yapmamız gerek.
Yardımlarınızı bekliyoruz.
Yapmak İstediğimiz program bir cafede kullanılaçak.
proğram cafede ne iş yapaçak..?
cafedeki sistemlerde bir exenin çalışmasını önleyeçek,
arka planda çalışaçak.
Yardımlarınız için şimdiden teşekkür ederim.
MAydinli
bunun için program yazmana gerek yok. gpedit.msc yi çalıştırıp belirtilen bir programı çalıştırma kısmında iligli exenin adını yaz ve bu keyi export edrsen elinde reg dosyası kalır. bu reg dosyasının çalıştırdığın her yerde ilgili exe çalışmaz.
Kişi odur ki, koyar dünyada bir eser. Eseri olmayanın yerinde yeller eser./Muhammed Hadimi
http://www.ibrahimkutluay.net
http://www.ibrahimkutluay.net/blog
http://www.ibrahimkutluay.net
http://www.ibrahimkutluay.net/blog
sourceforgede kayıtlı kill process adlı opensource bir proje var. delphi 6 ile yazılmış. bir ayar listesi var. o listedeki tüm exeleri sorgu sual etmeden öldürüyor. msn, ares vs ne isterssen mumkun.MAydinli yazdı:paşam exe normalde sistemde yüklü değil kullanıcılar inadında netten dosyayı çekip kuruyorlar. Biz, mümkünse kurmasını önlemek yada kursa bile çalıştırmasını önlemek istiyoruz.
öte yandan benim sana önerdiğim yöntemde aynen bu işi yapıyor. yada registryde exe adı yazıyor ve o isimde exe başlatılmıyor. kursa kaldırsa bile önemli değil. başlatamıyor.
ancak sürekli bir exe için hafızayı kontrol eden uygulamayı sen yazsanda bu sisteme yük bindirecektir azda olsa. bu açıdan registryden engellemek, yada kill process ile birç ok exe için kontrolü yapmak daha mantıklı.
ayrıca kullanıcıların admin değil normal user da yapabbilirsin. o zaman program kuramazlar. ancak bir çok şey kısıtlandığından teknik departmanın bşı ayrıyabilir.
Kişi odur ki, koyar dünyada bir eser. Eseri olmayanın yerinde yeller eser./Muhammed Hadimi
http://www.ibrahimkutluay.net
http://www.ibrahimkutluay.net/blog
http://www.ibrahimkutluay.net
http://www.ibrahimkutluay.net/blog
arkadaşlar tekrar merhaba uzun süredir forma girmemiştim en son tşk ettim sizlere... neyse konumuz bu degil
başlıktaki sorunu geçiçi bir süreliğine çözmüştük. ama tekrar sorun başladı...
@ikutluay, arkadaşımdan bi ricam olaçak..
sourceforgeden kill process adlı projeyi indirdim ama bir türlü çalıştırmayı başaramadım...
şeklinde bir hata alıyorum... Denedim amam sorunu çözemedim...yardım ederseniz sevinirim. Cevap için şimdiden teşekkür ederim.
başlıktaki sorunu geçiçi bir süreliğine çözmüştük. ama tekrar sorun başladı...
@ikutluay, arkadaşımdan bi ricam olaçak..
sourceforgeden kill process adlı projeyi indirdim ama bir türlü çalıştırmayı başaramadım...
Kod: Tümünü seç
C:\kill>progscript.bat
FATAL ERROR: You must first edit this Batch Script!
C:\kill>
MAydinli
gerekli bilgi readme dosyasında vardı. detaylıca okursanız yardımcı olur.
Kişi odur ki, koyar dünyada bir eser. Eseri olmayanın yerinde yeller eser./Muhammed Hadimi
http://www.ibrahimkutluay.net
http://www.ibrahimkutluay.net/blog
http://www.ibrahimkutluay.net
http://www.ibrahimkutluay.net/blog
Bir zamanlar lazım olmuştu arşivimden
Kod: Tümünü seç
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Tlhelp32;
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
function KillTask(ExeFileName: string): integer;
const
PROCESS_TERMINATE=$0001;
var
ContinueLoop: BOOL;
FSnapshotHandle: THandle;
FProcessEntry32: TProcessEntry32;
begin
result := 0;
FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
FProcessEntry32.dwSize := Sizeof(FProcessEntry32);
ContinueLoop := Process32First(FSnapshotHandle,
FProcessEntry32);
while integer(ContinueLoop) <> 0 do
begin
if ((UpperCase(ExtractFileName(FProcessEntry32.szExeFile)) =
UpperCase(ExeFileName))
or (UpperCase(FProcessEntry32.szExeFile) =
UpperCase(ExeFileName))) then
Result := Integer(TerminateProcess(OpenProcess(
PROCESS_TERMINATE, BOOL(0),
FProcessEntry32.th32ProcessID), 0));
ContinueLoop := Process32Next(FSnapshotHandle,
FProcessEntry32);
end;
CloseHandle(FSnapshotHandle);
end;
procedure TForm1.Button1Click(Sender: TObject);
var
h:thandle;
begin
h:=FindWindow(nil, 'form2');
PostMessage(h,wm_close,0,0);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
killtask('test.exe');
end;
end.
Gazete manşetleri
* DİKKAT :Lütfen forum kurallarını okuyalım ve uyalım...!
* Warez,crack vs. paylaşımı kesinlikle yasaktır.
burada 2 teknik var Öldür de kendim basitce bişey yazmıştım bunu diğer exeden yakalamak mümkün Öldür2 ise hazır fonksiyon kullanmıştım öldürülecek exe den yakalamak zor ben başaramamıştım açıkcası umarım faydalı olur.
Kolay gelsin...
Kolay gelsin...
Gazete manşetleri
* DİKKAT :Lütfen forum kurallarını okuyalım ve uyalım...!
* Warez,crack vs. paylaşımı kesinlikle yasaktır.
yukardaki kod örneği 98 ve nt serisinde farklı işleve sahip.
Kişi odur ki, koyar dünyada bir eser. Eseri olmayanın yerinde yeller eser./Muhammed Hadimi
http://www.ibrahimkutluay.net
http://www.ibrahimkutluay.net/blog
http://www.ibrahimkutluay.net
http://www.ibrahimkutluay.net/blog