打印本文
關(guān)閉窗口
'測(cè)試注冊(cè)表讀寫(xiě)
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
這樣試試
StopAlarmRun 停止后臺(tái)程序化預(yù)警
（這里可能需要停頓5-10秒，再啟動(dòng)后臺(tái)）
StartAlarmRun 啟動(dòng)后臺(tái)程序化預(yù)警
end
防止后臺(tái)假死