[讨论]VBS抢占舒畅博客的沙发

everest79

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文档就可以了

rat

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

everest79

嘿嘿，那怎么办????

rat

只能半自动化了。验证码自己输入：（

rat

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

pusofalse

沙发被我抢到了！~O(∩_∩)O~

youxi01

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

rat

回复 21楼 的帖子：
pusofalse版主，不会是全手动的吧？代码放出来？

回复 22楼 的帖子：
呵呵，主要是想玩一下，看用VBS能实现不：）

everest79

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

pusofalse

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

rat

回复 24楼 的帖子：
真的可以么？试试先……

回复 25楼 的帖子：
运气相当好啊！

pusofalse

暂时的思路是判断日志链接，并把第一次检测到的链接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 编辑 ]

rat

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

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


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

everest79

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

everest79

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