Google Client : Web Request « Network Remote « VB.Net

1. VB.Net
2. Network Remote
3. Web Request

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

   
    
    
  

Related examples in the same category