用vb做了一个OCX,打包后无法下载安装

2011-05-31 12:23:38 262 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

如何在VB中加载OCX文件近来写的不少文件都是用到系统的ocx文件，但是发现很多xp的精简系统中居然都没有这些ocx文件。搞得我的程序在许多人的机器上无法运行，这样我就找到如下的方法来解决这个问题。即：在exe文件中将ocx作为资源文件，外部有则不理，外部没有则自动生成。做法是，将第三方控件以自定义资源文件方式保存在程序中，程序运行之后使用控件之前将所用到的控件生成到该程序目录下，完成控件从可执行文件中阅读详情

用VB6做了一个OCX，给html页面中使用，用vb6打包工具打包后，又修改了xxx.inf里相应的路径重新打包。
在机器上测试的情况是：降低了浏览器的安全级别，虽然有提示安全警告，但还可以点击“安装”进行安装。
奇怪的是点击了“安装”后好像并没有进行安装，刷新页面后还是这个安全告警提示。搜索windows文件夹后，发现没有我写的那个OCX文件。

请问这是为什么，如何处理？

另，测试机是从微软下载的纯净的XP虚拟机，

...全文

利用VB自制OCX控件导读：　　如今OCX控件在编程中已占领了很重要的地位,我们可以利用OCX控件完成一些相当复杂的编程操作.同时OCX 控件还有利于主程序的简单化、功能的重用、隐常程序实现细节、便于升级、传播方便等优点。现在我们可以利用VB 5.0方便的制作出自己的OCX控件供我们在编程中使用同时还可以把它送给你周围喜欢编程的朋友! 　　下面列出制作OCX控件的步骤：　　一：新建OCX 　　打开VB 5. 阅读详情

majten

VB基础类 7,788 成员 197,583 内容

+ 关注 + 加入社区

切换为时间正序

simon__sun 2011-05-31

打赏
举报

http://wenku.baidu.com/view/55348421af45b307e8719758.html

看看这个吧

majten 2011-05-31

打赏
举报

[Quote=引用 15 楼 simon__sun 的回复:]
把CAB发上来看看
[/Quote]

下载地址：
http://www.rayfile.com/zh-cn/files/d39a2845-8b35-11e0-aba2-0015c55db73d/

simon__sun 2011-05-31

打赏
举报

把CAB发上来看看

majten 2011-05-31

打赏
举报

[Quote=引用 12 楼 majten 的回复:]
引用 11 楼 simon__sun 的回复:
有可能电脑上有安全软件给你屏弊了犹其是360这种

测试机上没有装任何安全软件，完全是“裸机”
[/Quote]

是不是必须加入签名才行？
更新了新的classid和versionh还是不行
打包使用vb6里“外接程序”-》“打包和展开向导”做的，在vb里调试可以，但真正发布就不行了，快郁闷死了

toury 2011-05-31

打赏
举报

重新编译一下ocx,改变版本号，然后再试试。如果还是不行，怀疑你的cab安装包没做好

majten 2011-05-31

打赏
举报

[Quote=引用 11 楼 simon__sun 的回复:]
有可能电脑上有安全软件给你屏弊了犹其是360这种
[/Quote]

测试机上没有装任何安全软件，完全是“裸机”

simon__sun 2011-05-31

打赏
举报

有可能电脑上有安全软件给你屏弊了犹其是360这种

majten 2011-05-31

打赏
举报



<HTML>

<HEAD>

<TITLE>FTPUpload.CAB</TITLE>

</HEAD>

<BODY>

<!--	如果这页上的任何控件需要授权，您必须

	创建一个授权包文件。 运行 LPK_TOOL.EXE 来创建

	要求的 LPK 文件。 LPK_TOOL.EXE 将从 ActiveX SDK 中找到，

	http://www.microsoft.com/intdev/sdk/sdk.htm. 如果您有 Visual

	Basic 6.0 CD, 您可以在\Tools\LPK_TOOL 目录下找到它。



	下面是对象标记的例子：



<OBJECT CLASSID="clsid:5220cb21-c88d-11cf-b347-00aa00a28331">

	<PARAM NAME="LPKPath" VALUE="LPKfilename.LPK">

