以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://weistock.com/bbs/index.asp)
--  高级功能研发区  (http://weistock.com/bbs/list.asp?boardid=5)
----  [求助]如何引用实盘真实成交价然后写入注册表供后台调用?  (http://weistock.com/bbs/dispbbs.asp?boardid=5&id=81163)

--  作者:ch3coohqb
--  发布时间:2015/7/15 13:59:02
--  [求助]如何引用实盘真实成交价然后写入注册表供后台调用?
Sub ORDER_OrderStatusEx2(OrderID, Status, Filled, Remaining, Price, Code, Market, OrderType, Aspect, Kaiping, Account, AccountType)

if Status="Tradeing" and filled>0 and Account="00545"  then
SETREGVAL(\'semi\',\'enterprice\',Price);
...






就是实现以上的语句~
该帐户成交一笔~然后把成交价写进注册表供后台调用~
如何实现?
就是写注册表那句我 不会

--  作者:yukizzc
--  发布时间:2015/7/15 14:38:08
--  

看看这里连接,几种记录方式都有

http://www.weistock.com/bbs/dispbbs.asp?BoardID=5&ID=52674&skin=0


--  作者:ch3coohqb
--  发布时间:2015/7/15 14:49:23
--  
看过了还是不晓得弄~
麻烦谁高抬贵手
把我这个代码给补充一下~
不会超过3分钟的时间~
也就是个VBA写进注册表的事情

--  作者:ch3coohqb
--  发布时间:2015/7/15 15:05:57
--  
感觉都知道怎么写
唯独就是没人写代码啊

--  作者:王锋
--  发布时间:2015/7/15 15:30:08
--  

升级到3.63版本,自带这类函数了,请置顶贴看升级说明


--  作者:guotx2010
--  发布时间:2015/7/16 8:48:34
--  
if Status="Tradeing" and filled>0 and Account="00545"  then

    Set registry = CreateObject("stock.registry")
    Call registry.Open("software\\weisoft\\金字塔\\settings")
    Call registry.WriteInt("enterprice",price)
end if