aaa4079 aaa4079
关注数: 0 粉丝数: 0 发帖数: 114 关注贴吧数: 0
贴吧专用工具终于完工--感谢VB吧--很多不错的思路和关键步骤来至这 等下发布WEB版地源码！代码很凌乱，可以看看思路~！
士大夫 使得该发生大幅
没事情翻什么老帖子？郁闷-------浪费感情~！~！~！ 没事情翻什么老帖子？郁闷-------浪费感情~！~！~！
还有有问题啊~！ 百度的post的包，研究一天无果~！
biaoti neirong
xintiezi nei00000000000000rong
POST登陆百度，帮忙看看，指导错误!!!! Private Sub Command1_Click() 如题，Inet1 POST找不到正确的my_head ,谁来纠正下！登陆后Inet1 的cookie 直接继承？ Dim myurl As String, send_data As String, my_head As String myurl = "http://tieba.baidu.com/mo/q/checkurl?url=https%3A%2F%2Fpassport.baidu.com%2F%3Flogin&urlrefer=9f6908242a99b724962cad8165b0438f" send_data = "&username=aaa4079&password=aaa408&u=http://tieba.baidu.com/mo/q/checkurl?url=https%3A%2F%2Fpassport.baidu.com%2F%3Flogin%26return_method%3Dget%26psp_tt%3D0%26safeflg%3D%26isphone%3Dfalse&urlrefer=7dbd66ea263c7aaa7d8c6e6857c24fbd" my_head = my_head & "Referer: http://tieba.baidu.com/mo/q/checkurl?url=https%3A%2F%2Fpassport.baidu.com%2F%3Flogin&urlrefer=9f6908242a99b724962cad8165b0438f" & vbCrLf my_head = my_head & "Accept-Language: zh-cn" & vbCrLf my_head = my_head & "Content-Type: application/x-www-form-urlencoded" & vbCrLf my_head = my_head & "User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.2; SV1; .NET CLR 1.1.4322)" Inet1.Execute myurl, "POST", send_data, my_head End Sub
asdasd aaaaaa
1 下一页