标题：[求助] 如何实现将K线的时间输出到系统时钟

金字塔在K线模式下 鼠标移动

日期栏的日期随着鼠标移动而改变

 

我有个第三方软件是调取系统时钟的

求助写个小插件

将k线状态下的日期和时间输出到系统时钟

 

日线周期下就输出鼠标所在K线的日期  日线的时间固定在12：00

分钟周期下就输出鼠标所在K线的日期和时间

 

 

将下面的代码拷贝到技术分析框架的代码中，重启VBA引擎后即可。

 

Sub Technic_CursorMove(Grid, Index, x, y)
    Dim WshShell
    Set WshShell = CreateObject("wscript.Shell")
    call WshShell.Run("cmd.exe /c date "&grid.DateByPos(Index),0)
    StockSleep(50)
    call WshShell.Run("cmd.exe /c time "&FormatdateTime(grid.DateByPos(Index),vbLongTime),0)
End Sub

Sub StockSleep(slSecond)
    Set Wrap = CreateObject("DynamicWrapper")
    Wrap.Register "KERNEL32.DLL", "Sleep","i=u","R=l"
    Wrap.Sleep(slSecond)
End Sub

谢谢 谢谢 非常感谢

 

有点小问题

日线日期OK了

时间能不能改成中午12点啊

の XP提示内存不足 需要加大虚拟内存

打开任务管理器一看

有很多很多的conime进程 大概几百个吧

4G内存 识别了3.5G  已经全部占满了

帮忙看看怎么个情况

Sub Technic_CursorMove(Grid, Index, x, y)
    Dim WshShell
    Set WshShell = CreateObject("wscript.Shell")
    call WshShell.Run("cmd.exe /c date "&grid.DateByPos(Index),0)
    StockSleep(50)
    call WshShell.Run("cmd.exe /c time "&FormatdateTime(grid.DateByPos(Index),vbLongTime),0)
    Set WshShell = nothing
End Sub

Sub StockSleep(slSecond)
    Set Wrap = CreateObject("DynamicWrapper")
    Wrap.Register "KERNEL32.DLL", "Sleep","i=u","R=l"
    Wrap.Sleep(slSecond)
    Set Wrap = nothing
End Sub

 

对象用完后销毁就可以了

OK了 非常感谢

这个在新版本中（2.90）不能用了
有空了帮忙看下 咋回事
WIN8 系统

测试过，可以工作。

金字塔果然很强大， 这种稀奇古怪的想法都能轻易实现。无语了……