ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 效率神器,一键搞定繁琐工作
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
让更多数据处理,一键完成 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南

[原创] 一键整理EH已回复历史帖,翻找借鉴自己的答案更方便!

[复制链接]

TA的精华主题

TA的得分主题

发表于 2014-6-7 20:16 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
http://club.excelhome.net/forum. ... p;page=2#pid6522915
这是我查看我参与过的帖子的网址,没有uid哦

TA的精华主题

TA的得分主题

 楼主| 发表于 2014-6-7 20:33 | 显示全部楼层
sunny_8848 发表于 2014-6-7 20:16
http://club.excelhome.net/forum.php?mod=viewthread&tid=881789&page=2#pid6522915
这是我查看我参与过的 ...

不是这个意思 是你个人页面的uid
sunny_8848的个人空间
http://club.excelhome.net/?986562

TA的精华主题

TA的得分主题

发表于 2014-6-7 21:27 | 显示全部楼层
删空后 k=-1 出错

Public Sub GetDate(Text$)
    Dim i&, j&, txt$, k&, objTab
   

Dim r, arr
    oDoc.body.innerHTML = Text$
    Set objTab = oDoc.getElementsByTagName("table").Item(3).getElementsByTagName("th")
    k = objTab.Length - 1
    ReDim arr(1 To 3, 1 To k)

TA的精华主题

TA的得分主题

发表于 2014-6-7 21:52 | 显示全部楼层
百度不到去谷歌 发表于 2014-6-7 20:33
不是这个意思 是你个人页面的uid
sunny_8848的个人空间
http://club.excelhome.net/?986562

            .Open "GET", "http://club.excelhome.net/home.php?mod=space&uid=986562&do=thread&view=me&type=reply&order=dateline&page=" & i & "&x=" & Rnd, False
是改成上面这样的吗,也不行呢

TA的精华主题

TA的得分主题

 楼主| 发表于 2014-6-7 22:04 | 显示全部楼层
sunny_8848 发表于 2014-6-7 21:52
.Open "GET", "http://club.excelhome.net/home.php?mod=space&uid=986562&do=thread&view=m ...

前提是你在浏览器中打开并登陆了eh论坛 我这里是没问题的

TA的精华主题

TA的得分主题

发表于 2014-6-7 22:53 | 显示全部楼层
本帖最后由 wcymiss 于 2014-6-7 22:54 编辑

uid=******换成 username=用户名 也行的。省的去找uid了。
比如:uid=2617308换成 username=百度不到去谷歌

另外,还是有个方法可以不登录就查看其他用户的回帖和主题的。估计是网页的一个小bug。。

TA的精华主题

TA的得分主题

 楼主| 发表于 2014-6-7 23:29 | 显示全部楼层
wcymiss 发表于 2014-6-7 22:53
uid=******换成 username=用户名 也行的。省的去找uid了。
比如:uid=2617308换成 username=百度不到去谷歌 ...

多谢指教,倒是没试过直接用名字的 这个是方便多了 不过貌似提交的时候要转码一下 我加个转码函数重新发一个吧
登陆倒无所谓了 用这个功能肯定是eh重度用户 必然是自动登录了

TA的精华主题

TA的得分主题

 楼主| 发表于 2014-6-7 23:49 | 显示全部楼层
wcymiss 发表于 2014-6-7 22:53
uid=******换成 username=用户名 也行的。省的去找uid了。
比如:uid=2617308换成 username=百度不到去谷歌 ...

试了下在地址栏用用户名输入代替uid是可以的 事实上地址栏用uid=
什么都不填也是得到自己的回复 但是用get网址方式就不行了 转码了发送也不行
不知道你能不能看看在代码里用用户名代替 如何写呢?

TA的精华主题

TA的得分主题

发表于 2014-6-8 00:05 | 显示全部楼层

TA的精华主题

TA的得分主题

 楼主| 发表于 2014-6-8 00:08 | 显示全部楼层
本帖最后由 百度不到去谷歌 于 2014-6-8 00:21 编辑
wcymiss 发表于 2014-6-8 00:05
用GET的话,首先要登录获取cookie才行。


试了下 确实不需要登陆直接通过任意人的uid就可以得到该账号的回复信息(我觉得应该是我们自动登陆的ck被系统获取了)
只是查看了网页提交的过程 是从ck里得到uid的
而现在的问题eh要是代码登陆 验证码问题无法解决
什么方法可以从已手工登陆的情况下 取出ck呢?
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-11-22 05:54 , Processed in 0.029834 second(s), 6 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表