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
In questa pagina del sito puoi guardare il video online WEB SEARCHER visual basic 2008 della durata di ore minuti seconda in buona qualità , che l'utente ha caricato vbtutorials12 02 novembre 2008, condividi il link con amici e conoscenti, su youtube questo video è già stato visto 3,860 volte e gli è piaciuto 6 spettatori. Buona visione!
