集多引擎为一身的搜索器牛

搜索引擎给我们带来了莫大便捷，但众多搜索引擎各有特色，于是我们经常希望输入一个关键词就能得到多个搜索引擎提供的结果。这方面的工具蛮多，即使自制也并不困难，今天就和我们一起用VB 6.0自制一个具有自主产权且小巧玲珑的络搜索器吧！

1.开发步骤

首先运行VB6.0建立一个“标准EXE“的工程文件，根据如图所示添加一个文本框和一个标签框，根据自己对搜索引擎的喜好添加若干个Command按钮控件。

接着在代码框的声明部份添加“ShellExecute”函数声明，然后再添加Command按钮代码，代码如下:

Private Declare Function ShellExecute Lib \"l\" Alias \"ShellExecuteA\" (ByVal hWnd As _Long， ByVal lpOperation As String， ByVal lpFile As String， ByVallpParameters As String， ByVal _lpDirectory As String， ByVal nShowCmd As Long) As Long

Private Sub Command1_Click()

Dim url As String

\'\'碰到错误后继续运行

On Error Resume Next

\'\'提示在文本框中输入搜索关键字

If xt = \"\" Then

MsgBox \"请先输入查找关键字！\"， ， \"错误!\": Exit Sub

End If

\'\'调用浏览器显示百度搜索的结果

ShellExecute hWnd， \"open\"， \"\" + xt， \"\"， \"\"， 1

End Sub

市场有可能再陷低迷。 2500是行情 分水岭 主持人：在经历了持续反弹后 如果你想添加更多的搜索引擎，只要添加Command按钮和相应代码，代码按照上面的格式添加即可，惟一要改动的是第四句代码的址，比如添加Google的址那么代码就是

ShellExecute hWnd， \"open\"， \"\" + xt， \"\"， \"\"， 1\"

最后，保存编译程序，具有自主产权的搜索器就完工了！

2.功能扩展

怎样获得搜索引擎的代码呢？其实有一个最简单的办法:首先通过IE打开搜索引擎，随便输入几个关键字，单击搜索。然后再看看IE地址栏，去掉我们随便输入的关键字，剩下的就是要的搜索引擎代码了。下表是我们经常用的搜索引擎代码表:

此外，还可以给这个程序加入系统热键即时呼出等功能，这样便可以随心所欲地搜索天下了。

本例在Windows 2000、VB6.0下调试通过。源代码以及可执行程序可以从

宏济堂小儿消食片
上海白癜风医院哪家好
漯河哪里的白癜风医院专业