求教各位大神关于类模块事件触发

tspliu

WANT-T 发表于 2022-11-23 15:00
我觉得，你觉得对，祝工作顺利，天天开心，好人一生平安

大神试试这个dll，我不懂，语言也描述不好。

# 安装步骤：


比如为 C:\VBWebsocket目录

由于是COM组件，因此需要注册，注册步骤如下：  
1）打开命令行窗口 cmd  

2）如果是32或64位操作系统，需要用于32位程序，则执行：  
regsvr32 C:\VBWebsocket\VBToolsLib\x86\VBTools.dll  

如果是64位操作系统，需要用于64位程序，则执行：  
regsvr32 C:\VBWebsocket\VBToolsLib\x64\VBTools.dll  

在打开项目后，请添加引用，引用的库名称为：VBToolsLib  
  

# 其它备注：  
VBTools.dll 库与其附加的库文件可以放置于任何目录，只需执行正确的regsvr32注册即可。

tspliu

WANT-T 发表于 2022-11-23 15:00
我觉得，你觉得对，祝工作顺利，天天开心，好人一生平安

实在是不会描述，要不直接把文件给你吧，大神

WANT-T

tspliu 发表于 2022-11-23 15:02
。。。。。。。。。。。。。

这个触发逻辑是明明白白的写在代码里的，有就触发，没有就不触发，压根不用觉得

WANT-T

tspliu 发表于 2022-11-23 15:10
实在是不会描述，要不直接把文件给你吧，大神

搞清楚自己要干什么先，祝工作顺利，天天开心

tspliu

WANT-T 发表于 2022-11-23 15:11
这个触发逻辑是明明白白的写在代码里的，有就触发，没有就不触发，压根不用觉得

websock.Open "ws://82.157.123.54:9010/ajaxchattest"
Debug.Print websock.readyState
这个readyState属性显示为1 连接成功，但就是不触发websock_onopen()
Class_Initialize事件这些都能正常触发。

tspliu

‘-------------------------------------以下为问题代码
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function timeGetTime Lib "winmm.dll" () As Long '定义到模块
Dim WithEvents websock As VBToolsLib.websocket

Private Sub UserForm_Initialize()
Set websock = New VBToolsLib.websocket
hw& = FindWindow(vbNullString, "tsportliu")
Debug.Print hw
websock.setwindowhandle hw
websock.setHttpHeader "User-Agent", "Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/105.0.0.0 Safari/537.36"
websock.Open "wss://5hangzhou.goeasy.io/socket.io/?EIO=3&transport=websocket&b64=1"
Savetime = timeGetTime '记下开始时的时间
While timeGetTime < Savetime + 1000 '循环等待
DoEvents '转让控制权，以便让操作系统处理其它的事件
Wend
websock.send ("Wq 你好")
Savetime = timeGetTime '记下开始时的时间
Dim ReadBuffer(1 To 1024) As Byte
While timeGetTime < Savetime + 3000 '循环等待
DoEvents '转让控制权，以便让操作系统处理其它的事件
Wend
Debug.Print websock.readyState
End Sub


Private Sub websock_onclose()
Debug.Print "bye"
End Sub

Private Sub websock_onerror(ByVal errmsg As String)
Debug.Print "error"
End Sub

Private Sub websock_onmessage(ByVal msg As String)
Debug.Print msg
End Sub

Private Sub websock_onopen()
Debug.Print "hello"
End Sub

tspliu

WANT-T 发表于 2022-11-23 15:15
搞清楚自己要干什么先，祝工作顺利，天天开心

，成功了，把类模块删除了就成功了，不管怎么样还是谢谢你的耐心回答。