Search the Internet with 8 common search engines

Version Compatibility:

Instructions: Copy the declarations and code below and paste directly into your VB project.

Declarations:
' #VBIDEUtils#******************************************* ' * Programmer Name : Waty Thierry ' * Web Site : www.geocities.com/ResearchTriangle/6311/ ' * E-Mail : waty.thierry@usa.net ' * Date : 29/06/99 ' * Time : 11:23 ' *********************************************************** ' * Comments : Search the Internet with 8 common search ' * engines. Search the internet for web pages or files from your ' * VB App. 8 common search engines: AltaVista, Excite, HotBot, ' * Infoseek, Lycos, Yahoo, SoftSeek, AudioFind An easy to use ' * function. You can add as many Search Engines to the ' * list as you want, this list contains 8 search-engines. ' * One of my lists contain 24 common search-engines. Use like ' * this: ' * SearchTheWeb Inputbox("Enter search-words:","",""), _ ' * wAltaVista ' ******************************************************** Private Declare Function ShellExecute Lib "shell32.dll" Alias _ "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As _ String, ByVal lpFile As String, _ ByVal lpParameters As String, _ ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long 'The Search-Engine list: Const SearchEngineList As String = _ "http://www.altavista.digital.com/cgi-bin/query?pg=q&what=web&fmt=.&q=||http://www.excite.com/search.gw?c=web&search=||http://www.hotbot.com/?SW=web&SM=MC&MT=||http://guide-p.infoseek.com/Titles?qt=|&col=WW&sv=IS&lk=noframes|http://www.lycos.com/cgi-bin/pursuit?query=||http://search.yahoo.com/bin/search?p=||http://search02.softseek.com/cgi-bin/search.cgi?keywords=|&seekindex=index&maxresults=025&cb=|http://www.audiofind.com:70/?audiofindsearch=|&audiofindtype=" Public Enum SEARCH_ENGINES wAltaVist = 1 wExcite = 3 wHotBot = 5 wInfoseek = 7 wLycos = 9 wYahoo = 11 wSoftSeek = 13 wAudioFind = 15 End Enum