- 金字塔客服中心 - 专业程序化交易软件提供商 (http://www.weistock.com/bbs/index.asp)
-- 高级功能研发区 (http://www.weistock.com/bbs/list.asp?boardid=5)
---- 还是关于自动连接的问题 (http://www.weistock.com/bbs/dispbbs.asp?boardid=5&id=66279)
-- 发布时间：2014/6/18 9:01:23
-- 还是关于自动连接的问题
这是我早上VBA自动连接后的截图
此主题相关图片如下：捕获.jpg
在交易时段，我通过 VBA每一分钟自动判断当前是否连接。
从截图可以看到，通过VBA连接后，股票行情处于“连接中”状态，但VBA函数去判断连接状态时，对于“连接中”的状态也是返回1，即默认已连接，但事实上并没有连接成功。
-- 发布时间：2014/6/18 9:14:14
--
检测部分的VBA代码贴下
-- 发布时间：2014/6/18 9:32:16
--
if ttt>cdate("08:56:00") and ttt<cdate("15:15:00") and application.ReceiveDatastatus=0 then
call application.ReceiveData(1)
application.MsgOut "已连接！ "&date()&" "&time()
end if
if ttt>cdate("15:15:00") and application.ReceiveDatastatus then
call application.ReceiveData(0)
application.MsgOut "断开连接！ "&date()&" "&time()
end if
这个是每天开盘前自动连接，收盘后自动断开！
-- 发布时间：2014/6/18 9:35:54
--
if oautoit.winexists("金字塔") then
call oautoit.WinClose("金字塔")
\'call oautoit.sleep(1000)
application.MsgOut "断线了!"&date()&" "&time()
call application.ReceiveData(0)
end if
if ttt>cdate("08:56:00") and ttt<cdate("15:15:00") and application.ReceiveDatastatus=0 then
call application.ReceiveData(1)
application.MsgOut "已连接！ "&date()&" "&time()
end if
if ttt>cdate("15:15:00") and application.ReceiveDatastatus then
call application.ReceiveData(0)
application.MsgOut "断开连接！ "&date()&" "&time()
end if
这段是VBA中的代码，通过每分钟中断一次来调用。
当出现断线时，会弹出“金字塔”的断线窗口，通过判断是否存在该窗口，来判断是否断线 ！
下面是 每天开盘前自动连接，收盘后自动断开！
-- 发布时间：2014/6/18 9:42:52
--
1,帖子转至高级功能研发区。等待相关人员处理,谢谢
-- 发布时间：2014/6/19 19:34:31
--
有没有声音？
-- 发布时间：2014/6/25 15:02:29
--
这个问题有回应吗？
-- 发布时间：2014/6/25 15:11:15
--
任何一款软件都无法保证你的100%网络安全可靠不出故障,金字塔已经对服务器重连做了最大化优化处理了,但是也不可避免出现各种意外.
建议你启用金字塔的手机监控,出现行情中断后能第一时间告知你
-- 发布时间：2014/6/25 19:47:27
--
回楼上，请问下：处于“连接中”状态，金字塔系统能自己判断为“断线”吗？ 还是“连线”？
到少我从VBA函数的返回值来看，是处于“连线”，虚假连线！
我很好奇这么重大的BUG 你们无视吗？
-- 发布时间：2014/6/25 19:48:48
--
我的意见很简单：对于断线 返回0；已连接，返回 1； 连接中 返回 －1；
至少得给个状态吧！