.ocx 的文件怎么打开看里面的代码？

intergameover 2003-09-29 12:39:38

.ocx 的文件怎么打开看里面的代码？

...全文

39 1 打赏收藏转发到动态举报

写回复

1 条回复

切换为时间正序

请发表友善的回复…

发表回复

射天狼 2003-09-29

打赏
举报

回复

这是已经编译生成的控件,看不到源码!

Qt/C++中使用OCX控件的调用方法及事件处理代码实例简单的调用了OCX提供的函数，和OCX事件处理（采用了信号与槽的方式），调用qt的方法获取列出所有ocx控件的所有信号、函数、属性等。谢谢大家的分享和分数，我很需要它们。

DLL调用OCX(activex)的例子, 代码都是DEBUG编译的，内容包括OCX, DLL, EXE文件。 OCX制作方法就不说了，说下关键点就是OCX必需要重载一下IsInvokeAllowed函数,，让它直接返回true，否则将不成功，被告之是灾难性失败，错误是编号是：8000ffff OCX做好之后, 通过ClassWizard利用类型库生成包装类，生成的接口包装类后，向导会自动生成相应的.h文件.这样你就可以在你的MFC中像使用普通类那样使用组件了，在DLL里面，通过BOOL bRet = m_lpOCX->CreateDispatch(_T("MFCOCX.MFCOCXCtrl.1"));来创建OCX，后面是常有的类的用法了

1.Safengine Protector 提供强大的代码虚拟机保护您的程序免受逆向工程和非法修改。同时提供了运行时保护，并与您的程序链接在一起，使得您的程序无法离开保护代码正常运行。查看技术介绍 Safengine支持多种类型的文件格式：所有Win32/64 PE文件，包括：可执行文件 (*.exe) 屏幕保护程序 (*.scr) 动态链接库 (*.dll) ActiveX 控件 (*.ocx) 驱动程序 (*.sys) 2.里面有简单的教程。 3.生成一机一码。 4.暂时不支持NET的程序

'这是从资源文件里调用msvbvm60.dll 注册的代码 '本代码是放在模块 Moudule1.bas 里面,不是放在Form1里面的. '要注册.dll .ocx最好是放在.bas里面,并把启动项设为Sub Main '否则有可能在还没进入窗体执行注册的动作前,就产生错误而中断了 '尤其是98系统之下的msvbvm60.dll '先建立一个资源文件, 在 Custom 101 装载 msvbvm60.dll Global winsys$, appdisk$, aa$ Sub Main() On Error Resume Next If App.PrevInstance Then MsgBox "本系统已运行中, 不得重复加载!!", vbOKOnly, "菜鸟多媒体桌面工具": End appdisk = IIf(Right(App.Path, 1) = "\", App.Path, App.Path & "\") winsys = GetSyspath Call regdllocx Form1.Show End Sub Private Sub regdllocx() On Error Resume Next Dim byt() As Byte aa = winsys & "msvbvm60.dll" If Dir(aa) = "" Then byt = LoadResData(101, "CUSTOM") Open aa For Binary As #1 Put #1, 1, byt() Close #1 End If If Dir(aa) <> "" Then aa = "Regsvr32 /s " & aa Call Shell(aa, vbHide) End If End Sub Public Function GetSyspath() As String '获取system32路径 aa = Trim(Environ("ComSpec")) GetSyspath = Mid(aa, 1, InStrRev(aa, "\")) End Function '直接从资源文件调用 .bmp图片(只允许.bmp),不必释放到硬盘 'Me.Icon = LoadResPicture(101, vbResIcon) '注释：加载图标 'Picture1.Picture = LoadResPicture(101, vbResBitmap) '注释：加载位图 'Command1.MouseIcon = LoadResPicture(101, vbResCursor) '注释：加载光标' '播放 WAVE 声音(只允许.wav) Option Explicit Private Declare Function sndPlaySoundFromMemory Lib "winmm.dll" Alias "sndPlaySoundA" (lpszSoundName As Any, ByVal uFlags As Long) As Long Const SND_ASYNC = &H1 Const SND_MEMORY = &H4 Private Sub Command1_Click() Dim bArr() As Byte bArr = LoadResData(101, "CUSTOM") DoEvents sndPlaySoundFromMemory bArr(0), SND_ASYNC Or SND_MEMORY End Sub 本文来自CSDN博客，转载请标明出处：http://blog.csdn.net/cbm666/archive/2008/03/08/2158287.aspx

1.用VC6.0 OCX组建开发的软件，到没有环境的机器上跑不起来 2.只要下载本文件，然后在到其它机器里面先点击批处理文件，就可以自动注册； 3.可以可以在代码里面用CMD命令调用批处理文件，实现自动注册！

1,451

社区成员

41,355

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章