| 以文本方式查看主题 - 金字塔客服中心 - 专业程序化交易软件提供商 (http://weistock.com/bbs/index.asp) -- 高级功能研发区 (http://weistock.com/bbs/list.asp?boardid=5) ---- [求助]请教关于金字塔VBS控件mswinsck.ocx问题 (http://weistock.com/bbs/dispbbs.asp?boardid=5&id=64581) |
| -- 作者：财龙先生 -- 发布时间：2014/5/3 12:56:29 -- [求助]请教关于金字塔VBS控件mswinsck.ocx问题 我遇到一个VBS的技术问题，折磨我几天了无法解决。 请教各位老师：在公式中如何才能调用windows中的mswinsck.ocx通讯组件？
set sock=createobject( "MSWinsock.Winsock") sock.connect "127.0.0.1" , 8099
提示： 错误代码: 40006
====================================== 各位老师，我需要在公式中使用TCP协议，向交易平台的端口发送指令，但因为无法使用控件而不能成功。同样的，wscript.sleep这个代码也不能执行。我想应是公式无法高用windows下的脚本解释引擎wscritp.exe的原因。这个问题解决了，上面的问题也就解决了。 我不想用shell的方法来调用vbs文件，而是想把代码直接写到公式中。 求教！ |
| -- 作者：财龙先生 -- 发布时间：2014/5/3 20:08:56 -- 补充： 在代码第三句后加上这句Sock.AboutBox，也就是跳出控件版本，执行时点跳出窗口的确定，后面的代码就能执行了。 百思不得其解的是，换成其它的任何方式的暂停方式，不论停多长时间，后面的代码都不能执行。 请各位老师指教。 |
| -- 作者：财龙先生 -- 发布时间：2014/5/3 21:26:14 -- 真是邪门啊。。。用Sock.AboutBox暂停一下，或用msgbox方法暂停一下，都可以正常运行，但使用暂停函数，停多久都不行。为什么。 这是我写的暂停函数 Public Sub Pause(PauseTime) Dim Start Start = Timer + PauseTime Do While Start > Timer If Timer < 1 And Start >= 86400 Then Start = Start - 86400 end if Loop End Su |
| -- 作者：王锋 -- 发布时间：2014/5/3 23:34:56 -- 看看是不是因为公式中频繁快速调用导致的问题 |
| -- 作者：财龙先生 -- 发布时间：2014/5/3 23:57:59 -- 谢谢王锋老大。 我的思考： 1、TCP连接后，确实需要等待一点时间，等连接成功后再发送数据。 2、当前的测试情况似乎说明：这里不单是等待时间问题，应是在跳出窗口再点确定的过程中，即停顿了程序运行，又触发了什么。不然，为什么用停顿函数无论停多长时间都不行，而必须用跳出窗口的方法。 百思不得其解。
|
| -- 作者：财龙先生 -- 发布时间：2014/5/4 14:01:52 -- 现在用了shell打开一个空VBS文件的方法，来替代跳出窗口，可以正常运行了。 但仍不理解原理。也许是必须要触发一下wscript.exe才可以。
|