</OBJECT>

-->



<OBJECT ID="FTPUploa_Ui"

CLASSID="CLSID:57A99F0F-712D-4B0C-AD80-134AFD64D528"

CODEBASE="http://192.168.254.116:806/FTPUpload.CAB#version=1,0,0,0,">

</OBJECT>

</BODY>

</HTML>

上面代码测试过了，还是老样子。

代码中的guid、version应该是对的，没有手动该工，并且与 ftpupload.inf里的信息一致



[FTPUpload.ocx]

file-win32-x86=thiscab

RegisterServer=yes

clsid={57A99F0F-712D-4B0C-AD80-134AFD64D528}

DestDir=11

FileVersion=1,0,0,0

simon__sun 2011-05-31

打赏
举报

可以让控件变成安全控件方法不知道现在还好用不
添加一模块：basSafeCtl 内容：

 Option Explicit



      Public Const IID_IDispatch = "{00020400-0000-0000-C000-000000000046}"

      Public Const IID_IPersistStorage = _

        "{0000010A-0000-0000-C000-000000000046}"

      Public Const IID_IPersistStream = _

        "{00000109-0000-0000-C000-000000000046}"

      Public Const IID_IPersistPropertyBag = _

        "{37D84F60-42CB-11CE-8135-00AA004BB851}"



      Public Const INTERFACESAFE_FOR_UNTRUSTED_CALLER = &H1

      Public Const INTERFACESAFE_FOR_UNTRUSTED_DATA = &H2

      Public Const E_NOINTERFACE = &H80004002

      Public Const E_FAIL = &H80004005

      Public Const MAX_GUIDLEN = 40



      Public Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" _

         (pDest As Any, pSource As Any, ByVal ByteLen As Long)

      Public Declare Function StringFromGUID2 Lib "ole32.dll" (rguid As _

         Any, ByVal lpstrClsId As Long, ByVal cbMax As Integer) As Long



      Public Type udtGUID

          Data1 As Long

          Data2 As Integer

          Data3 As Integer

          Data4(7) As Byte

      End Type



      Public m_fSafeForScripting As Boolean

      Public m_fSafeForInitializing As Boolean



      Sub Main()

          m_fSafeForScripting = True

          m_fSafeForInitializing = True

      End Sub

在控件代码窗加入下面内容：

Private Sub IObjectSafety_GetInterfaceSafetyOptions(ByVal riid As _

      Long, pdwSupportedOptions As Long, pdwEnabledOptions As Long)



          Dim Rc      As Long

          Dim rClsId  As udtGUID

          Dim IID     As String

          Dim bIID()  As Byte



          pdwSupportedOptions = INTERFACESAFE_FOR_UNTRUSTED_CALLER Or _

                                INTERFACESAFE_FOR_UNTRUSTED_DATA



          If (riid <> 0) Then

              CopyMemory rClsId, ByVal riid, Len(rClsId)



              bIID = String$(MAX_GUIDLEN, 0)

              Rc = StringFromGUID2(rClsId, VarPtr(bIID(0)), MAX_GUIDLEN)

              Rc = InStr(1, bIID, vbNullChar) - 1

              IID = Left$(UCase(bIID), Rc)



              Select Case IID

                  Case IID_IDispatch

                      pdwEnabledOptions = IIf(m_fSafeForScripting, _

                    INTERFACESAFE_FOR_UNTRUSTED_CALLER, 0)

                      Exit Sub

                  Case IID_IPersistStorage, IID_IPersistStream, _

                     IID_IPersistPropertyBag

                      pdwEnabledOptions = IIf(m_fSafeForInitializing, _

                    INTERFACESAFE_FOR_UNTRUSTED_DATA, 0)

                      Exit Sub

                  Case Else

                      Err.Raise E_NOINTERFACE

                      Exit Sub

              End Select

          End If

      End Sub



      Private Sub IObjectSafety_SetInterfaceSafetyOptions(ByVal riid As _

      Long, ByVal dwOptionsSetMask As Long, ByVal dwEnabledOptions As Long)

          Dim Rc          As Long

          Dim rClsId      As udtGUID

          Dim IID         As String

          Dim bIID()      As Byte



          If (riid <> 0) Then

              CopyMemory rClsId, ByVal riid, Len(rClsId)



              bIID = String$(MAX_GUIDLEN, 0)

              Rc = StringFromGUID2(rClsId, VarPtr(bIID(0)), MAX_GUIDLEN)

              Rc = InStr(1, bIID, vbNullChar) - 1

              IID = Left$(UCase(bIID), Rc)



              Select Case IID

                  Case IID_IDispatch

                      If ((dwEnabledOptions And dwOptionsSetMask) <> _

                   INTERFACESAFE_FOR_UNTRUSTED_CALLER) Then

                          Err.Raise E_FAIL

                          Exit Sub

                      Else

                          If Not m_fSafeForScripting Then

                              Err.Raise E_FAIL

                          End If

                          Exit Sub

                      End If



                  Case IID_IPersistStorage, IID_IPersistStream, _

                IID_IPersistPropertyBag

                      If ((dwEnabledOptions And dwOptionsSetMask) <> _

                    INTERFACESAFE_FOR_UNTRUSTED_DATA) Then

                          Err.Raise E_FAIL

                          Exit Sub

                      Else

                          If Not m_fSafeForInitializing Then

                              Err.Raise E_FAIL

                          End If

                          Exit Sub

                      End If



                  Case Else

                      Err.Raise E_NOINTERFACE

                      Exit Sub

              End Select

          End If

      End Sub

