[求助]請教關于金字塔VBS控件mswinsck.ocx問題
作者：金字塔 來源：cxh99.com 發布時間：2014年07月11日
- 咨詢內容：
我遇到一個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文件，而是想把代碼直接寫到公式中。
求教！
- 金字塔客服：
補充：在代碼第三句后加上這句Sock.AboutBox，也就是跳出控件版本，執行時點跳出窗口的確定，后面的代碼就能執行了。百思不得其解的是，換成其它的任何方式的暫停方式，不論停多長時間，后面的代碼都不能執行。請各位老師指教。
- 用戶回復：
真是邪門啊。。。用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 LoopEnd Su
- 網友回復：
看看是不是因為公式中頻繁快速調用導致的問題
- 網友回復：
謝謝王鋒老大。我的思考：1、TCP連接后，確實需要等待一點時間，等連接成功后再發送數據。2、當前的測試情況似乎說明：這里不單是等待時間問題，應是在跳出窗口再點確定的過程中，即停頓了程序運行，又觸發了什么。不然，為什么用停頓函數無論停多長時間都不行，而必須用跳出窗口的方法。百思不得其解。
打印本文
關閉窗口