2024年3月21日发(作者：)
0
0
1.找出VB安装文件的一个东西
F:VB6.0COMMONTOOLSVBUNSUPPRTTYPLIB，这个目录里有一个文件MKTYPLIB
是用来生成库文件的。 复制到一个新建文件夹备用
00
2.新建一个文本文件，把下面的代码复制进去：
[
uuid(CF9D9B76-EC4B-470D-99DC-AEC6F36A9261),
helpstring("VB IObjectWithSite Interface"),
version(1.0)
]
library IObjectWithSiteTLB
{
importlib("");
typedef [public] long GUIDPtr;
typedef [public] long VOIDPtr;
[
uuid(00000000-0000-0000-C0046),
odl
]
interface IUnknownVB
{
HRESULT QueryInterface(
[in] GUIDPtr priid,
[out] VOIDPtr *pvObj
);
long AddRef();
long Release();
}
[
uuid(FC4801A3-2BA9-11CF-A229-00AA003D7352),
odl
]
interface IObjectWithSite:IUnknown
{
typedef IObjectWithSite *LPOBJECTWITHSITE;
HRESULT SetSite([in] IUnknownVB* pSite);
HRESULT GetSite([in] GUIDPtr priid, [in, out] VOIDPtr* ppvObj);
}
}
0 0
另存为： ，注意扩展名
0 0
把这个拖到 上，注意看，自动生成了
我们要用的文件，
0 0
建立dll工程
打开vb6.0 --新建一个activeX dll 工程，
把下面的代码复制进去，
Implements tWithSite
Dim WithEvents IE As InternetExplorer
Dim M_Site As IUnknownVB
Private Sub IObjectWithSite_GetSite(ByVal Priid As
r, PPVobj As r)
M_nterface Priid, PPVobj
End Sub
Private Sub IObjectWithSite_SetSite(ByVal pSite As
wnVB)
Set M_Site = pSite
Set IE = pSite
End Sub
添加引用
0 0
在“工程”--“引用”里，通过浏览引用我们生成的
再次添加一个引用：microsoft internet controls
在工程中使用以下代码
0 0
0 0
Private Sub IE_DocumentComplete(ByVal pDisp As Object, URL As Variant)
MsgBox URL, vbInformation, "PHP18易吧"
End Sub
0 0
点击文件 . 生成生成 ，当然你知道名字是你自己来取的
0
0
在你的操作系统目录下有一个systm32目录，在里面有一个exe文件，名字是
regsvr32,是用来注册组件的。
0 0
在资源管理器你把 拖拉到身上，显示注册成功。
0 0
运行 在注册表里搜索 ,你会在
HKEY_CLASSES_ROOTCLSID中看到注册组件 的GUID。然后将这个
GUID拷贝下来，然后在注册表
HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindowsCurrentVersionExplorer
Browser Helper Objects
下创建一个新项，项的名称就是这个GUID。 搞定以后，打开IE，看看效果出现
了吗？
修改的时候，只要关闭了 ie, 重新生成 文件就可以。
当然，你可以在 ie的“工具（T）”--"管理加载项下"，启用/禁用 你的插件
0 0
大功告成。
0 0
其实以上的步骤，在修改注册表和注册DLL的步骤可以用程序的方法完成。 让
别人下载后，一点击，马上安装成功
0 0
0
发布评论