AHK获取期货行情
![转载|liuyukuan|[AHK]获取期货行情](https://cdn.autoahk.com/wp-content/uploads/2020/02/3486dcc531e64bd25.png)
;作者:sunwind
;时间:2019年8月22日17:51:29
;功能:获取股票、期货价格
;最新版本:https://blog.csdn.net/liuyukuan/article/details/100019615#z::
;~ code:=”sh600066″ ;好用
;~ code:=”000012″ ;好用
code:=”300163″ ;好用
;~ code:=”M0″ ;好用
;~ code:=”SR2001″ ;好用;~ URL=http://hq.sinajs.cn/list=M0
;~ code:=”SR2001″
;~ code:=”000012″arr:=获取行情信息(code)
股价:=arr[4]
股票名称:=arr[1]TrayTip , % arr[1], % “当前价格:” arr[4]
return;股票标准入参格式：
;sh600066 sh上海 sz深圳;股票非标入参格式：
;或者600050
;或者7600050
;会被统一转换为sh600066;期货标准入参格式：
;SR2001获取行情信息(_str:=”sh600050″) {
if(StrLen(_str)>=6)
{
;形如 600050 或 SR2001
StringRight,stockCode,_str,6
StringLeft,flag,stockCode,2
if (flag=60){
pre:=”sh”
}else if (flag=00 or flag=30){
pre:=”sz”
}else{
pre:=””
}
stockCode:=pre . stockCode
}else{
;形如 “M0”
stockCode:=_str
}WebRequest := ComObjCreate(“WinHttp.WinHttpRequest.5.1″)
n:=13
start:=10**(n-1)
end:=(10**n)-1
Random, rand, start, end
;~ URL=http://hq.sinajs.cn/rn=%rand%&list=%stockCode%
;~ var hq_str_sh600066=”宇通客车,15.050,14.980,15.600,15.920,14.920,15.590,15.600,51871998,802070840.000,18800,15.590,66900,15.580,129500,15.570,209400,15.560,13400,15.550,7456,15.600,73100,15.610,62400,15.620,38000,15.630,4300,15.640,2019-04-17,15:00:03,00”;;1.今日开盘价
;2.昨日收盘价
;3.当前价格
;4.今日最高价
;5.今日最低价
;6.买一
;7.卖一
URL=http://hq.sinajs.cn/rn=%rand%&list=%stockCode%WebRequest.Open(“GET”, URL)
WebRequest.Send()
WebRequest.WaitForResponse()
response := WebRequest.ResponseText
StringReplace,response,response,var hq_str_,`”
if InStr(response,”Failed”)
MsgBox “Failed”
arr:=StrSplit(response,”,”)
Return arr
}
脚本失效，原链接看了一下作者不更新了，我改了一下 ;作者:sunwind ;时间:2019年8月22日17:51:29 ;功能:获取股票、期货价格 ;最新版本:https://blog.csdn.net/liuyukuan/article/details/100019615 ;~ code:=”sh600066″ ;好用 ;~ code:=”000012″ ;好用 code:=”002031″ ;好用 ;~ code:=”M0″ ;好用 ;~ code:=”SR2001″ ;好用 ;~ URL=http://hq.sinajs.cn/list=M0 ;~ code:=”SR2001″ ;~ code:=”000012″ arr:=获取行情信息(code) 股价:=arr[4] 股票名称:=arr[1] TrayTip , % arr[1], % “当前价格:” arr[4] return ;股票标准入参格式： ;sh600066 sh上海 sz深圳 ;股票非标入参格式： ;或者600050 ;或者7600050 ;会被统一转换为sh600066 ;期货标准入参格式： ;SR2001 获取行情信息(_str:=”sh600050″) { if(StrLen(_str)>=6) { ;形如 600050 或 SR2001 StringRight,stockCode,_str,6 StringLeft,flag,stockCode,2 if (flag=60){ pre:=”sh” }else if (flag=00 or flag=30){ pre:=”sz” }else{ pre:=”” } stockCode:=pre . stockCode }else{ ;形如 “M0” stockCode:=_str } WebRequest := ComObjCreate(“WinHttp.WinHttpRequest.5.1″) n:=13 start:=10**(n-1) end:=(10**n)-1 Random, rand, start, end ;~ URL=http://hq.sinajs.cn/rn=%rand%&list=%stockCode% ;~ var hq_str_sh600066=”宇通客车,15.050,14.980,15.600,15.920,14.920,15.590,15.600,51871998,802070840.000,18800,15.590,66900,15.580,129500,15.570,209400,15.560,13400,15.550,7456,15.600,73100,15.610,62400,15.620,38000,15.630,4300,15.640,2019-04-17,15:00:03,00”; ;1.今日开盘价 ;2.昨日收盘价 ;3.当前价格 ;4.今日最高价 ;5.今日最低价 ;6.买一 ;7.卖一 URL=http://hq.sinajs.cn/rn=%rand%&list=%stockCode% WebRequest.Open(“GET”, URL) WebRequest.setRequestHeader(“Referer”, “https://finance.sina.com.cn”) WebRequest.Send() WebRequest.WaitForResponse() response := WebRequest.ResponseText StringReplace,response,response,var hq_str_,`” if InStr(response,”Failed”) MsgBox “Failed” arr:=StrSplit(response,”,”) Return arr }