VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)

VB爱好者乐园(VBGood)

 找回密码
 立即注册
搜索
查看: 3155|回复: 3

[原创] 用xmlhttp登录7k7k并用动态WebBrowser验证登录结果

[复制链接]
发表于 2015-9-15 17:48:09 | 显示全部楼层 |阅读模式

用xmlhttp登录7k7k,并用动态WebBrowser验证登录结果,直接上代码:
Dim web1 As Object
Private Sub Form_Load()
Set web1 = Me.Controls.Add("SHELL.EXPLORER.2", "web1", Me)
web1.Visible = True
web1.Move 0, 0, 1020, 744
web1.object.Silent = True
Set xmlhttp = CreateObject("Microsoft.XMLHTTP")
xmlhttp.open "POST", "http://zc.7k7k.com/post_login", False
xmlhttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
xmlhttp.setRequestHeader "Connection", "Keep-Alive"
xmlhttp.send ("username=tst7k01&password=tst7k01")
web1.object.Navigate "http://www.7k7k.com", 0
Set xmlhttp = Nothing
End Sub
源码文件:

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
发表于 2017-5-2 11:37:45 | 显示全部楼层
这个例子好,如果有更好的,请再发。。。受教了
回复 支持 反对

使用道具 举报

发表于 2018-4-27 18:24:48 | 显示全部楼层
好东西,值得学习。
回复 支持 反对

使用道具 举报

发表于 2021-10-12 19:19:34 | 显示全部楼层
谢谢楼主,谢谢楼主,谢谢楼主,
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

文字版|手机版|小黑屋|VBGood  

GMT+8, 2022-5-29 03:55

VB爱好者乐园(VBGood)
快速回复 返回顶部 返回列表