Aplayer模块 脱离APlayerCaller.dll也可以实现使用所有功能

Duan发

看看..............

hanwenlou

wan942182718 发表于 2019-3-23 13:47
.版本 2  .子程序 创建COM, 逻辑型, 公开 .参数 com组件路径, 文本型, , \APlayer.dll .参数 父窗口句柄,  ...

厉害厉害厉害!

wan942182718

.版本 2  .子程序 创建COM, 逻辑型, 公开 .参数 com组件路径, 文本型, , \APlayer.dll .参数 父窗口句柄, 整数型 .参数 左边, 整数型 .参数 顶边, 整数型 .参数 宽度, 整数型 .参数 高度, 整数型 .参数 边框类型, 整数型, 可空, 0,无边框;1,凹入式;2,凸出式;3,浅凹入式;4,镜框式;5,单线边框式 .参数 CLSID, 文本型, 参考 可空, COM组件的实现类TKIND_COCLASS_5的UUID(GUID) .参数 IID, 文本型, 参考 可空, COM组件的被实现类(控件)TKIND_DISPATCH_4的UUID(GUID) .局部变量 局地址, 整数型 .局部变量 rclsid, 字节集 .局部变量 局字节集, 字节集 .局部变量 局句柄, 整数型 .局部变量 局类厂地址, 整数型  .如果 (是否为空 (CLSID) ＝ 真)     m_CLSID ＝ “{A9332148-C691-4B9D-91FC-B9C461DBE9DD}” .否则     m_CLSID ＝ CLSID .如果结束  .如果 (是否为空 (IID) ＝ 真)     m_IID ＝ “{F19169FA-7EB8-45EB-8800-0D1F7C88F553}” .否则     m_IID ＝ IID .如果结束  ' AtlAxWinInit 初始化控件宿主代码(atl71.dll) ' AtlAxWinTerm 取消初始化控件宿主代码(atl71.dll) 局句柄 ＝ LoadLibrary (“atl.dll”) .如果真 (局句柄 ＝ 0)     局句柄 ＝ LoadLibrary (“atl71.dll”) .如果真结束 局地址 ＝ GetProcAddress (局句柄, “AtlAxWinInit”) .如果真 (局地址 ＝ 0)     FreeLibrary (局句柄)     信息框 (“AtlAxWinInit失败”, 0, )     返回 (假) .如果真结束 ' 置入代码 ({ 255, 85, 252 })  ' _asm:call dword[ebp-4] 置入代码 ({ 255, 85, 248 })  ' call dwore [ebp-8] FreeLibrary (局句柄) CoInitialize (0) 局句柄 ＝ CoLoadLibrary (A2W (com组件路径), 1) 局地址 ＝ GetProcAddress (局句柄, “DllGetClassObject”) .如果真 (局地址 ＝ 0)     信息框 (“com组件DllGetClassObject失败”, 0, )     FreeLibrary (局句柄)     返回 (假) .如果真结束 局字节集 ＝ { 1, 0, 0, 0, 0, 0, 0, 0, 192, 0, 0, 0, 0, 0, 0, 70 }  ' IID_IClassFactory rclsid ＝ 取空白字节集 (16) CLSIDFromString (A2W (m_CLSID), rclsid) 局句柄 ＝ DllGetClassObject_ (局地址, rclsid, 局字节集, 局类厂地址)  ' IUnknown指针的指针 ' FreeLibrary (局句柄)'不能freelibrary,还在使用啊. .如果真 (局句柄 ≠ 0)     FreeLibrary (局句柄)     信息框 (“创建类厂失败:” ＋ 取十六进制文本 (局句柄), 0, )     返回 (假) .如果真结束 CLSIDFromString (A2W (m_IID), rclsid) 局句柄 ＝ CreateInstance (局类厂地址, 0, rclsid, IUnknown指针_对象 (成员_对象)) Release (局类厂地址) .判断开始 (局句柄 ＜ 0)     信息框 (“CreateInstance创建对象失败,可以尝试zc此路径下的控件再试,错误码:” ＋ 取十六进制文本 (局句柄), 0, )     返回 (假) .默认     返回 (附加窗口 (父窗口句柄, 左边, 顶边, 宽度, 高度, 边框类型) ≠ 0)

wgqxj

谢谢分享  下载学习

hanwenlou

gudandexuan 发表于 2019-3-6 10:23
嗯  没安装迅雷的电脑  用 ap.安装  返回假     如果是zc表问题 能否解决下这个问题  看了那么多aplayer ...

1069666072

gudandexuan

hanwenlou 发表于 2019-3-5 15:12
你电脑 没安装迅雷的时候 无法安装Aplayer.dll文件吗？

嗯  没安装迅雷的电脑  用 ap.安装  返回假     如果是zc表问题 能否解决下这个问题  看了那么多aplayer插件 特别喜欢你这款  方便的话 能否加个Q 像大神请教下

hanwenlou

gudandexuan 发表于 2019-3-5 00:41
发现个问题 如果系统安装了迅雷的话   ap.安装  返回真   但是没安装过迅雷的系统  直接就是假    但是装完 ...

你电脑 没安装迅雷的时候 无法安装Aplayer.dll文件吗？

hanwenlou

gudandexuan 发表于 2019-3-5 00:41
发现个问题 如果系统安装了迅雷的话   ap.安装  返回真   但是没安装过迅雷的系统  直接就是假    但是装完 ...

zc表的问题

gudandexuan

发现个问题 如果系统安装了迅雷的话   ap.安装  返回真   但是没安装过迅雷的系统  直接就是假    但是装完了迅雷 卸载掉 还是可以的  不清楚到底差在哪里  

神话妞

APlayernenga