首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

vb登录百度帐号不成功了!好手帮忙

2013-01-07 
vb登录百度帐号不成功了!高手帮忙本帖最后由 atfeel 于 2011-08-27 16:55:30 编辑测试时请先添加inet控件,

vb登录百度帐号不成功了!高手帮忙
本帖最后由 atfeel 于 2011-08-27 16:55:30 编辑 测试时请先添加inet控件,commmend控件各一个



Private Sub Command1_Click()
Dim PostDate As String
PostDate = "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 Sub

Private Sub Inet1_StateChanged(ByVal State As Integer)
If State = 12 Then
Dim strData As String
Dim bDone As Boolean: bDone = False
vtData = Inet1.GetChunk(1024, icString)
Do While Not bDone
strData = strData & vtData
DoEvents
vtData = Inet1.GetChunk(1024, icString)
If Len(vtData) = 0 Then
bDone = True
End If
Loop
Text1.Text = strData
End If
End Sub



[解决办法]
不太能看懂。坐等高手前来解答

热点排行