Imports System
Imports System.IO
Imports System.Net
Imports System.Text


Module Module1

    Sub Main()

        '-------------------------------------------------------------
        ' send the request to the web server
        '-------------------------------------------------------------
        Dim request As WebRequest = WebRequest.Create("http://S103D64G:8001/ajaxpgm/CUSTMAST.pgm?cust=839283")

        '-------------------------------------------------------------
        ' get the response from the web server
        '-------------------------------------------------------------
        Dim response As HttpWebResponse = CType(request.GetResponse(), HttpWebResponse)

        '-------------------------------------------------------------
        ' (optional) display response headers
        '-------------------------------------------------------------
        Console.WriteLine("------- Response Headers -----------")
        Dim headers As WebHeaderCollection = response.Headers

        For i As Integer = 0 To headers.Count - 1
            Console.WriteLine("Header Name:{0}, Value :{1}", _
                              headers.Keys(i), _
                              headers(i))
        Next

        '-------------------------------------------------------------
        ' (optional) display response status
        '-------------------------------------------------------------
        Console.WriteLine()
        Console.WriteLine("------- Response Status -----------")
        Console.WriteLine("response.StatusCode: {0}  response.StatusDescription: {1}", _
                          response.StatusCode, _
                          response.StatusDescription)

        '-------------------------------------------------------------
        ' (optional) display response data
        '-------------------------------------------------------------
        Console.WriteLine()
        Console.WriteLine("------- Response Data -----------")
        Dim dataStream As Stream = response.GetResponseStream()

        '-------------------------------------------------------------
        ' parse/process response data
        '-------------------------------------------------------------
        Dim reader As New StreamReader(dataStream)

        Dim responseFromServer As String = reader.ReadToEnd()

        Console.WriteLine(responseFromServer)

        Console.WriteLine()
        Console.WriteLine("------- Parsed Data -----------")
        Dim split As String() = responseFromServer.Split(New [Char]() {"|"c})

        Dim s As String
        For Each s In split
            If s.Trim() <> "" Then
                Console.WriteLine(s)
            End If
        Next s

        Console.WriteLine()

        Console.WriteLine("Press ENTER to end")
        Console.ReadLine()

        response.Close()

    End Sub

End Module