Imports System.IO

Partial Public Class _Default
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim MyUserAgent As String = Request.UserAgent.ToString

        Dim MyClientIP As String = Context.Request.ServerVariables("REMOTE_ADDR")

        Dim MyInputStream As String = ""
        Try
            Using reader As New StreamReader(Request.InputStream)
                MyInputStream = reader.ReadToEnd()
                If MyInputStream = "" Then
                    MyInputStream = "Error:Null InputStream."
                End If
            End Using
        Catch ex As Exception
            MyInputStream = String.Format("Exception:{0}", ex.Message)
        End Try
    End Sub

End Class