csdnlogin.vb

CSDN V3.0 使用VB。Net开发 可以使用该助手访问CSDN

Public Class CsdnLogin
    Inherits comm.HttpProc

    Private _UserName As String
    Private _Pass As String
    Private _ImgCode As String

    Sub New(ByVal UserName As String, ByVal Pass As String, ByVal ImgCode As String, ByVal Cookies As Net.CookieCollection, ByVal __VIEWSTATE As String, ByVal ClientKey As String, ByVal __EVENTVALIDATION As String)
        MyBase.New(comm.Comm.CSDN_COMINITY_LOGIN_URL, Cookies)
        Me.strPostdata = "__EVENTTARGET=&__EVENTARGUMENT=&__VIEWSTATE=" & __VIEWSTATE & "&CSDNUserLogin%3Atb_UserName=" & UserName & "&CSDNUserLogin%3Atb_Password=" & Pass & "&ClientKey=" & ClientKey & "&CSDNUserLogin%3Atb_ExPwd=" + ImgCode + "&CSDNUserLogin%3Acb_SaveState=on&from=passport.aspx&__EVENTVALIDATION=" & __EVENTVALIDATION & "&CSDNUserLogin%3AImage_Login.x=37&CSDNUserLogin%3AImage_Login.y=9"
    End Sub

    Public Function Login(ByVal showMsg As Boolean) As Boolean
        Me.Proc()
        Dim strHtml As String
        strHtml = Me.ResHtml
        If (strHtml.IndexOf("密码或帐号不正确") > 0) Then
            If showMsg Then
                MessageBox.Show("错误：密码或帐号不正确!!")
            End If
            Return False
        End If
        If (strHtml.IndexOf("没有这个用户") > 0) Then
            If showMsg Then
                MessageBox.Show("错误：没有这个用户!!")
            End If
            Return False
        End If
        If (strHtml.IndexOf("请不要暴力破解密码") > 0) Then
            If showMsg Then
                MessageBox.Show("错误：登陆太频繁，服务器认为在暴力破解密码!!")
            End If
            Return False
        End If
        If (strHtml.IndexOf("错误代码:") > 0) Then
            If showMsg Then
                MessageBox.Show("未知错误，请查看响应：" & strHtml)
            End If
            Return False
        End If
        If (strHtml.IndexOf("附加码不正确") > 0) Then
            If showMsg Then
                MessageBox.Show("附加码不正确")
            End If
            Return False
        End If
        If ((strHtml.IndexOf("您好，您已经成功登录") > 0) Or (strHtml.IndexOf("您这个账号正在频繁登录中") > 0)) Then
            If showMsg Then
                MessageBox.Show("成功登录！")
            End If
            Return True
        End If
        Return False

     
    End Function

End Class