Imports System.IO
Imports System.Net

Public Class asp_dot_net
    Inherits System.Web.UI.Page

    Public ClientNumber, CourtType, _
        LoginID, Password As String

    ' Type 1
    Public appurl, courtid As String

    ' Type 2
    Public sessionid, action As String

#Region " Web Form Designer Generated Code "

    'This call is required by the Web Form Designer.
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

    End Sub

    'NOTE: The following placeholder declaration is required by the Web Form Designer.
    'Do not delete or move it.
    Private designerPlaceholderDeclaration As System.Object

    Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
        'CODEGEN: This method call is required by the Web Form Designer
        'Do not modify it using the code editor.
        InitializeComponent()
    End Sub

#End Region

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim Court As String

        ClientNumber = Request.Item("client_id")
        Court = Request.Item("court")

        LoginID = "<your id here>"
        Password = "<your password here"

        If Court = "CA_Central_Bankr_LA_PACER" Then
            CourtType = 1
            courtid = "CASDC"
        ElseIf Court = "CA_Northern_CMECF" Then
            CourtType = 2
            action = "https://ecf.casb.uscourts.gov/cgi-bin/login.pl"
            GetSessionID()
        Else
            CourtType = 3
        End If


    End Sub

    Private Sub GetSessionID()

        Dim wrqRequest As WebRequest
        Dim wrpResponse As WebResponse
        Dim strmNews As Stream
        Dim srHtml As StreamReader
        Dim strPage, strId As String
        Dim intBegin, intEnd As Integer

        Try

            wrqRequest = WebRequest.Create(action)
            wrpResponse = wrqRequest.GetResponse()
            strmNews = wrpResponse.GetResponseStream()
            srHtml = New StreamReader(strmNews)
            strPage = srHtml.ReadToEnd()
            srHtml.Close()
            strmNews.Close()
            wrpResponse.Close()

            intBegin = strPage.IndexOf("/cgi-bin/login.pl?")
            intEnd = strPage.IndexOf(Chr(34), intBegin)
            strId = strPage.Substring(intBegin + 18, intEnd - intBegin - 18)

        Catch ex As Exception
            '  really should do something here
        End Try

        sessionid = strId

    End Sub

End Class