欢迎使用金字塔普通技术服务论坛，您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴，普通区问题处理速度慢，请耐心等待。谢谢您对我们的支持与理解。


金字塔客服中心 - 专业程序化交易软件提供商 → 金字塔软件 → 高级功能研发区 → 带指针的windows api的调用

   

欢迎使用金字塔普通技术服务论坛，您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴，普通区问题处理速度慢，请耐心等待。谢谢您对我们的支持与理解。    

  共有2956人关注过本帖树形打印复制链接

主题：带指针的windows api的调用
帅哥哟，离线，有人找我吗？
guanq429
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：新手上路 帖子：2 积分：0 威望：0 精华：0 注册：2012/8/10 1:05:40 		带指针的windows api的调用  发帖心情 Post By：2014/5/11 16:03:18 [只看该作者]

我这几天一直在测试两个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 Long
Private Declare Sub RtlMoveMemory Lib "kernel32" (lpvDest As Any, lpvSource As Any, _
    ByVal cbCopy As Long)

Dim sData As String
Dim lShareData1 As String

Dim ss(1) As Double
Dim 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.1
lShareData2(1) = 2.2
    Call RtlMoveMemory(ByVal VarPtr(ss(0)), ByVal VarPtr(lShareData2(0)), 32)
Debug.Print ss(0) & " " & ss(1)
End Sub
 回到顶部
帅哥哟，离线，有人找我吗？
王锋
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：罗宾汉 帖子：11808 积分：20695 威望：0 精华：10 注册：2009/8/18 8:15:13 		  发帖心情 Post By：2014/5/11 17:24:12 [只看该作者]

带指针是做不到的,你可以把你的需求详细描述一下,我们看看还有没有一些变通的解决办法


金字塔—专业程序化软件提供商

金字塔-技术部

-----------------------------------------------------------------------------------------------------

工作时间:周一至周五 08:30 - 17:30   周末及法定节假日休息

Email:service@weistock.com
 回到顶部
帅哥哟，离线，有人找我吗？
guanq429
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：新手上路 帖子：2 积分：0 威望：0 精华：0 注册：2012/8/10 1:05:40 		  发帖心情 Post By：2014/5/13 14:05:55 [只看该作者]

vba从外面跨进程交换大量数据，除了用文件，还有没有更快的交换通道或api，最后用通过内存？

 回到顶部
帅哥哟，离线，有人找我吗？
王锋
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：罗宾汉 帖子：11808 积分：20695 威望：0 精华：10 注册：2009/8/18 8:15:13 		  发帖心情 Post By：2014/5/13 15:39:51 [只看该作者]

试试数据库呢?

金字塔—专业程序化软件提供商

金字塔-技术部

-----------------------------------------------------------------------------------------------------

工作时间:周一至周五 08:30 - 17:30   周末及法定节假日休息

Email:service@weistock.com
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版    Powered By weistock 2012
页面执行时间 0.23438 秒, 5 次数据查询