Mega Code Archive

 

Categories / VB.Net / Network Remote

 

Google Client

Imports System.IO Imports System.Net Imports System.Web Imports System.Collections.Generic Public Class GoogleClient     Public Function Define(ByVal word As String) As String()         Dim req As HttpWebRequest = Nothing         Dim resp As HttpWebResponse         Dim query As String         Dim result As New List(Of String)         query = "http://www.google.com/search?q=define%3A" & HttpUtility.UrlEncode(word)         Try             req = DirectCast(WebRequest.Create(query), HttpWebRequest)             With req                 .Method = "GET"                 resp = req.GetResponse                 If resp.StatusCode = HttpStatusCode.OK Then                     ParseResponse(resp.GetResponseStream, result)                 Else                     System.Console.WriteLine("Error calling definition service")                 End If             End With         Catch ex As Exception             System.Console.WriteLine("Error getting definitions")         End Try         Return result.ToArray()     End Function     Private Sub ParseResponse(ByVal input As System.IO.Stream, ByRef output As List(Of String))         Dim reader As New StreamReader(input)         Dim work As String = reader.ReadToEnd         System.Console.WriteLine(work)      End Sub End Class