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