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


金字塔客服中心 - 专业程序化交易软件提供商 → 金字塔软件 → 高级功能研发区 → [求助]请教sendmessage发送字符串的问题

   

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

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

主题：[求助]请教sendmessage发送字符串的问题
帅哥哟，离线，有人找我吗？
basicsp
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：论坛游民 帖子：108 积分：0 威望：0 精华：0 注册：2014/10/14 10:14:47 		[求助]请教sendmessage发送字符串的问题  发帖心情 Post By：2015/6/16 15:59:19 [只看该作者]

目前代码通过但无数据发出，请教两个问题：
1. UserWrap.Register "user32.dll","PostMessage","i=llls","f=s", "r=l"中最后一个输入参数是s还是l？
2. call UserWrap.PostMessage(MyTurtle, &H4A, 100, MyData )应该如何调用才正确？
搞了3个小时未搞定这个VBS代码，还请多指导，谢谢！

添加copydata类模块
Public dwData
Public cbData
Public lpData

Private Sub Class_Initialize()

end sub 

------------------------------------------
主函数：
Dim window1
Dim MyData
Dim UserWrap
Dim str
str = "123456789"
set MyData = new copydata
MyData.dwData = 0
MyData.cbData = 10
MyData.lpData = str
Set UserWrap = CreateObject("DynamicWrapper")
UserWrap.Register "user32.dll","FindWindow","i=ss","f=s", "r=l"
UserWrap.Register "user32.dll","PostMessage","i=llls","f=s", "r=l"
window1 = UserWrap.FindWindow(vbNullString, "Form")
call UserWrap.PostMessage(window1, &H4A, 100, MyData ) '&H4A，即0x4A，是WM_COPYDATA消息
[此贴子已经被作者于2015/6/16 16:00:15编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
basicsp
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：论坛游民 帖子：108 积分：0 威望：0 精华：0 注册：2014/10/14 10:14:47 		  发帖心情 Post By：2015/6/16 16:34:22 [只看该作者]

王老师帮忙看看，谢谢

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


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

抱歉这个已经超出了我们的服务范围，我们无法准确为您提供该服务。

按照编程常理，给窗口发送文本消息，你应该使用SetWindowText函数的，WM_COPYDATA的模式我们没有用过的，您可以在GOOGLE搜索一下VBS的相关资料吧

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

金字塔-技术部

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

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

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


加好友 发短信
等级：论坛游民 帖子：108 积分：0 威望：0 精华：0 注册：2014/10/14 10:14:47 		  发帖心情 Post By：2015/6/16 20:12:19 [只看该作者]

好的，谢谢王峰老师，我再研究研究图片点击可在新窗口打开查看

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