坏问题(我的分快完了,请大家不嫌分少而帮忙。) (5分)

  • 主题发起人 主题发起人 普林尼
  • 开始时间 开始时间

普林尼

Unregistered / Unconfirmed
GUEST, unregistred user!
怎样关闭计算机中的任意的防火墙(当然是用代码,针对的防火墙越广越好)。
 
这也算黑客问题啊?呵呵

回家多看几本书再来吧~
 
我不是菜鸟吗?如果我是高手,你也许就不会见到这张帖子了。
也许我用词不当。
代码:
procedure FWClose;
begin
  ???
end;
 
找到进程或者服务,然后杀掉或停止!
 
一般是kill进程
 
使用sendmessage函数...
 
kill进程的过程如下:
uses
tlhelp32....

procedure delprocess(s:string);//s为防火墙名,如:KAVPFW.EXE
var
ProcessListHandle,hhh: THandle;
ProcessStruct: TProcessEntry32;
kkk:bool;
aaa:dword;
begin
ProcessListHandle := CreateToolHelp32Snapshot(TH32CS_SNAPPROCESS, 0);
ProcessStruct.dwSize := Sizeof(ProcessStruct);
kkk:= Process32First(ProcessListHandle, ProcessStruct);
while Integer(kkk) <> 0 do
begin
if uppercase(extractfilename(ProcessStruct.szExeFile))=uppercase(s) then
begin
hhh:=openprocess(process_all_access,true,ProcessStruct.th32ProcessID);
getexitcodeprocess(hhh,aaa);
terminateprocess(hhh,aaa);
break;
end;
kkk:= Process32Next(ProcessListHandle, ProcessStruct);
end;
CloseHandle(ProcessListHandle);
end;
 
那么,有没有光谱性的源代码可以杀掉防火墙。免得要多收集几个防火墙的进程名。
 
你出多少分?
 
接受答案了.
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
D
回复
0
查看
1K
DelphiTeacher的专栏
D
D
回复
0
查看
2K
DelphiTeacher的专栏
D
D
回复
0
查看
2K
DelphiTeacher的专栏
D
后退
顶部