标题：[求助]请教关于金字塔VBS控件mswinsck.ocx问题

1楼

财龙先生 发表于：2014/5/3 12:56:29

我遇到一个VBS的技术问题，折磨我几天了无法解决。

请教各位老师：在公式中如何才能调用windows中的mswinsck.ocx通讯组件？

下面的代码，写到111.vbs文件中，双击可以执行，但放到金字塔公式中就无法执行了。

set sock=createobject( "MSWinsock.Winsock")
sock.Protocol=0

sock.connect "127.0.0.1" , 8099
sock.senddata "3188,1"

提示：

错误代码: 40006
描述: 所需事物或请求的错误协议或连接状态

======================================

各位老师，我需要在公式中使用TCP协议，向交易平台的端口发送指令，但因为无法使用控件而不能成功。同样的，wscript.sleep这个代码也不能执行。我想应是公式无法高用windows下的脚本解释引擎wscritp.exe的原因。这个问题解决了，上面的问题也就解决了。

我不想用shell的方法来调用vbs文件，而是想把代码直接写到公式中。

求教！

2楼

财龙先生 发表于：2014/5/3 20:08:56

补充：

在代码第三句后加上这句Sock.AboutBox，也就是跳出控件版本，执行时点跳出窗口的确定，后面的代码就能执行了。

百思不得其解的是，换成其它的任何方式的暂停方式，不论停多长时间，后面的代码都不能执行。

请各位老师指教。

3楼

财龙先生 发表于：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

4楼

王锋发表于：2014/5/3 23:34:56

看看是不是因为公式中频繁快速调用导致的问题

5楼

财龙先生 发表于：2014/5/3 23:57:59

谢谢王锋老大。

我的思考：

1、TCP连接后，确实需要等待一点时间，等连接成功后再发送数据。

2、当前的测试情况似乎说明：这里不单是等待时间问题，应是在跳出窗口再点确定的过程中，即停顿了程序运行，又触发了什么。不然，为什么用停顿函数无论停多长时间都不行，而必须用跳出窗口的方法。

百思不得其解。

6楼

财龙先生 发表于：2014/5/4 14:01:52

现在用了shell打开一个空VBS文件的方法，来替代跳出窗口，可以正常运行了。

但仍不理解原理。也许是必须要触发一下wscript.exe才可以。

共6 条记录, 每页显示 10 条, 页签: [1]