+- Support Forums (https://www.supportforums.net)
+-- Forum: Categories (https://www.supportforums.net/forumdisplay.php?fid=87)
+--- Forum: Coding Support Forums (https://www.supportforums.net/forumdisplay.php?fid=18)
+---- Forum: Visual Basic and the .NET Framework (https://www.supportforums.net/forumdisplay.php?fid=19)
+---- Thread: Search Engine (/showthread.php?tid=15491)
Pages:
1
2
Search Engine - Apache - 01-11-2011
![[Image: upload.png]](http://i657.photobucket.com/albums/uu295/Uploader7/upload.png)
Code:
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
WebBrowser1.Navigate("http://www.google.com/search?hl=en&q=" + TextBox1.Text + "&aq=f&oq=")
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
WebBrowser1.Navigate("http://search.yahoo.com/search;_ylt=A0oG78vJkytNSScANWal87UF;_ylc=X1MDMjE0MjQ3ODk0OARfcgMyBGZyA3NmcARuX2dwcwMxMARvcmlnaW4Dc3ljBHF1ZXJ5A1RFU1QEc2FvAzE-?p=" + TextBox1.Text + "&fr=sfp&fr2=&iscqry=")
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
WebBrowser1.Navigate("http://www.bing.com/search?q=" + TextBox1.Text + "&go=&form=QBLH&qs=n&sk=")
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
WebBrowser1.Navigate("http://www.ask.com/web?q=" + TextBox1.Text + "&search=&qsrc=0&o=ushpd&l=dis")
End Sub
Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
WebBrowser1.Navigate("http://images.google.com/images?hl=en&source=imghp&biw=1600&bih=756&q=" + TextBox1.Text + "&btnG=Search+Images&gbv=2&aq=f&aqi=g10&aql=&oq=&gs_rfai=")
End Sub
Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
WebBrowser1.Navigate("http://www.bing.com/images/search?q=" + TextBox1.Text + "&go=&form=QBIL")
End Sub
Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
WebBrowser1.Navigate("http://images.search.yahoo.com/search/images;_ylt=A0WTb_61mCtN4C8Aj2WLuLkF?p=" + TextBox1.Text + "&ei=utf-8&iscqry=&fr=sfp")
End Sub
Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
WebBrowser1.Navigate("http://photobucket.com/images/" + TextBox1.Text + "/")
End Sub
Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
WebBrowser1.Navigate("http://www.google.com/search?q=" + TextBox1.Text + "&tbo=p&tbs=vid:1&source=vgc&hl=en&aq=f")
End Sub
Private Sub Button13_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click
WebBrowser1.Navigate("http://www.youtube.com/results?search_type=&search_query=" + TextBox1.Text + "&aq=f")
End Sub
Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click
WebBrowser1.Navigate("http://www.blinkx.com/videos/" + TextBox1.Text)
End Sub
Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click
WebBrowser1.Navigate("http://www.metacafe.com/results/" + TextBox1.Text + "/")
End Sub
Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click
Me.Close()
End Sub
Private Sub Button17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button17.Click
MsgBox("Created by Bradley M")
Dim Email As String
Email = "Bradleymalone@live.com"
End Sub
Private Sub Button18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button18.Click
WebBrowser1.Navigate("http://www.flickr.com/search/?q=" + TextBox1.Text)
End Sub
Private Sub Button19_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button19.Click
WebBrowser1.Navigate("http://en.wikipedia.org/wiki/" + TextBox1.Text)
End Sub
Private Sub Button20_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button20.Click
WebBrowser1.Navigate("http://www.wikihow.com/Special:GoogSearch?cx=008953293426798287586:mr-gwotjmbs&cof=FORID:10&ie=UTF-8&q=" + TextBox1.Text + "&siteurl=www.wikihow.com/Main-Page&siteurl=www.wikihow.com/Main-Page")
End Sub
Private Sub Button21_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button21.Click
WebBrowser1.Navigate("http://www.ehow.com/search.aspx?s=" + TextBox1.Text)
End Sub
Private Sub Button22_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button22.Click
WebBrowser1.Navigate("http://www.amazon.com/s/ref=nb_sb_noss?url=search-alias%3Daps&field-keywords=" + TextBox1.Text + "&x=19&y=18")
End Sub
Private Sub Button23_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button23.Click
WebBrowser1.Navigate("http://shop.ebay.com/?_from=R40&_trksid=p5197.m570.l1313&_nkw=" + TextBox1.Text + "&_sacat=See-All-Categories")
End Sub
Private Sub Button24_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button24.Click
WebBrowser1.Navigate("http://www.shopzilla.com/" + TextBox1.Text + "/search")
End Sub
Private Sub Button25_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button25.Click
WebBrowser1.Navigate("http://twitter.com/#search?q=" + TextBox1.Text)
End Sub
Private Sub Button26_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button26.Click
WebBrowser1.Navigate("http://www.nasdaq.com/aspx/flashquotes.aspx?symbol=TEST&selected=" + TextBox1.Text)
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
WebBrowser1.Navigate("http://dictionary.reference.com/browse/" + TextBox1.Text)
End Sub
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
WebBrowser1.Navigate("http://thesaurus.com/browse/" + TextBox1.Text)
End Sub
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
WebBrowser1.Navigate("http://www.synonym.com/antonym/" + TextBox1.Text)
End Sub
End Class
All credits go to meDownload Link: http://www.mediafire.com/?dukiatwd8wsfftz
The program does connect to the internet, so your firewall will go off.
RE: Search Engine - Break - 01-11-2011
Thanks and yea if i find out how to fix it i will post immediately.
RE: Search Engine - Apache - 01-11-2011
Fixed & Updated
RE: Search Engine - Fragma - 01-11-2011
GUI is horrible, you should just add a menu bar rather than having loads of buttons everywhere.
RE: Search Engine - Cee Lo Green - 01-11-2011
Looks alright but I agree with the member above, all the buttons everywhere looks a bit... out of place.
RE: Search Engine - Peter L - 01-11-2011
Easier to just type your google search into the address bar haha.
RE: Search Engine - KoBE - 01-11-2011
The GUI does need work, but still I like to see more people contribute (it seems like there is very few people in this section). For future programs, i would suggest naming your controls (ie. btnGoogle, btnYahoo, txtSeach). It makes your code look better and easier to read.
also, this
Code:
MsgBox("Created by Bradley M")
Dim Email As String
Email = "Bradleymalone@live.com"Email isn't doing anything. You assigned it a variable but didnt do anything with it.
Keep up the work. I'm looking forward to seeing more contributions.
RE: Search Engine - Resistance - 01-11-2011
I already made a program like this, in mine you can add a custom search engine because I am cool like that.
RE: Search Engine - JohnRonder - 01-14-2011
Gui is really not nice man, try adding some nice buttons and a good background, but anyway its the code that counts ;)
RE: Search Engine - w00pz - 01-15-2011
Nice dude
