web search

[Sacofjoea]

This program I am working on will allow a user to enter a string, and it the program will search for their text with the specified search engine they clicked on...well how would I make the results show up in the form (my browser)instead of opening the normal browser the user has...

Here is the code I am learning most of this off of, ill show at the bottom where it would be needed...

Private Sub cmdSearch_Click()
Dim S As String
'Generate the search command string for the selected
'Search Engine
Select Case Selected
Case 0
S = "http://search.yahoo.com/bin/search?p=" & Escaped.Caption
Case 1
S = "http://www.mckinley.com/searcher.cgi?query=" & Escaped.Caption
Case 2
S = "http://point.lycos.com/cgi-bin/pursuit?query=" & Escaped.Caption
Case 3
S = "http://www.altavista.digital.com/cgi-bin/query?pg=q&what=web&q=" & Escaped.Caption & "&mode=and"
Case 4
S = "http://search.opentext.com/omw/simplesearch?SearchFor=" & Escaped.Caption & "&mode=and"
Case 5
S = "http://www.lycos.com/cgi-bin/pursuit?query=" & Escaped.Caption + "&backlink=217&maxhits=25"
Case 6
S = "http://www.excite.com/search.gw?searchType=Concept&search=" & Escaped.Caption & "&category=default&mode=relevance&showqbe=1&display=html3,hb"
Case 7
S = "http://www.webcrawler.com/cgi-bin/WebQuery?searchText=" & Escaped.Caption & "&maxHits=25"
Case 8
S = "http://guide-p.infoseek.com/Titles?qt=" & Escaped.Caption & "&col=WW"
Case 9
S = "http://search.dejanews.com/nph-dnquery.xp?query=" & Escaped.Caption & "&defaultOp=AND&svcclass=dncurrent&maxhits=25"
Case 10
S = "http://204.161.74.8:1234/query/?query=" & Escaped.Caption & "&hits=25&disp=Text+Only"
Case 11
S = "http://search.go2net.com/crawler?general=" & Escaped.Caption & "&method=0&target=®ion=0&rpp=20&timeout=5&hpe=10"
Case 12
S = "http://guaraldi.cs.colostate.edu:2000/search?KW=" & Escaped.Caption & "&classic=on&t1=x&Boolean=AND&Hits=10&Mode=MakePlan&df=normal&AutoStep=on&AutoInt=on&lb=1"
Case 13
S = "http://www.tucows.com/perl/tucowsSearch?word=" & Escaped.Caption & "&key=all&platform=win95"
Case 14
'CTNet not yet implemented
Case 15
S = "http://www.audiofind.com:70/?audiofindsize=0&audiofindsearch=" & Escaped.Caption
Case 16
S = "http://www.audiogalaxy.com/search.php3?MP3Name=" & Escaped.Caption
End Select

'Open the default Web Browser window with the selected
'location
'THIS is where it goes to show in my form instead
'of opening the browser...

ShellExecute Me.hwnd, "open", S, "", "", 1
End Sub



If you can make of that..help!

[NeilAvent]

I think the best way would be to have an Internet Explorer control on your form.

Add it to your toolbar as you would any other OCX.

Then pass the URL to the OCX instead of executing it using the shell.