Support Forums

Pages: 1 2

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 me

Download Link: http://www.mediafire.com/?dukiatwd8wsfftz

The program does connect to the internet, so your firewall will go off.

Thanks and yea if i find out how to fix it i will post immediately.

Fixed & Updated

GUI is horrible, you should just add a menu bar rather than having loads of buttons everywhere.

Looks alright but I agree with the member above, all the buttons everywhere looks a bit... out of place.

Easier to just type your google search into the address bar haha.

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.

I already made a program like this, in mine you can add a custom search engine because I am cool like that.

Gui is really not nice man, try adding some nice buttons and a good background, but anyway its the code that counts ;)

Nice dude

Pages: 1 2

Apache

Break

Apache

Fragma

Cee Lo Green

Peter L

KoBE

Resistance

JohnRonder

w00pz