【求助】老马请求ActiveX EXE单元模型线程问题

yescss · 发表于 2009-5-17 21:16:38

你好老马:
    我学了你的 ActiveX EXE单元模型线程二个例,
 
    想分析下多线程的可能性.发现一个问题:
 
 
    软件不能多开....
 
  经我测试:把你的一个声明:
 
Private Const MyEvent As String = "m5home"
 
改为:
Private MyEvent As String
 If Len(MyEvent) = 0 Then MyEvent = returncvv5(8) '随机生成一串英文字符
  
这样软件可以多开了,不过中间不能再使用:
Set theDO = Nothing
Set theDO = CreateObject("TestDownload.cMain")
不然就会同时打多N个窗口,N>3
 
----------------------------
能提供下ActiveX EXE多开的方法吗.
我主要是想解决inet控件在网络差访问会死掉的方法,Inet1.Cancel没用
 
想用ActiveX EXE进程外打开.这样死了我Set theDO = Nothing,再CreateObject一个就行了
 
十分多谢.

yescss · 发表于 2009-5-18 12:09:13

请问阿杰会不?可以帮下不?

马大哈 · 发表于 2009-5-18 21:06:56

你的思路是对的.有可能是你方法用错了. 
 
还有,RND函数容易得到相同的序列,还是使用PID稳当些:
 
<div class="msgheader">QUOTE:</div><div class="msgborder">
Option Explicit
 
Private Declare Function CreateEvent Lib "kernel32.dll" Alias "CreateEventA" ( _      ByVal lpEventAttributes As Long, _      ByVal bManualReset As Long, _      ByVal bInitialState As Long, _      ByVal lpName As String) As Long Private Declare Function OpenEvent Lib "kernel32.dll" Alias "OpenEventA" ( _      ByVal dwDesiredAccess As Long, _      ByVal bInheritHandle As Long, _      ByVal lpName As String) As Long Private Declare Function CloseHandle Lib "kernel32.dll" ( _      ByVal hObject As Long) As Long Private Declare Sub ExitProcess Lib "kernel32.dll" ( _      ByVal uExitCode As Long) Private Declare Function GetCurrentProcessId Lib "kernel32.dll" () As Long
Private Const STANDARD_RIGHTS_REQUIRED As Long = &HF0000 Private Const SYNCHRONIZE As Long = &H100000 Private Const EVENT_MODIFY_STATE As Long = &H2 Private Const EVENT_ALL_ACCESS As Long = (STANDARD_RIGHTS_REQUIRED Or SYNCHRONIZE Or &H3)
 
'Private Const MyEvent As String = "m5home" Private MyEvent As String Dim hEvent As Long
 
Sub Main()     If GetEventHandle = 0 Then     '由于每个新对象的建立,都要执行Main()过程,因此使用事件对象来进行判断.         hEvent = CreateEvent(0&, False, False, MyEvent)            '在单元线程下,模块里的全局变量已经没有用了.         frmMain.Show                  '显示主窗体     End If End Sub
 
Private Function GetEventHandle() As Long     If MyEvent = vbNullString Then MyEvent = CStr(GetCurrentProcessId)      '取当前PID作为事件字符串     GetEventHandle = OpenEvent(EVENT_ALL_ACCESS, False, MyEvent)     Call CloseHandle(GetEventHandle) End Function
 
Public Function Quit()     Call CloseHandle(hEvent) End Function 
 </div>

yescss · 发表于 2009-5-19 10:47:13

老马真强,通过你的方法解决了.多谢了.
 
我得努力学习中.

账号		自动登录	找回密码
密码			加入我们

【求助】老马请求ActiveX EXE单元模型线程问题

论坛牛人

贡献奖

关注奖

最佳版主

进步奖

人气王

疯狂作品奖

精英奖

赞助论坛勋章

乐于助人勋章