toury 2011-05-31

打赏
举报

<OBJECT ID="FTPUploa_Ui"
CLASSID="CLSID:57A99F0F-712D-4B0C-AD80-134AFD64D528" //确保该值正确
CODEBASE="FTPUpload.CAB#version=1,0,0,0">
//试试全路径：http://.........../FTPUpload.CAB#Version=1,0,0,0"
//Version=1,0,0,0" //版本对吗？
//还是不行的话，试试：#version=1,0,0,0,<--------加个逗号
</OBJECT>

majten 2011-05-31

打赏
举报



<HTML>

<HEAD>

<TITLE>FTPUpload.CAB</TITLE>

</HEAD>

<BODY>

<!--	如果这页上的任何控件需要授权，您必须

	创建一个授权包文件。 运行 LPK_TOOL.EXE 来创建

	要求的 LPK 文件。 LPK_TOOL.EXE 将从 ActiveX SDK 中找到，

	http://www.microsoft.com/intdev/sdk/sdk.htm. 如果您有 Visual

	Basic 6.0 CD, 您可以在\Tools\LPK_TOOL 目录下找到它。



	下面是对象标记的例子：



<OBJECT CLASSID="clsid:5220cb21-c88d-11cf-b347-00aa00a28331">

	<PARAM NAME="LPKPath" VALUE="LPKfilename.LPK">

</OBJECT>

-->



<OBJECT ID="FTPUploa_Ui"

CLASSID="CLSID:57A99F0F-712D-4B0C-AD80-134AFD64D528"

CODEBASE="FTPUpload.CAB#version=1,0,0,0">

</OBJECT>

</BODY>

</HTML>

FTPUpload.CAB 和这个html是在同个目录下。

toury 2011-05-31

打赏
举报

晒html源码。你怎么引用这个OCX?

majten 2011-05-31

打赏
举报

[Quote=引用 2 楼 luofenghen 的回复:]
绝对路径和相对路径的问题
/和没有/ 测试下吧
[/Quote]
测试过了，加和不加"/"没有变化，最后写成 http://10.1.1.10/test.cab 也不行(这个地址存在)

Quote=引用 3 楼 asftrhgjhkjlkttttttt 的回复:]
客户机的IE属性>安全>可信站点>站点里将服务器的ip地址输入,自定义级别里将所有含activex的选项设为启用
另外OCX控件最好打包成Internet应用,包为.cab后缀的即可.
[/Quote]

按照以上步骤测试，还是老样子，弹出警告提示后有“安装”和“不安装”的按钮，但点击了“安装”后没有什么变化，OCX没有被安装到机器上，刷新后又出现了这个告警提示