checklogin.vb

来自「CSDN V3.0 使用VB。Net开发 可以使用该助手访问CSDN」· VB 代码 · 共 60 行

''' <summary>
''' 登陆检查类
''' </summary>
''' <remarks></remarks>
Public Class CheckLogin
    Inherits comm.HttpProc


    Private _hasLogined As Boolean
    ''' <summary>
    ''' 获取检查结果是不是成功
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public ReadOnly Property hasLogined() As Boolean
        Get
            Return _hasLogined
        End Get
    End Property

    Private _lvi As ListViewItem
    Private _ett As entity_TB_LoginUser

    Sub New(ByVal ett As entity_TB_LoginUser)
        MyClass.New(Nothing, ett)
    End Sub

    Sub New(ByVal lvi As ListViewItem, ByVal ett As entity_TB_LoginUser)
        MyBase.New(comm.Comm.CSDN_COMINITY_CHECK_LOGIN_URL)

        Dim cl As New Net.CookieCollection
        cl.Add(New System.Net.Cookie("ABCDEF", ett.ABCDEF, "/", "csdn"))
        cl.Add(New System.Net.Cookie("QWERTOP", ett.QWERTOP, "/", "csdn"))
        cl.Add(New System.Net.Cookie("userid", ett.Userid, "/", "csdn"))
        Me.cookiePost = cl
        Me.encoding = System.Text.Encoding.UTF8
        _lvi = lvi
        _ett = ett

    End Sub

    Public Sub Check()
        'If Not _lvi Is Nothing Then
        '    _lvi.SubItems(0).Text = "验证中。。"
        'End If
        Me.Proc()
        If Len(Me.ResHtml) > 0 Then
            If Me.ResHtml.IndexOf(_ett.UserName) > 0 Then
                _hasLogined = True
            End If
        End If
        'If Not _lvi Is Nothing Then
        '    _lvi.SubItems(0).Text = "有效"
        'End If

    End Sub

End Class