WEB SEARCHER visual basic 2008
This program allows you to search any search engine.
( CODE )
Public Class WebSearch
Private Sub cmdGoogle_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdGoogle.Click
Dim myprocess As New Process()
Dim searchstring As String = System.Web.HttpUtility.UrlEncode(txtGoogle.Text)
Dim urlstring As String = "http://www.google.com.au/search?q=" + searchstring
myprocess.StartInfo.FileName = urlstring
myprocess.Start()
End Sub
Private Sub cmdYahoo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdYahoo.Click
Dim myprocess As New Process()
Dim searchstring As String = System.Web.HttpUtility.UrlEncode(txtYahoo.Text)
Dim urlstring As String = "http://au.search.yahoo.com/search?p=" + searchstring
myprocess.StartInfo.FileName = urlstring
myprocess.Start()
End Sub
Private Sub cmdAsk_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdAsk.Click
Dim myprocess As New Process()
Dim searchstring As String = System.Web.HttpUtility.UrlEncode(txtAsk.Text)
Dim urlstring As String = "http://www.ask.com/web?q=" + searchstring
myprocess.StartInfo.FileName = urlstring
myprocess.Start()
End Sub
Private Sub cmdLive_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdLive.Click
Dim myprocess As New Process()
Dim searchstring As String = System.Web.HttpUtility.UrlEncode(txtLive.Text)
Dim urlstring As String = "http://search.live.com/results.aspx?q=" + searchstring
myprocess.StartInfo.FileName = urlstring
myprocess.Start()
End Sub
End Class
On this page of the site you can watch the video online WEB SEARCHER visual basic 2008 with a duration of hours minute second in good quality, which was uploaded by the user vbtutorials12 02 November 2008, share the link with friends and acquaintances, this video has already been watched 3,860 times on youtube and it was liked by 6 viewers. Enjoy your viewing!
