您現(xiàn)在的位置：程序化交易>> 期貨公式>> 金字塔等>> 金字塔知識(shí)>>正文內(nèi)容

帶指針的windows api的調(diào)用　[金字塔]

作者：金字塔來(lái)源：cxh99.com 發(fā)布時(shí)間：2014年06月27日點(diǎn)擊數(shù)：　【收藏到本網(wǎng)的會(huì)員中心】

咨詢內(nèi)容： 我這幾天一直在測(cè)試兩個(gè)windows api函數(shù)，vb里可以用，但在金字塔vbs里我一直測(cè)試不成功，原因是vbs里面沒(méi)有byval，請(qǐng)斑竹能幫我重寫(xiě)一下嗎?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
金字塔客服： 帶指針是做不到的,你可以把你的需求詳細(xì)描述一下,我們看看還有沒(méi)有一些變通的解決辦法
用戶回復(fù)： vba從外面跨進(jìn)程交換大量數(shù)據(jù)，除了用文件，還有沒(méi)有更快的交換通道或api，最后用通過(guò)內(nèi)存？
網(wǎng)友回復(fù)：
試試數(shù)據(jù)庫(kù)呢?

有思路，想編寫(xiě)各種指標(biāo)公式，程序化交易模型，選股公式，預(yù)警公式的朋友

可聯(lián)系技術(shù)人員 QQ: 1145508240 進(jìn)行有償編寫(xiě)！（不貴！點(diǎn)擊查看價(jià)格！）

【字體：小大】【打印文章】【查看評(píng)論】