超难度，获取token值抓取数据！

Function urlhtm(UrlSend)
set xhp=createobject("microsoft.xmlhttp")
xhp.open "get",UrlSend,false
xhp.send
Set MyStream=CreateObject("Adodb.Stream")
MyStream.Type = 1
MyStream.Open
urlhtm = xhp.responseText
Set xhp = nothing
Set MyStream = nothing
End Function

想抓取下面的内容，（只要股票代码），用F12跟踪cache得到网址，但想了很多办法都无法获得到token值，求高手指点，谢谢了！
http://search.