[AHK]语音播报当前股价

针对文件名中的股票代码语音播报当前股价

例如，本脚本命名为 “语音播报当前股价_000012.ahk”  ，运行之则播报000012 南玻A的当前股价

;作者：sunwind1576157
;功能：针对文件名中的股票代码语音播报当前股价
;日期：2021年5月4日
;更新网址：https://blog.csdn.net/liuyukuan/article/details/116407065

RegExMatch(A_ScriptFullPath,"O)(\d+)",o)
code:=o[1] 

stockName:=StrSplit(获取行情信息(code)[1],"=")[2]
spovice:=ComObjCreate("sapi.spvoice")
spovice.Speak(stockName . "当前报价" . 获取行情信息(code)[4])
return

获取行情信息(_str:="600050") {

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{

	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";

	;2.今日开盘价
	;3.昨日收盘价
	;4.当前价格
	;5.今日最高价
	;6.今日最低价
	;7.竞买价，即买一报价
	;8.竞卖价，即卖一报价
	;9.成交的股票数量(股数)，计算手数应除以100
	;10.成交金额，单位为元
	;11.买一申请股数（股数）
	;12.买一报价 
	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
}