[TUT] Google and YouTube Searcher

[deathninjak0]

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:

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", "https://www.google.com/search?hl=en&q=" + FixedGoogleCode + "&aq=f&oq=")

End Sub

Double click on Search Youtube and add the following highlighted 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", "https://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.

[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:

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", "https://www.google.com/search?hl=en&q=" + FixedGoogleCode + "&aq=f&oq=")

End Sub

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", "https://www.youtube.com/results?search_type=&search_query=" + FixedYoutubeCode + "&aq=f")

End Sub

Nice job though... just a couple possible errors

[deathninjak0]

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:

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", "https://www.google.com/search?hl=en&q=" + FixedGoogleCode + "&aq=f&oq=")

End Sub

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", "https://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

[Lolland]

Yeah, no problem. Always glad to help