关于网页源码问题 ( 积分: 50 )

请问各位：是否知道如下几个网站的原代码：21cn、雅虎、搜狐以及新浪。
我现在急需，若有谁知道请帮帮我，因为我现在在做毕业设计，马上就要上交了，但是我就差这个，谢谢各位大虾了。格式可以是如下的：
procedure TBaiduSearch.Execute;
begin
//设定标识符记录结构体
BaiduID.URL:='http://www.baidu.com/baidu?';
BaiduID.TotalPrev:='找到相关网页约';
BaiduID.TotalRear:='篇';
BaiduID.KeywordID:='word';
BaiduID.PageID:='pn';
BaiduID.ItemAmountPerPage:=10;
BaiduID.PageIndex:=10;
BaiduID.PageBegin:=0;
BaiduID.HasNO:=False;
BaiduID.ItemPrev:='<p class=p1>';
BaiduID.ItemRear:='</a>';
BaiduID.LinkPrev:='<a href="';
BaiduID.LinkRear:='" target=_blank>';
BaiduID.HeadPrev:='target="_blank">';
BaiduID.HeadRear:='</a>';
BaiduID.ContentPrev:='<font size=-1>';
BaiduID.ContentRear:='<font color=#008000>';
BaiduID.Source:='百度';

请问各位：是否知道如下几个网站的原代码：21cn、雅虎、搜狐以及新浪。
我现在急需，若有谁知道请帮帮我，因为我现在在做毕业设计，马上就要上交了，但是我就差这个，谢谢各位大虾了。格式可以是如下的：
procedure TBaiduSearch.Execute;
begin
//设定标识符记录结构体
BaiduID.URL:='http://www.baidu.com/baidu?';
BaiduID.TotalPrev:='找到相关网页约';
BaiduID.TotalRear:='篇';
BaiduID.KeywordID:='word';
BaiduID.PageID:='pn';
BaiduID.ItemAmountPerPage:=10;
BaiduID.PageIndex:=10;
BaiduID.PageBegin:=0;
BaiduID.HasNO:=False;
BaiduID.ItemPrev:='<p class=p1>';
BaiduID.ItemRear:='</a>';
BaiduID.LinkPrev:='<a href="';
BaiduID.LinkRear:='" target=_blank>';
BaiduID.HeadPrev:='target="_blank">';
BaiduID.HeadRear:='</a>';
BaiduID.ContentPrev:='<font size=-1>';
BaiduID.ContentRear:='<font color=#008000>';
BaiduID.Source:='百度';

用webbrowser提取就可以了。

用idHTTP提取

多人接受答案了。