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


金字塔客服中心 - 专业程序化交易软件提供商 → 金字塔软件 → 高级功能研发区 → 自动关闭金字塔的代码

   

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

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

主题：自动关闭金字塔的代码
帅哥哟，离线，有人找我吗？
dwjgwsm
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：黑侠 帖子：864 积分：607 威望：0 精华：0 注册：2013/3/14 23:16:32 		自动关闭金字塔的代码  发帖心情 Post By：2014/12/3 20:05:04 [只看该作者]

热心网友klc在http://www.weistock.com/bbs/dispbbs.asp?boardid=5&id=57898&authorid=0&page=0&star=3中提供了一段自动关闭金字塔的代码.

Set Wrap = CreateObject("DynamicWrapper")
Wrap.Register "user32.dll","FindWindowA","i=ss","f=s", "r=l"
Wrap.Register "user32.dll","FindWindowExA","i=llss","f=s", "r=l"
Wrap.Register "user32.dll","SendMessageA","i=lull","f=s", "r=l"
WM_LBUTTONDOWN=513
WM_LBUTTONUP=514
h = Wrap.FindWindowA("#32770","金字塔")
if h<>0 then
  h2 = Wrap.FindWindowExA(h,0,"Button","是(&Y)")
  if h2<>0 then
    Wrap.SendMessageA h2,WM_LBUTTONDOWN,0,0
    Wrap.SendMessageA h2,WM_LBUTTONUP,0,0
  end if
else
  application.PostMessage(57665)
end if

有几个问题想请教一下:
1.运行上面的代码,会弹出询问是否关闭金字塔的是/否消息窗口,还需要手动点击.如何解决?

2.似乎application.PostMessage(57665)这一句就是关闭软件的,那么上面那么多代码都是做什么用的?看不懂

3.关软件之前,需要先把交易停止吧(就是那个启动交易/停止交易的弹窗).上面的代码考虑了吗?
 回到顶部
帅哥哟，离线，有人找我吗？
王锋
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

1，选项中有这个关闭是否弹出提示的功能。

2，这个实现的功能是一样

3，关闭前需要停止自动交易的，不然他还会弹出是否退出的窗口。

 

你可以试试 Application 对象的

 

QuitApplication(Type)

关闭并退出应用程序和计算机

Type   为0时表示仅关闭退出应用程序 为1时关闭应用程序后关闭计算机

 

提供了更直接的方法来帮你实现

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

金字塔-技术部

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

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

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