全球首创? 再次突破VB极限!VB真正稳定多线程(不用tlb,tls,ax,pcode)

msflexgrid · 发表于 2010-5-1 23:39:58

86# msflexgrid

你老老实实用SDK不就行了么，反正MFC的封装也是浅层的……
acme_pjz 发表于 2010-5-1 23:25

因为用VB搞的工程太大，编译太慢了。。。以前还觉得VB编译快。
现在每编译一次几百个文件就要很久（现在才想起VC的好，想编译那个就编译哪个，再链接就行了。）

VB总是傻傻的从头再编译一遍，哪怕没改半个字节……

用SDK搞大的项目就像用汇编一样（苦力+累人），没有OOP的爽快感……

msflexgrid · 发表于 2010-5-1 23:42:23

发一个以前我用VC6 SDK写的东西，MyGVM，文曲星下Lava虚拟机的解释器，因为用VB写的Bug太多，运行得有点慢，而且不支持多线程，所以用VC6写了个……我以前发在文曲星论坛上面的，不知道这个网址还能不能下载：http:/ ...
acme_pjz 发表于 2010-5-1 23:27

您无权进行当前操作，这可能因以下原因之一造成
您所在的用户组(游客)无法进行此操作。
您还没有登录，请填写下面的登录表单后再尝试访问。

－－－－－－－－－－－－－－－－－－－－－－－－
PS:SDK我也会……

只是觉得麻烦……

acme_pjz · 发表于 2010-5-1 23:42:42

VB总是傻傻的从头再编译一遍，哪怕没改半个字节……

这个……我不是说过我有个程序貌似解决了这个问题的一半么（这个我好像发到坛子上了吧？）……还有另一半就要改vba6.dll的某些内容了，既然你要用到，你就可以研究一下……

msflexgrid · 发表于 2010-5-1 23:50:34

这个……我不是说过我有个程序貌似解决了这个问题的一半么（这个我好像发到坛子上了吧？）……还有另一半就要改vba6.dll的某些内容了，既然你要用到，你就可以研究一下……
acme_pjz 发表于 2010-5-1 23:42

你那个增量编译？

己决定要学VC了……VB的事情暂时不再深入研究了……

谁要是有空想全球首创的话可以改进下：
1.PATCH那个IDE设置图标支持真彩色（原始好像只支持256）估计要改检则函数，跳过去
2.PATCH那个VBVM支持UNICODE……估计要改CreateWindowA ->W 以及一序列相关函数……
3.PATCH那个VBA实现单一文件编译，……
其它大家自行补充吧……

acme_pjz · 发表于 2010-5-1 23:56:13

94# msflexgrid

对呀，不过也就是把以前编译好的obj给自动翻出来而已

你不是说vba6.dll在进程里面就对源代码编译一次变成伪代码么……现在就要在那个那里加判断语句了……

msflexgrid · 发表于 2010-5-2 08:10:18

94# msflexgrid

对呀，不过也就是把以前编译好的obj给自动翻出来而已你不是说vba6.dll在进程里面就对源代码编译一次变成伪代码么……现在就要在那个那里加判断语句了……
acme_pjz 发表于 2010-5-1 23:56

好像离题了……那就再离远一点吧：昨天搞那个InPrivate结果我追了IE后发现他是用第250号函数（无文档+未公开+无函数名，又是全球首创？）弹出InPrivate，于是学IE用他的隐藏函数iframe.dll中的第250号结果弹出另外的IE InPrivate

，不是内置WEB实现InPrivate晕死了

。

xingjing · 发表于 2010-5-2 10:56:27

超级牛贴啊一定要试试

LionCSQ · 发表于 2010-5-2 22:12:35

中止线程，应使用信号灯让其自然退出，用TerminateThread太过粗暴，虽然线程退出，但线程所占用的内存资源并不会释放出来。

izero · 发表于 2010-5-3 19:45:07

83# download

1. I am from Slovakia, I am not speaking Chinese ;)
2. Some sample code is attached .. I use tlb, but for this sample I mix you code (CreateIExpObject) with DLLGetClassObject code, see attachement
3. no, is not registered on mars ... see COINIT_MULTITHREADED and CoInitializeEx and then CoRegistreClassObject

... I mean, the fakeheader is one of posible way to "bypas" DLLGetClassObject, vbheader is something like IStreamed data from which is new class constructed. But this way need more investigation ;) Maybe another way (I see it in one of multithreading library) to multithreading is to using EbLoadRuntime, search on Google for some samples (FreeThreader uses this technique, I mean). Good luck ;) izero

菜鸟学飞 · 发表于 2010-5-3 22:16:24

看的不是很明白试了一下但是看到DLLGetClassObject我似乎又找到了一点希望
VBAdvanced这个插件可以生成一个供C语言调用的dll(dll里面可以使用窗体等东西) 在里面有这么一些初始化代码如果我们把这些东西搬到多线程函数里面不知道能不能解决多线程初始化问题?

