自动登录论坛的代码

HYY514 · 发表于 2010-2-10 19:16

本帖最后由爱疯于 2012-7-17 10:33 编辑

[原创]

以前用VB向网页提交数据时总喜欢使用XMLHPPT对象,或查找网页的对象直接进行操作,效率相当的差,

如果不需要直接接收网页返回的数据,使用浏览器脚本直接POST,效率是相当的高的.

使用这种方法可以实现很高效率的自动登录论坛,自动循环灌水发帖,抢楼拿奖就更不在话下了,不过EP好象限制了发帖间隔必需超过10秒.共享个自动登录的代码,自动灌水的就免了,这个比较敏感...

Private Const sUser As String = "AAA11" '你的用户名
Private Const sPsw As String = "123456" '你的密码
Sub 登录EP()
With CreateObject("InternetExplorer.Application")
    .Navigate "about:blank"
    With .Document
        .Open
        .write "<html><head><meta http-equiv='Content-Type' content='text/html; charset=gb2312' /></head><body onload='abc.submit();'><form name='abc' action='http://www.excelpx.com/login.asp?action=chk' method='post' ><input style='width: 0px;height: 0px;' name='username' type='text' value='" & sUser & "'/><input style='width: 0px;height: 0px;' name='password' type='password' value='" & sPsw & "' /></form></body></html>"
        .Close
    End With
    .Refresh
    .Visible = True
End With
End Sub

[此贴子已经被作者于2010-2-10 19:17:03编辑过]

一剑惊心 · 发表于 2010-2-10 19:18

学习了

爱疯 · 发表于 2010-2-10 19:49

放到工作簿打开事件里，以后开EXCEL就上EP啦[em01]

看不懂，先收藏，谢谢飞版分享

[em27]

lnykwrz · 发表于 2010-2-10 20:17

看不懂，先收藏，谢谢飞版分享

和气生财 · 发表于 2010-4-29 16:06

有谁试验成功过么？

我试验了几次，老是提示用户名或密码不对，或者被管理员锁定，，，，等等出错后网页设置的错误信息。

谢谢共享了。

和气生财 · 发表于 2010-4-29 18:03

那么快就沉底？人工置顶一下，希望别介意。

谢谢啊。

帅 · 发表于 2010-4-29 18:05

好东东，看不懂也要收藏[em04]

leolee82 · 发表于 2010-4-29 21:07

[em04]装了两个工具，打开EXCEL很慢，现在就怕打开EXCEL了

hzg303 · 发表于 2013-10-12 11:11

自动登录论坛的代码

asdfQQ411519917 · 发表于 2014-1-8 08:39

不能发贴，求助，如何编VBA程序，得到原来工作表保护的密码？如果是清除密码，VBA程序代码有范例吗？工作表很多，批量清除密码，另外，只得到工作表保护的原密码比如aa123的密码，能不能在VBA程序上做到？

		自动登录	找回密码
密码			注册

[分享] 自动登录论坛的代码