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
|