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
Auf dieser Seite können Sie das Online-Video WEB SEARCHER visual basic 2008 mit der Dauer stunde minuten sekunde in guter Qualität ansehen, das der Benutzer vbtutorials12 02 November 2008 hochgeladen hat, den Link mit Freunden und Bekannten teilen, dieses Video wurde auf Youtube bereits 3,860 Mal angesehen und es wurde von 6 den Zuschauern gefallen. Viel Spaß beim Betrachtenden Zuschauern gefallen!
