everest79

验证码咋办？？？？？？？

everest79

列表中有发表时间，取最新的一个保存下来大概就可以了
增加一个逻辑功能，每天脚本开始时先检测时间最新的文章有没留言，留了就取这个时间当标准，没留就抢了沙发现拿这时间当标准
这方面我不熟，那么兄台写了贴上来我也学习下

everest79

新链接有直接提取的方法吗，要是对比，还得在本地缓存，还不如拿时间来检查

everest79

Set XmlHttp=CreateObject("MSxml2.XMLHTTP")
XmlHttp.Open "GET","http://blog.sina.com.cn/rss/shuchang.xml",false
XmlHttp.Send
msgbox XmlHttp.ResponseXML.xml
复制代码

利用DOM什么的分解出这个xml文档就可以了

everest79

嘿嘿，那怎么办????

everest79

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

everest79

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

everest79

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

everest79

我觉得要弄这个，最好是用dhtml，用框架，上边显示操作，下边显示引用网页，这样所有的对象都是在一个window的子window中，处理起来也蛮方便，设想，没去试

everest79

刚刚创建的blog，通过对rat脚本的学习，终于搞懂了如何获取特定标签内容
参考内容：
http://www.w3school.com.cn/x.asp
http://blog.csdn.net/wf520pb/archive/2008/07/12/2644549.aspx

Const RSSPath="http://blog.sina.com.cn/rss/everest79.xml"
Dim Xml
Set Xml=CreateObject("Msxml2.XMLHTTP")
Xml.Open "Get",RSSPath,Fasle
Xml.Send
'SelectSingleNode只返回符合路径的第一个结果
msgbox Xml.ResponseXML.SelectSingleNode("/rss/channel/item/link").Text

'getElementsByTagName返会所有包含"title"节点的集合，需要枚举
For Each x In Xml.ResponseXML.getElementsByTagName("title")
Msgbox x.Text
Next

'SelectNodes类似于getElemnetByTagName，但可以指定路径
For Each x In Xml.ResponseXML.SelectNodes("/rss/channel/item/link")
Msgbox x.Text
Next
复制代码

everest79

学习作品，发现新浪的验证码是根据进程变化的，所以就先填验证码，要是发现有新贴就自动发贴了，没用记录文件，写注册表里了，循环还不完善

Const REGPath="HKCU\Software\ScriptAuto\Temp\"
Const RSSPath="http://blog.sina.com.cn/rss/everest79.xml"
Const Checkwd="http://vlogin.blog.sina.com.cn/myblog/checkwd_image.php"
Const iInterval=30


Dim Wsh,Xml,oIe,CheckID,oLink
Set Wsh=CreateObject("WScript.Shell")
Set Xml=CreateObject("Msxml2.XMLHTTP")


Do While True
Set oIe=CreateObject("InternetExplorer.Application")
CheckIN
oLink=sRunLog
CheckLinks
PostLink GetXmlLink
WScript.Sleep 10000
oIe.Quit
Set oIe=Nothing
WScript.Sleep 10000
Loop

Sub CheckIN
oIe.Navigate Checkwd 
oIe.Visible=1
CheckID=Inputbox("请输入验证码!","BatHome 2008") '验证码是针对进程变化的，相同进程验证码相同，几小
oIe.Visible=0
End Sub

Function sRunLog
On Error Resume Next
Do
If Err.Number <> 0 Then
Wsh.RegWrite REGPath,GetXmlLink
Err.Clear
End If
sRunLog=Wsh.RegRead(REGPath)
Loop While Err.Number <> 0
End Function

Sub CheckLinks
Do While StrComp(oLink,GetXmlLink,1) = 0
WScript.Sleep iInterval*1000
Loop
End Sub

Sub PostLink(nLink)
With oIe
.Navigate nLink 
Do While .Busy Or .ReadyState <> 4
WScript.Sleep 500
Loop
.Document.All("anonymity_name").Value="性浪"
.Document.All("commentArea").Value="好大的一根毛呀"
.Document.All("anonymity").Checked=True
.Document.All("login_check").Value=CheckID
'.Document.All("modifyTitle").Href="#post"
'WScript.Sleep 1000
'.Document.All("modifyTitle").Click
.Document.All("comment_post_btn").Click
End With
Wsh.RegWrite REGPath,nLink
End Sub

Function GetXmlLink
Xml.Open "Get",RSSPath,Fasle
Xml.Send
GetXmlLink=Xml.ResponseXML.SelectSingleNode("/rss/channel/item/link").Text
End Function
复制代码

everest79

出现下载图片是IE的问题，有些IE扩展组件没有激活，好像是什么补丁，不过可以通过打开空白页，然后写入<IMG SRC=Checkwd>这样来显示图片

这个验证码在同一进程下不会变化，最长是多长时间还不清楚，例如你PID为228的进程创建了显示图片的网页，那在PID228下的所有IE线程请求这个页面得到的验证码都是一样的，刷新只是字体变化

everest79

Do
Audio=.Document.parentWindow.ExecScript("callAudioCheck();","javascript")
CheckID=Inputbox("请输入验证码!","BatHome 2008")
Loop Whlie CheckID = ""
复制代码

这个方法可行，嘿嘿，一定不会错