欢迎给位网络高手参加讨论！！！ (150分)

form上有一个edit控件
edit上输入网址，按回车
我们程序应该显示首页上的所有超级连接连接！！

(类似与flashget获取网页上的所有连接)

有没有能获取网页超级连接的控件？
欢迎提供源码， E-mail: wolta@eyou.com
///////////////////////////
我 把这个程序研究很长时间了，一点结果都没有。希望朋友们多多帮助！
谢谢大家！

edit中不够显示多个网址，换ComboBox1控件，代码明后天给你

case ServersPeople.ItemIndex of
-1 : begin
server :='' ;
showmessage('Please Choose an Engine')
end;
0 : begin
searchstring:='http://query1.whowhere.com/jwz/name.wsrch?name='+_keyword_+'&org=&match=inexact';
SendQuery(searchstring);
end;
1 : begin
searchstring:='http://query1.whowhere.com/jwz/org.wsrch?org='+_keyword_+'&match=inexact';
SendQuery(searchstring);
end;
2 : begin
searchstring:='http://ibc.wustl.edu/htbin/domain_search?Field='+_keyword_;
SendQuery(searchstring);
end;
3 : begin
searchstring:='http://www.bigfoot.com/SEARCH?FormName=LOOKUP&SearchName='+_keyword_;
SendQuery(searchstring);
end;

4 : begin
searchstring:='http://www.switchboard.com/bin/cgiqa.dll?SR=&L='+_keyword_;
SendQuery(searchstring);
end ;
5: begin
searchstring:='http://www.switchboard.com/bin/cgiqa.dll?SR=&BUS=&L='+_keyword_;
SendQuery(searchstring);
end;

6 : begin
searchstring:='http://rs.internic.net/cgi-bin/whois?'+_keyword_;
SendQuery(searchstring);
end;
end;

case ServersWeb.ItemIndex of
-1 : begin
server :='' ;
showmessage('Please Choose an Engine');
exit;
end;
0 : begin
searchstring:='http://www.excite.com/search.gw?search='+_keyword_+'&collection=web&display=html2%2Clb&x=19&y=6';
SendQuery(searchstring);
end;

1 : begin
searchstring :='http://webcrawler.com/cgi-bin/WebQuery?searchText='+_keyword_;
SendQuery(searchstring);
end;
2 : begin
searchstring :='http://www.hotbot.com/search.html?_v=1.0&OP=0&SM=MC&MT='+_keyword_+'&SW=&MOD=0&date=WH&DR=newer&DM=1&DD=1&DY=96&DV=10&DU=years&smiley=&RD=AN&RG=NA&domain=&DC=10&FJA=off&FJS=off&FRA=off&FAC=off&FSW=off&FVR=off&FSU=off&FSM=off&OP=0&MOD=0&search.x=59&search.y=18';
SendQuery(searchstring);
end;
3 : begin
searchstring :='http://query3.lycos.cs.cmu.edu/cgi-bin/pursuit?'+_keyword_;
SendQuery(searchstring);
end;
4 : begin
searchstring := 'http://altavista.digital.com/cgi-bin/query?pg=q&what=web&fmt=.&q='+_keyword_;
SendQuery(searchstring);
end;
5 : begin
searchstring := 'http://galaxy.einet.net/www/www.html?'+_keyword_;
SendQuery(searchstring);
end;
6 : begin
searchstring := 'http://www2.infoseek.com/Titles?qt='+_keyword_;
SendQuery(searchstring);
end;
7 : begin
searchstring := 'http://ultra.infoseek.com/Titles?qt='+_keyword_+'&nh=20&sv=US&lk=1';
SendQuery(searchstring);
end;
8 : begin
searchstring := 'http://www.mckinley.com/search.gw?search='+_keyword_+' &c=web&look=magellan&sorig=rpage';
SendQuery(searchstring);
end;
9 : begin
searchstring :='http://www.metacrawler.com/cgi-bin/nph-metaquery?general=$'+_keyword_+'&method=0&type=Fast+Search&sort=relevance&ltarget=window&useFrames=1&
iface=int1';
SendQuery(searchstring);
end;
10 : begin
searchstring := 'http://ms1.dogpile.com/search?q='+_keyword_+'&fs=web&ss=stop&to=twenty';
SendQuery(searchstring);
end;
11 : begin
searchstring := 'http://google.stanford.edu/search?num=50&query='+_keyword_;
SendQuery(searchstring);
end;
12 : begin
searchstring := 'http://search.thunderstone.com/texis/websearch/?q='+_keyword_+'&c=&max=20&dsbu=1';
SendQuery(searchstring);
end;
end;


