dim sRet = ""
dim Q=""
dIM hWeb=""
hWeb = WebBrowser.Create("ie","about:blank",10000,{"bContinueOnError":false,"iDelayAfter":300,"iDelayBefore":200,"sBrowserPath":"","sStartArgs":""})
DIM A = 13
sRet = WebBrowser.RunJS(hWeb,"function(){
Q=A
return 123
}",true,{"bContinueOnError":false,"iDelayAfter":300,"iDelayBefore":200})
TracePrint(Q)
如何使A的值传递到JS中赋值给Q,并将Q传递出来,最终输出Q?