[AHK]获取期货行情

AHK获取期货行情

;作者: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
}