post登陆csdn

这个都是老油条了,cbm666教学群既然有人问出来那我就写个吧 really very easy

'新建3个Textbox分别对应帐号、密码、验证码,再拉个图片框，一个按钮
Private Declare Function MultiByteToWideChar Lib "kernel32" (ByVal CodePage As Long, ByVal dwFlags As Long, ByVal lpMultiByteStr As Long, ByVal cchMultiByte As Long, ByVal lpWideCharStr As Long, ByVal cchWideChar As Long) As Long
Private Const CP_UTF8 = 65001
Dim b As Boolean, a As Integer

Function Utf8ToUnicode(ByRef Utf() As Byte) As String
    Dim lRet As Long
    Dim lLength As Long
    Dim lBufferSize As Long
    lLength = UBound(Utf) - LBound(Utf) + 1
    If lLength <= 0 Then Exit Function
    lBufferSize = lLength * 2
    Utf8ToUnicode = String$(lBufferSize, Chr(0))
    lRet = MultiByteToWideChar(CP_UTF8, 0, VarPtr(Utf(0)), lLength, StrPtr(Utf8ToUnicode), lBufferSize)
    If lRet <> 0 Then
        Utf8ToUnicode = Left(Utf8ToUnicode, lRet)
    Else
        Utf8ToUnicode = ""
    End If
End Function
                                                                    
Private Sub Command1_Click()
    b = False: a = 1
    Dim PostDate As String
    If Inet1.StillExecuting = True Then Exit Sub
    PostDate ="__EVENTTARGET=&__EVENTARGUMENT=&__VIEWSTATE=%2FwEPDwUJNTA4NzY2NTMwD2QWAmYPZBYEAgEPFgIeBFRleHQFDOeUqOaIt%2BeZu%2BW9lWQCAg9kFgICAw9kFgICAQ8WAh4HVmlzaWJsZWhkGAEFHl9fQ29udHJvbHNSZXF1aXJlUG9zdEJhY2tLZXlfXxYCBR5jdGwwMCRDUEhfQ29udGVudCRjYl9TYXZlU3RhdGUFHWN0bDAwJENQSF9Db250ZW50JEltYWdlX0xvZ2luxWA%2BpQgsHfjBQYEXmW4gNI3VsvqzBlpgeYAZ2vOxcnU%3D&ctl00%24CPH_Content%24tb_LoginNameOrLoginEmail="& Text1.Text & "&ctl00%24CPH_Content%24tb_Password=" & Text2.Text &"&ctl00%24CPH_Content%24tb_ExPwd=" & Text3.Text & "&ClientKey=2771e5d4-25fe-442d-aa5f-ce237b730b8b&from=http%3A%2F%2Fhi.csdn.net%2F&PrePage=&MailParameters=&ctl00%24CPH_Content%24Image_Login.x=0&ctl00%24CPH_Content%24Image_Login.y=0"
    Inet1.Execute "", "POST", PostDate,"Referer: " & vbCrLf & "Content-Type: application/x-www-form-urlencoded"
End Sub
                                                                         
Private Sub Form_Load()
    b = True
    Inet1.Execute "", "GET", "","Referer:" & vbCrLf & "Content-Type: application/x-www-form-urlencoded"
End Sub
                                                                         
Private Sub Inet1_StateChanged(ByVal State As Integer)
    If State = 12 Then
        Dim Buff() As Byte
        Buff = Inet1.GetChunk(0, icByteArray)
        If b = False Then
            If InStr(Utf8ToUnicode(Buff), "您好，您已经成功登录。") <> 0 Then
                Me.Caption = "登陆成功"
            Else
                Me.Caption = "登陆失败"
            End If
            Text4.Text = Utf8ToUnicode(Buff)
        Else
            Open App.Path & "\1.jpg" For Binary As #1
                Put #1, , Buff
            Close #1
            Picture1.Picture = LoadPicture(App.Path & "\1.jpg")
        End If
    End If
End Sub 


CSDN更新了改变了包的内容,那我也变下 

PostDate = "__EVENTTARGET=&__EVENTARGUMENT=&__VIEWSTATE=%2FwEPDwUJNTA4NzY2NTMwD2QWAmYPZBYEAgEPFgIeBFRleHQFDOeUqOaIt%2BeZu%2BW9lWQCAg9kFgICAw9kFgICAQ8WAh4HVmlzaWJsZWhkGAEFHl9fQ29udHJvbHNSZXF1aXJlUG9zdEJhY2tLZXlfXxYCBR5jdGwwMCRDUEhfQ29udGVudCRjYl9TYXZlU3RhdGUFHWN0bDAwJENQSF9Db250ZW50JEltYWdlX0xvZ2luupdkGUfcv6ZAaLuZMeG49hnqvivOXhcOm%2FcKwd1clvk%3D&ctl00%24CPH_Content%24tb_LoginNameOrLoginEmail=" & Text1.Text & "&ctl00%24CPH_Content%24tb_Password=" & Text2.Text & "&ctl00%24CPH_Content%24tb_ExPwd=" & Text3.Text & "&ClientKey=0123c82c-6524-4201-9895-2c49ea1ef0bb&from=http%3A%2F%2Fhi.csdn.net%2F&PrePage=&MailParameters=&ctl00%24CPH_C