pubmed 文献应助抢单源码

4月302019

作者：绿色风发布：2019-4-30 6:58 Tuesday 分类：源码示例阅读：4349次评论：0条

#PRE_UseX64=n
#PRE_Res_requestedExecutionLevel=None
#by 绿色风
#抢页面中未被应助的最新一单
#EndRegion ;**** 参数创建于 ACNWrapper_GUI ****
#include&lt;array.au3&gt;

Dim $cookie = "你的cookies 可以浏览器中按F12去找你的cookie复制过来"

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 第一步，取最新的 大值 ID
$url="http://paper.pubmed.cn"
Dim $str1 = _XmlHttp($url, $cookie)
Dim $arr = StringRegExp($str1,"wxupload\('(\d+)',.*,.*,.*, '1', '(.*?)'\);.*我来应助",3,1)

If UBound($arr) &lt; 1 Then 
    Exit ;没找到 节点ID 退出 Or 干别的
endif

Dim $a[UBound($arr)/2][2]
Dim $j = 0
For $i = 0 To UBound($arr) -  1 Step 2
    $a[$j][0] = $arr[$i] + 0
    $a[$j][1] = $arr[$i+1]
    $j +=1
Next 
_arraysort($a,1) ;对数组排序，最最大值    
;_arraydisplay($a,"显示当前所有列表")

;MsgBox(0,$a[0][0],$a[0][1])

;构建url 
$url = "http://paper.pubmed.cn/index.php?ac=action&amp;checkAccept=1&amp;aid="&amp;$a[0][0]&amp;"&amp;code="&amp;$a[0][1]
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 第二步，提交数据
$rec = _XmlHttp($url,$cookie)
MsgBox(0,"code="&amp;$a[0][1],$a[0][0] &amp;" --- &gt; "&amp;$rec)

Func _XmlHttp($url, $cookie) ;页面下载 
    $oHTTP = ObjCreate("WinHttp.WinHttpRequest.5.1") ;这里也是个亮点小技巧啦
    $oHTTP.Open("GET", $url, True)
    $oHTTP.SetRequestHeader("User-Agent", "Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/74.0.3729.108 Safari/537.36")
    $oHTTP.SetRequestHeader("Accept-Language", "zh-CN,zh;q=0.9")
    $oHTTP.SetRequestHeader("Accept", "text/html,application/xhtml+xml,application/xml;q=0.9,image/webp,*/*")
    $oHTTP.SetRequestHeader("Referer","http://paper.pubmed.cn/")
    ;$oHTTP.SetRequestHeader("Accept-Encoding","gzip,deflate")
    $oHTTP.SetRequestHeader("Cookie",$cookie)
    $oHTTP.SetRequestHeader("Connection", "Keep-Alive");数据传递完并不立即关闭连接
    $oHTTP.SetRequestHeader("Content-Type", "application/x-www-form-urlencoded; charset=UTF-8");表示客户端提交给服务器文本内容的编码方式
    $oHTTP.SetRequestHeader("Cache-Control", "no-cache");返回消息中的Cache用于指定网页缓存
    $oHTTP.Send()
    $oHTTP.WaitForResponse()
    $oReturnWebS = BinaryToString($oHTTP.ResponseBody, 4)
    ;ConsoleWrite($oHTTP.ResponseBody) 
    Return $oReturnWebS
EndFunc   ;==&gt;_XmlHttp

本文固定链接: http://jianyiit.com/post-307.html