case ServersOther.ItemIndex of
-1 : begin
server :='' ;
showmessage('Please Choose an Engine');
exit;
end;
0 : begin
searchstring :='http://xp8.dejanews.com/dnquery.xp?query='+_keyword_+'&defaultOp=AND&svcclass=dncurrent&maxhits=50&format=verbose&threaded=0&showsort=newsgroup&agesign=1&ageweight=1';
SendQuery(searchstring);
end;
1 : begin
searchstring :='http://www.findlaw.com/scripts/lc.pl?entry='+_keyword_+' &sites=wlegal';
SendQuery(searchstring);
end;
2 : begin
searchstring :='http://catalog.com/cgibin/htgrep/file=/vivian/lists.html,/vivian/newlists.html&grab=yes?'+_keyword_;
SendQuery(searchstring);
end;
3 : begin
searchstring :='http://www.nova.edu/Inter-Links/cgi-bin/news-lists.pl?'+_keyword_;
SendQuery(searchstring);
end;
4 : begin
searchstring :='http://www.rand.org/cgi-bin/Genea/rsl?'+_keyword_;
SendQuery(searchstring);
end;
5 : begin
searchstring :='http://www.lycos.com/cgi-bin/pursuit?cat=graphics&query='+_keyword_+'&ab=the_catalog&x=20&y=10';
SendQuery(searchstring);
end;
6 : begin
searchstring :='http://www.lycos.com/cgi-bin/pursuit?cat=sounds&query='+_keyword_+'&ab=the_catalog&x=36&y=9';
SendQuery(searchstring);
end;
7 : begin
searchstring :='http://www.gamesdomain.co.uk/cgi-bin/wwwwais?keywords='+_keyword_+'&Submit.x=21&Submit.y=18';
SendQuery(searchstring);
end;
8 : begin
searchstring :='http://infoplease.com/cgi-bin/isearch?DwebQuery='+_keyword_+'&in=all&type=quick&go=Go%21';
SendQuery(searchstring);
end;
9 : begin
searchstring :='http://quoteserver.dogpile.com/texis/stock/dogpile?cmd=tick&query='+_keyword_;
SendQuery(searchstring);
end;
end;


case ServersDictionary.ItemIndex of
-1 : begin
server :='' ;
showmessage('Please Choose an Engine');
exit;
end;
0 : begin
searchstring :='http://c.gp.cs.cmu.edu:5103/prog/webster?'+_keyword_;
SendQuery(searchstring);
end;
1 : begin
searchstring :='http://work.ucsd.edu:5141/cgi-bin/thesaurus?'+_keyword_;
SendQuery(searchstring);
end;
2 : begin
searchstring :='http://wombat.doc.ic.ac.uk/?'+_keyword_;
SendQuery(searchstring);
end;
3 : begin
searchstring :='gopher://info.mcc.ac.uk:70/77/miscellany/acronyms/.index/index?'+_keyword_;
SendQuery(searchstring);
end;
4 : begin
searchstring :='http://www.cnam.fr/Jargon/?'+_keyword_;
SendQuery(searchstring);
end;
5 : begin
searchstring :='http://www.leo.org/cgi-bin/dict-search?search='+_keyword_+'&hits=20';
SendQuery(searchstring);
end;
6 : begin
searchstring :='http://humanities.uchicago.edu/cgi-bin/FR-ENG.sh?word='+_keyword_;
SendQuery(searchstring);
end;
7 : begin
searchstring :='http://humanities.uchicago.edu/cgi-bin/ENG-FR.sh?word='+_keyword_;
SendQuery(searchstring);
end;
end;


case ServersNews.ItemIndex of
-1 : begin
server :='' ;
showmessage('Please Choose an Engine');
exit;
end;
0 : begin
searchstring :='http://www.cs.indiana.edu:800/cstr/search?'+_keyword_;
SendQuery(searchstring);
end;
1 : begin
searchstring :='http://www.lpac.ac.uk/bin/bibtexSearch?.@@'+_keyword_;
SendQuery(searchstring);
end;
2 : begin
searchstring :='http://www.bsdi.com/bsdi-man/?'+_keyword_;
SendQuery(searchstring);
end;
3 : begin
searchstring :='gopher://gopher.lib.ncsu.edu:3001/7?'+_keyword_;
SendQuery(searchstring);
end;
4 : begin
searchstring :='http://www.leo.org/cgi-bin/rfc-search?search='+_keyword_+'&hits=50';
SendQuery(searchstring);
end;
5 : begin
searchstring :='http://www.leo.org/cgi-bin/SFgate?database=ien&database=internet-drafts&database=ietf&text='+_keyword_+'&maxhits=50&directget=0&convert=&dmpenv=no&debug=off';
SendQuery(searchstring);
end;
6 : begin
searchstring :='http://www.discovery.com/cgi-bin/searcher/-?search='+_keyword_;
SendQuery(searchstring);
end;
7 : begin
searchstring :='http://cgi.pathfinder.com/cgi-bin/altavista/pshell?venue=pathfinder&q='+_keyword_+'&pg=q&date=all&x=12&y=9';
SendQuery(searchstring);
end;
8 : begin
searchstring :='http://search.cnn.com:8765/query.html?rq=0&col=cnni&qt='+_keyword_+'&qc=&qm=0&st=1&nh=10&lk=1&rf=1&go=go';
SendQuery(searchstring);
end;
9 : begin
searchstring :='http://www.newslink.org/cgi/search.cgi?terms='+_keyword_+'&type=Entire+site';
SendQuery(searchstring);
end;
10 : begin
searchstring :='http://www.mojones.com/cgi-bin/kidofwais.pl?'+_keyword_;
SendQuery(searchstring);
end;
11 : begin
searchstring :='http://www.latimes.com/bin/iatoc?NS-query='+_keyword_+'&NS-adv-search=0&NS-search-type=boolean&NS-max-records=20&NS-collection=DailyNews&NS-collection=APOnline';
SendQuery(searchstring);
end;
end;

有没有完整的源代码？

对 qinjlin76： 朋友代码什么时候给我？

最近大富翁上见到过，你找找吧！

IHtmlDocument2.Links
Find it in MSDN