有关网页过滤广告的问题(30分)

  • 主题发起人 主题发起人 风月剑客
  • 开始时间 开始时间

风月剑客

Unregistered / Unconfirmed
GUEST, unregistred user!
前两天,在讨论如何通过网页过滤广告,特别是提示框,如“欢迎光临XX家园”等,当时朋友说
要过滤代码吧!因为当时我还不知道如果取网页源码,就更不用讲如何过滤代码啦,但现在问题
是我们可以取出源码,然后如何过滤呢?把其中的广告代码删除?然后再把过滤后的代码生成一
个新的网页的临时文件吗??
这样做的话是不是太慢了点???
有没有更好的办法???

有没有办法让计算机自动按下这个确定键呢???
 
怎样取网页源码?

 
这是自动提交表单的程序

procedure TForm1.Button1Click(Sender: TObject);
var
URL : widestring;
begin
URL := 'e:/mypost.htm';
webbrowser.Navigate (URL);
end;

//注意是DocumentComplete而不是DownloadComplete
procedure TForm1.webbrowserDocumentComplete(Sender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
var
o : Olevariant;
begin
if WebBrowser.LocationURL = 'e:/mypost.htm' then //这是新加的,上次疏忽了,意思是只有加载mypost.htm才执行下面代码
begin
o := WebBrowser.OleObject.document.all.item('username',0); //找到登录用户名的输入框
o.value := 'TEST';
o := WebBrowser.Oleobject.document.all.item('password',0); //找到登录密码的输入框
o.value := 'TEST';
WebBrowser.oleobject.document.Forms.Item(0, 0).submit;
end;

end;
 
还有一段自动进入下一个页面的程序,和这段类似,我想能不能

做个类似的自动点确定的程序???
 
后退
顶部