[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
  1. Set XmlHttp=CreateObject("MSxml2.XMLHTTP")
  2. XmlHttp.Open "GET","http://blog.sina.com.cn/rss/shuchang.xml",false
  3. XmlHttp.Send
  4. msgbox XmlHttp.ResponseXML.xml
复制代码
利用DOM什么的分解出这个xml文档就可以了
1

评分人数

TOP

要验证码呀,想法夭折了~~~~~

TOP

嘿嘿,那怎么办????

TOP

回复 18楼 的帖子

只能半自动化了。验证码自己输入:(

TOP

正在写这个半自动化的程序的代码的时候,畅姐又发表了一篇日志,没抢到沙发,遗憾之至!!!!!

TOP

回复 20楼 的帖子

沙发被我抢到了!~O(∩_∩)O~
心绪平和,眼藏静谧。

TOP

呵呵,对这个还这么感兴趣啊?追星?
不过我倒是真写过一个半自动注册的(手动输入验证码),当初是为了伪造一些数据,呵呵。

TOP

回复 21楼 的帖子:
pusofalse版主,不会是全手动的吧?代码放出来?

回复 22楼 的帖子:
呵呵,主要是想玩一下,看用VBS能实现不:)

TOP

那个验证码,用ie.app来获取的话,好像不会变

TOP

回复 23楼 的帖子

- - 是,我是全手动的。。。
用批处理这事做不来,也不会VBS,所以就想用au3来判断是否更新。
寻找突破口时,碰巧发表了一篇新日志,所以我就抢到沙发了~~O(∩_∩)O~~
心绪平和,眼藏静谧。

TOP

回复 24楼 的帖子:
真的可以么?试试先……

回复 25楼 的帖子:
运气相当好啊!

TOP

暂时的思路是判断日志链接,并把第一次检测到的链接1写入到文件,然后将之后判断出的链接与链接1作比较,如果不相等则是新日志。。。
  1. #include <IE.Au3>
  2. $Ie = _IECreate ("http://blog.sina.com.cn/shuchang", 0, 0, 1)
  3. $Link = _IELinkGetCollection ($Ie)
  4. $Suffix = "http://blog.sina.com.cn/s/blog_49aaa[^_]*\.htmlfalse"
  5. For $ele In $Link
  6.         $error = StringRegExp ($ele.href & "false", $Suffix, 1)
  7.         If IsArray($error) Then
  8.                 $Links = $error[0]
  9.                 ExitLoop
  10.         EndIf
  11. Next
  12. _IEQuit ($Ie)
  13. $Links = StringTrimRight ($Links, 5)
  14. FileWrite ("link.x", $Links)
  15. MsgBox (0, "", $Links)
复制代码
测试程序在我的网盘里,“舒畅沙发.rar”
http://pusofalse.ys168.com/ 密码bathome
只做到了判断出新链接,添加回复那里总是找不到表格的正确位置,我想总不能用send或sendkey来完成吧,还有验证码的问题。。。

[ 本帖最后由 pusofalse 于 2008-11-11 20:16 编辑 ]
1

评分人数

    • rat: pusofalse版主很实诚!!!PB + 10
心绪平和,眼藏静谧。

TOP

原帖由 everest79 于 2008-11-11 15:17 发表
那个验证码,用ie.app来获取的话,好像不会变

兄的意思是可以自动填入验证码么?


还有,可不可以把新打开的IE的视图用语句直接定位到底部,而不用拉右边的滚动条

TOP

window.scroll x,y这个我不知道怎么转化到vbs文件中来执行,网页中加载脚本可以直接使用window对象,但在脚本中不行
1

评分人数

    • rat: Thanks for your reply. Now I see.PB + 8

TOP

具体你怎么实现可要贴代码上来

TOP

返回列表