WEB SEARCHER visual basic 2008

Publié le: 02 novembre 2008
sur la chaîne: vbtutorials12

3,860

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

Sur cette page du site, vous pouvez voir la vidéo en ligne WEB SEARCHER visual basic 2008 durée heure minute seconde en bonne qualité , qui a été Téléchargé par l'utilisateur vbtutorials12 02 novembre 2008, Partagez le lien avec vos amis et connaissances, sur youtube cette vidéo a déjà été regardée 3,860 fois et il a aimé 6 téléspectateurs. Bon visionnage!

101