- 金字塔客服中心 - 专业程序化交易软件提供商 (http://222.73.7.161/bbs/index.asp)
-- 公式模型编写问题提交 (http://222.73.7.161/bbs/list.asp?boardid=4)
---- [求助]vb发送qq消息失败 (http://222.73.7.161/bbs/dispbbs.asp?boardid=4&id=176246)
-- 发布时间：2020/5/25 14:59:40
-- [求助]vb发送qq消息失败
此主题相关图片如下：11.png
此主题相关图片如下：2.png
此主题相关图片如下：44.png
此主题相关图片如下：55.png
1.全局变量是有值的
2.qq窗口是正确开启状态
3.vb代码是已经执行完毕了的
4.消息窗口也打印了正确的数据
问题：vb 数据发送qq消息依然失败， 请问版主哪里有可能出了问题？
-- 发布时间：2020/5/25 15:34:55
--
QQMSG=document.GetExtString("QQSTR")
Set obj = CreateObject("WWSCommon.TCGroup")
bq = " 交易系统信号发布 "
mxmsg = bq &" " & Date &" " & Time & vbCrLf & " 信号" & " " & QQMSG
call obj.TransMessage("qq对话框名字", mxmsg)
Set obj = Nothing
直接vba里执行这个程序看能否发送
-- 发布时间：2020/5/25 16:09:57
--
此主题相关图片如下：11.png
此主题相关图片如下：12.png
此主题相关图片如下：13.png
如图所示， 测试是可以发送的。 这个问题怎么解决呢？
[此贴子已经被作者于2020/5/25 16:10:34编辑过]
-- 发布时间：2020/5/25 17:30:01
--
http://www.weistock.com/WeisoftHelp/visualbasiczidingyihanshu.htm
必须这么操作，不能在自己建立的模块中使用
可以通过两种方法添加自定义函数：
1、在公式编辑器界面中，鼠标在“函数”解释定义区单击右键，然后选择“添加自定义函数”。
2、在Visual Basic工程管理器中选择Function模块，进入Visual Basic编辑界面，然后选择“插入”菜单中的“过程”。
-- 发布时间：2020/5/25 17:31:13
--
http://www.weistock.com/bbs/dispbbs.asp?boardid=5&Id=11344
这个范例里，作者也都写了操作过程怎么建立自定义函数
-- 发布时间：2020/5/26 12:49:09
--
版主我测试如下：
测试环境是可以把数据发送到qq里（因为CPU占用低）但真实环境不可以把数据发送到qq里。（因为CPU占用高）
调查：我不断的测试发现，是当电脑CPU占用100%的时候，数据就不能发送到qq里了。
具体场景：当新的1根k线出现后，后台程序化运行 1~10秒CPU会占用100%。 10~59秒cpu降到20%以下。
解决：怎么做可以让 VB 在10~59秒内执行发QQ？ 延迟，定时器还是什么方法？ 该怎么做？
-- 发布时间：2020/5/26 13:25:46
--
这个没有办法，这个cpu高就是你程序执行占用高，你要么提升配置要么从代码角度优化效率减少计算量
-- 发布时间：2020/5/26 13:45:30
--
请问 ，可以用 延迟或定时器的方法， 让VB 晚一点（15秒）执行程序吗？
[此贴子已经被作者于2020/5/26 13:45:41编辑过]
-- 发布时间：2020/5/26 21:58:35
--
你可以在pel里面用debugfile输出到txt做小调试看是否能正常执行，我怀疑是你程序cpu都沾满了导致不执行程序
这时候你无论怎么延迟都是没有用的，通过pel去调用vb，你pel自己都不执行了，怎么能去调用vb呢