chu007 发表于 2012-6-5 21:40:31

autoit能实现网页后台自动回复么

本帖最后由 chu007 于 2012-6-5 21:42 编辑

小弟初来,接触过AutoHotKey,能实现前台网页自动回复 ,但是后台么,看完了全部帮助文档,没看到想要的。
也接触过按键精灵,可以用WQM实现,但是很不稳定,会因为网络原因,点到其他地方去。
希望大贤能不吝赐教,就此谢过了。能举个例子了就更好了。

ebhb 发表于 2012-6-5 21:41:31

完全没问题,用xmlhttp就行了

chu007 发表于 2012-6-5 21:46:19

完全没问题,用xmlhttp就行了
ebhb 发表于 2012-6-5 21:41 http://www.autoitx.com/images/common/back.gif


    比如在这里http://bbs.lanlue.com/read-htm-tid-90027.html
要求引用回复,应该怎么写?谢谢。

ebhb 发表于 2012-6-5 21:46:53

给你一个自动登录的代码#include <IE.au3>

Func _Post_Login($Name,$Pass)
$oHTTP = ObjCreate("Msxml2.xmlhttp")
$oHTTP.Open("Post","http://www.autoitx.com/logging.phpaction=login",false)
$oHTTP.setRequestHeader("Cache-Control", "no-cache")
$oHTTP.setRequestHeader("Content-Type","application/x-www-form-urlencoded")
$oHTTP.setRequestHeader("Referer","http://www.autoitx.com")
$oHTTP.Send('sid=dJ6jji&formhash=aa9fb561&referer=&cookietime=2592000&loginfield=username&username=' & $Name & '&password=' & $Pass & '&questionid=0&answer=&loginsubmit=%BB%E1%D4%B1%B5%C7%C2%BC')
$Log = BinaryToString($oHTTP.responseBody)
$Log = _Search($Log,'<p>(.*)<script>')
MsgBox(64,"提示:",$Log)
EndFunc

Func _Search($Txt,$Condition)
Local $Result
$array = StringRegExp($Txt,$Condition, 2, 1)
for $i = 0 to UBound($array) - 1
    $Result = $array[$i]
      Next
Return $Result
EndFunc

$Name= "论坛的账号"
$Pass= "论坛的密码"

_Post_Login($Name,$Pass)
_IECreate ("http://www.autoitx.com/",1,1,0)

hzxymkb 发表于 2012-6-5 22:41:03

用POST搞定,收工!

chu007 发表于 2012-6-5 23:00:08

用POST搞定,收工!
hzxymkb 发表于 2012-6-5 22:41 http://www.autoitx.com/images/common/back.gif


    能举个代码示例么,我在看帮助文档,还没找到啊。

zerobin 发表于 2012-6-5 23:24:28

回复 6# chu007


    大大们提供思路了

ebhb 发表于 2012-6-5 23:29:20

要先登录取得cook,然后用这个cook再加上要回复的内容post就行了

andersonljw 发表于 2012-6-5 23:36:31

用POST提交试验一下,论坛搜索POST即可。。

my788522 发表于 2012-6-6 00:22:05

http://www.autoitx.com/thread-29345-1-1.html
可以看看我的帖子 DZ抢楼工具
页: [1]
查看完整版本: autoit能实现网页后台自动回复么