|
发表于 2024-7-12 17:57:08
|
显示全部楼层
湖南省长沙市
报告 BUG:
当电脑启动2个或以上VX时,连接测试指定VX时,发生第二次连接时卡住的错误,
如下 代码:
.版本 2
.支持库 spec
.子程序 取多VX进程ID, 逻辑型, , 启动前进行判断,必须先连接数据库
.参数 进程ID, , 参考
.局部变量 nCount, 整数型
.局部变量 进程IdArr, , , "0"
.局部变量 i, 整数型
.局部变量 pid_t, 整数型
.局部变量 user, 联系人信息
.局部变量 error, 文本型
nCount = 进程一名取PID一数组 (“WeChat.exe”, 进程IdArr, )
.如果真 (取数组成员数 (进程IdArr) < 1)
返回 (假)
.如果真结束
.计次循环首 (取数组成员数 (进程IdArr), i)
pid_t = 进程IdArr [i]
.如果真 (VX_temp.连接进程 (pid_t)) ' !!!! VX_temp 是全局变量
user = VX_temp.取登录联系人信息 ()
.如果真 (checkLoginVxid (user.wxid, user.wxid, user.昵称, user.备注名, user.VX号, error) = 真)
进程ID = pid_t
VX_temp.关闭进程 ()
返回 (真)
.如果真结束
VX_temp.关闭进程 ()
.如果真结束
延迟 (50)
处理事件 ()
.计次循环尾 ()
返回 (假)
|
|