VB ActiveX EXE 问题,不太难
服务器程序如下:
private sub class_Initialize
gcnt = gcnt + 1
end sub
private sub class_Terminate
gcnt = gcnt - 1
end sub
客户端 CreateObject 可以执行 class_Initialize
客户端退出时可以执行 class_Terminate
但是, 服务器程序改成如下后 客户端退出时不执行 class_Terminate
(gcnt, col 全局变量)
dim key as string
private sub class_Initialize
gcnt = gcnt + 1
key = randomkey()
gcol.add me, key
end sub
private sub class_Terminate
gcnt = gcnt - 1
gcol.remove key
end sub