自动化下单的关键输入数据是：买哪只股票（从触发信号中获取），什么价格（本文要解决的），多大仓位（这就要看你钱包大小）
![[股票]实时获取股票价格](https://img-blog.csdnimg.cn/img_convert/63c4353e68b96b789ab1cc39e6212f5e.png)
msgbox % obj2str(获取最新行情("sz000012"))
return
获取最新行情(_str:="sz002682")
{
if(StrLen(_str)>=6)
{
StringRight,stockCode,_str,6
StringLeft,flag,stockCode,2
if (flag=60 or flag=68){
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")
URL=http://qt.gtimg.cn/q=%stockCode%
WebRequest.Open("GET", URL)
WebRequest.Send()
WebRequest.WaitForResponse()
response := WebRequest.ResponseText
_arr:=StrSplit(response,"~")
Return _arr
}
Obj2Str(obj) {
str := "" , array := true
for k in obj {
if (k == A_Index)
continue
array := false
break
}
for a, b in obj
str .= (array ? "" : "'" a "': ") . (IsObject(b) ? Obj2Str(b) : "'" b "'") . ", "
str := RTrim(str, " ,")
return (array ? "[" str "]" : "{" str "}")
}
;————————————————
;版权声明：本文为CSDN博主「liuyukuan」的原创文章，遵循CC 4.0 BY-SA版权协议，转载请附上原文出处链接及本声明。
;原文链接：https://blog.csdn.net/liuyukuan/article/details/128563144