Option Explicit
Private Const cDelegateASM As Currency = -368956918007638.6215@
Private m_DelegateASM As Currency
Private Type DelegatorVTables
VTable(7) As Long
End Type
Private m_VTables As DelegatorVTables
Private m_pVTableOKQI As Long
Private m_pVTableFailQI As Long
Public Type FunctionDelegator
pVTable As Long
pfn As Long
End Type
Private moInitObject As CRuntimeInit
Public Sub RuntimeInitialize(ByVal hMod As Long)
Dim sFile As String
Dim lLen As Long
Dim lRet As Long
Dim i As Long
Dim lpTypeLib As Long
Dim TLI As ITypeLib
Dim lppTypeInfo As Long
Dim TI As ITypeInfo
Dim sName As String
Dim pAttr As Long
Dim TA As TYPEATTR
Dim IID_ClassFactory As VBGUID
Dim IID_IUnknown As VBGUID
Dim pGetClass As Long
Dim pCall As ICallDLLGetClassObject
Dim FD As FunctionDelegator
Dim pICF As IClassFactory
Dim pUnk As IUnknown
If GetModuleHandle("VBA6.DLL") <> 0 Then Exit Sub
If GetModuleHandle("VBA5.DLL") <> 0 Then Exit Sub
sFile = Space$(260)
lLen = Len(sFile)
lRet = GetModuleFileName(hMod, sFile, lLen)
If lRet Then
sFile = Left$(sFile, lLen - 1)
lpTypeLib = LoadTypeLibEx(sFile, REGKIND_NONE)
CopyMemory TLI, lpTypeLib, 4
For i = 0 To TLI.GetTypeInfoCount - 1
If TLI.GetTypeInfoType(i) = TKIND_COCLASS Then
lppTypeInfo = TLI.GetTypeInfo(i)
CopyMemory TI, lppTypeInfo, 4
TI.GetDocumentation DISPID_UNKNOWN, sName, "", 0, ""
If lstrcmp(sName, "CRuntimeInit") = 0 Then
pAttr = TI.GetTypeAttr
CopyMemory TA, ByVal pAttr, Len(TA)
TI.ReleaseTypeAttr pAttr
If TA.wTypeFlags Then
Exit For
End If
End If
End If
Next i
With IID_ClassFactory
.Data1 = 1
.Data4(0) = &HC0
.Data4(7) = &H46
End With
With IID_IUnknown
.Data4(0) = &HC0
.Data4(7) = &H46
End With
pGetClass = GetProcAddress(hMod, "DllGetClassObject")
If pGetClass Then
CopyMemory pCall, InitDelegator(FD, pGetClass), 4
lRet = pCall.Call(TA.iid, IID_ClassFactory, pICF)
If lRet <> CLASS_E_CLASSNOTAVAILABLE Then
lRet = pICF.CreateInstance(0&, IID_IUnknown, pUnk)
If lRet = S_OK Then
Set moInitObject = pUnk
moInitObject.InitVBCall
CopyMemory pCall, 0&, 4
Set pICF = Nothing
Set pUnk = Nothing
End If
End If
End If
End If
End Sub
Public Function InitDelegator(Delegator As FunctionDelegator, Optional ByVal pfn As Long) As IUnknown
If m_pVTableOKQI = 0 Then InitVTables
With Delegator
.pVTable = m_pVTableOKQI
.pfn = pfn
End With
CopyMemory InitDelegator, VarPtr(Delegator), 4
End Function
Private Sub InitVTables()
Dim pAddRefRelease As Long
With m_VTables
.VTable(0) = FuncAddr(AddressOf QueryInterfaceOK)
.VTable(4) = FuncAddr(AddressOf QueryInterfaceFail)
pAddRefRelease = FuncAddr(AddressOf AddRefRelease)
.VTable(1) = pAddRefRelease
.VTable(5) = pAddRefRelease
.VTable(2) = pAddRefRelease
.VTable(6) = pAddRefRelease
m_DelegateASM = cDelegateASM
.VTable(3) = VarPtr(m_DelegateASM)
.VTable(7) = .VTable(3)
m_pVTableOKQI = VarPtr(.VTable(0))
m_pVTableFailQI = VarPtr(.VTable(4))
End With
End Sub
Private Function QueryInterfaceOK(This As FunctionDelegator, riid As Long, pvObj As Long) As Long
pvObj = VarPtr(This)
This.pVTable = m_pVTableFailQI
End Function
Private Function AddRefRelease(ByVal This As Long) As Long
End Function
Private Function QueryInterfaceFail(ByVal This As Long, riid As Long, pvObj As Long) As Long
pvObj = 0
QueryInterfaceFail = E_NOINTERFACE
End Function
Private Function FuncAddr(ByVal pfn As Long) As Long
FuncAddr = pfn
End Function

复制代码

		自动登录	找回密码
密码			立即注册

VBGood网站全文搜索

[原创] 全球首创? 再次突破VB极限!VB真正稳定多线程(不用tlb,tls,ax,pcode)

评分

本帖子中包含更多资源