[TUT] Google and YouTube Searcher

This tutorial will show you how to make a software that searches Google and Youtube.

Open Visual Basic 2008 Express Edition.

Click on Project next to Create:

Click on Windows Form Application, and name the project "Your name's Searcher" and then click Ok.

Add a textbox and 2 buttons: Change the buttons text's to Search Google and Search Youtube

Double click on the Search Google button and add the following highlighted code:

Code:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
      
        Dim GoogleCode As String
        GoogleCode = TextBox1.Text

        Dim FixedGoogleCode As String
        FixedGoogleCode = GoogleCode.Replace(" ", "+")

Process.Start("iexplore", "http://www.google.com/search?hl=en&q=" + FixedGoogleCode + "&aq=f&oq=")

End Sub

Double click on Search Youtube and add the following highlighted code:

Code:

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim YouTubeCode As String
        YouTubeCode = TextBox1.Text

        Dim FixedYouTubeCode As String
        FixedYouTubeCode = YouTubeCode.Replace(" ", "+")

Process.Start("iexplore", "http://www.youtube.com/results?search_type=&search_query=" + FixedYoutubeCode + "&aq=f")

End Sub

Try out the program and you should be able to search Google and Youtube.

Fairly simple program, but a good one for the noobs.

Only error (I think) is that if you type spaces it wouldn't work.

To fix that you would do this:

Code:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
      
        Dim GoogleCode As String
        GoogleCode = TextBox1.Text

        Dim FixedGoogleCode As String
        FixedGoogleCode = GoogleCode.Replace(" ", "+")

Process.Start("iexplore", "http://www.google.com/search?hl=en&q=" + FixedGoogleCode + "&aq=f&oq=")

End Sub

Code:

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim YouTubeCode As String
        YouTubeCode = TextBox1.Text

        Dim FixedYouTubeCode As String
        FixedYouTubeCode = YouTubeCode.Replace(" ", "+")

Process.Start("iexplore", "http://www.youtube.com/results?search_type=&search_query=" + FixedYoutubeCode + "&aq=f")

End Sub

Nice job though... just a couple possible errors

Originally Posted by lolland

Fairly simple program, but a good one for the noobs.

Only error (I think) is that if you type spaces it wouldn't work.

To fix that you would do this:

Code:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
      
        Dim GoogleCode As String
        GoogleCode = TextBox1.Text

        Dim FixedGoogleCode As String
        FixedGoogleCode = GoogleCode.Replace(" ", "+")

Process.Start("iexplore", "http://www.google.com/search?hl=en&q=" + FixedGoogleCode + "&aq=f&oq=")

End Sub

Code:

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim YouTubeCode As String
        YouTubeCode = TextBox1.Text

        Dim FixedYouTubeCode As String
        FixedYouTubeCode = YouTubeCode.Replace(" ", "+")

Process.Start("iexplore", "http://www.youtube.com/results?search_type=&search_query=" + FixedYoutubeCode + "&aq=f")

End Sub

Nice job though... just a couple possible errors

Thanks for the right codes

Yeah, no problem. Always glad to help

[TUT] Google and YouTube Searcher

Post a Reply

Similar Threads

Tags for this Thread