[股票]实时获取股票价格

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