您现在的位置：程序化交易>> 期货公式>> 金字塔等>> 金字塔知识>>正文内容

带指针的windows api的调用　[金字塔]

作者：金字塔来源：cxh99.com 发布时间：2014年06月27日点击数：　【收藏到本网的会员中心】

咨询内容： 我这几天一直在测试两个windows api函数，vb里可以用，但在金字塔vbs里我一直测试不成功，原因是vbs里面没有byval，请斑竹能帮我重写一下吗?vb6的代码是：Option Explicit
Private Declare Function lstrcpyn Lib "kernel32" Alias "lstrcpynA" _ (DesStr As Any, _ SrcStr As Any, _ ByVal Maxlen As Long) As LongPrivate Declare Sub RtlMoveMemory Lib "kernel32" (lpvDest As Any, lpvSource As Any, _ ByVal cbCopy As Long)
Dim sData As StringDim lShareData1 As String
Dim ss(1) As DoubleDim lShareData2(1) As Double

Private Sub Form_Load()lShareData1 = "sdfa" sData = String(&H100, vbNullChar) Call lstrcpyn(ByVal sData, ByVal lShareData1, &H100)Debug.Print sData
lShareData2(0) = 1.1lShareData2(1) = 2.2 Call RtlMoveMemory(ByVal VarPtr(ss(0)), ByVal VarPtr(lShareData2(0)), 32)Debug.Print ss(0) & " " & ss(1)End Sub
金字塔客服： 带指针是做不到的,你可以把你的需求详细描述一下,我们看看还有没有一些变通的解决办法
用户回复： vba从外面跨进程交换大量数据，除了用文件，还有没有更快的交换通道或api，最后用通过内存？
网友回复：
试试数据库呢?

有思路，想编写各种指标公式，程序化交易模型，选股公式，预警公式的朋友

可联系技术人员 QQ: 1145508240 进行有偿编写！（不贵！点击查看价格！）

【字体：小大】【打印文章】【查看评论】

没有相关内容