[求助]vba如何讀取指定注冊(cè)表鍵值？ [金字塔]
- 咨詢內(nèi)容：
比如我在后臺(tái)里有句把這個(gè)鍵值賦值成目前的交易時(shí)間供vba讀取~SETREGVAL('vba','mailtime',dynainfo(207));
但是vba如何讀取我后臺(tái)寫入的指定的注冊(cè)表鍵值呢？下面這句沒(méi)看懂~都不知道注冊(cè)表鍵值去哪里找'測(cè)試注冊(cè)表讀寫
Sub TestRegistry()
Set registry = CreateObject("stock.registry")
Call registry.Open("software\weisoft\金字塔\settings")
Call registry.WriteInt("id",123)
result=registry.ReadInt("id")
application.msgout result
End Sub - 金字塔客服：
Sub TestRegistry()
Set registry = CreateObject("stock.registry")
Call registry.Open("software\weisoft\金字塔\vba")
result=registry.ReadInt("id")
application.msgout result
End Sub這樣試試
- 用戶回復(fù)：
application.msgout result這句彈不出來(lái)啊~
SETREGVAL('vba','mailtime',dynainfo(207));我要使用mailtime這個(gè)鍵值~用vba與后臺(tái)做應(yīng)答~怎么在vba里面調(diào)用出這個(gè)鍵值~ - 網(wǎng)友回復(fù)：
沒(méi)彈出來(lái)說(shuō)明這個(gè)VBA語(yǔ)句沒(méi)有運(yùn)行，你可以再把需求描述的清楚一些，我們?cè)倏纯慈绾螏湍憬鉀Q
- 網(wǎng)友回復(fù)：
首先用后臺(tái)運(yùn)行這句SETREGVAL('vba','mailtime',dynainfo(207));把時(shí)間賦值給注冊(cè)表
然后用vba讀取注冊(cè)表這個(gè)鍵值~vba再引用當(dāng)前交易時(shí)間與這個(gè)鍵值對(duì)比~
if vba引用的當(dāng)前交易時(shí)間-注冊(cè)表鍵值>20秒 then begin//判斷后臺(tái)無(wú)應(yīng)答為假死狀態(tài)StopAlarmRun 停止后臺(tái)程序化預(yù)警
（這里可能需要停頓5-10秒，再啟動(dòng)后臺(tái)）
StartAlarmRun 啟動(dòng)后臺(tái)程序化預(yù)警
end
防止后臺(tái)假死
有思路，想編寫各種指標(biāo)公式，程序化交易模型，選股公式，預(yù)警公式的朋友
可聯(lián)系技術(shù)人員 QQ: 1145508240 進(jìn)行 有償 編寫！（不貴！點(diǎn)擊查看價(jià)格！）
相關(guān)文章
-
沒(méi)有相關(guān)內(nèi)容
會(huì)員登錄/注冊(cè)