vb登录百度帐号不成功了！高手帮忙
测试时请先添加inet控件,commmend控件各一个
Private Sub Command1_Click()Dim PostDate As StringPostDate = "username=百度帐号&password=密码"Inet1.Execute "https://passport.baidu.com/?login", "POST", PostDate, "Referer: https://passport.baidu.com/?login&tpl=mn" & vbCrLf & "Content-Type: application/x-www-form-urlencoded"End SubPrivate Sub Inet1_StateChanged(ByVal State As Integer)If State = 12 ThenDim strData As StringDim bDone As Boolean: bDone = FalsevtData = Inet1.GetChunk(1024, icString)Do While Not bDonestrData = strData & vtDataDoEventsvtData = Inet1.GetChunk(1024, icString)If Len(vtData) = 0 ThenbDone = TrueEnd IfLoopText1.Text = strDataEnd IfEnd Sub
