找一DELPHI程序员。要求经验三年以上，有浏览器开发及BHO开发相关经验。有C语言编程功底。 ( 积分: 0 )

找一DELPHI程序员。要求经验三年以上，有浏览器开发及BHO开发相关经验。有C语言编程功底。
请联系QQ：3249136。

你可以自己编个小程序，放个Ttimer控件，加入下面的代码就可以了。

procedure killggTimer(Sender: TObject);
var
wHandle: THandle;
waHandle, dvHandle: THandle;
wTop, dTop, dBottom: integer;
wRect, dRect: TRect;
//sTips: string;
{wCaption: array[0..90] of Char;}
begin
{wHandle := GetForegroundWindow;}
wHandle := FindWindow('IEFrame', nil);
if wHandle <> 0 then
begin
waHandle := FindWindowEx(wHandle, 0, 'WorkerW', nil);
if waHandle = 0 then Exit;
GetwindowRect(waHandle, wRect);
wTop := wRect.Top;
dvHandle := FindWindowEx(wHandle, 0, 'Shell DocObject View', nil);
if dvHandle = 0 then Exit;
GetwindowRect(dvHandle, dRect);
dTop := dRect.Top;
dBottom := dRect.Bottom;
{GetWindowText(wHandle, wCaption, 90);
if (wTop = dTop) and (Pos('西雅', StrPas(wCaption)) = 0) then}
if (wTop = dTop) and (dBottom - dTop < 375) then
begin
PostMessage(wHandle, WM_CLOSE, 0, 0);
Inc(iCount);
showhint(gghint.checked,'广告拦截','已拦截广告 '+inttostr(icount)+' 次',3);
end;
end;
end;

不是屏蔽IE的弹出广告,是屏蔽自己写的浏览器的.