F:\VB6.0\COMMON\TOOLS\VB\UNSUPPRT\TYPLIB,这个目录里有一个文件MKTYPLIB 是用来生成库文件的。复制到一个新建文件夹备用 [
uuid(CF9D9B76-EC4B-470D-99DC-AEC6F36A9261),
helpstring("VB IObjectWithSite Interface"),
version(1.0)
]
library IObjectWithSiteTLB
{傅立叶
importlib("stdole2.tlb");
typedef [public] long GUIDPtr;
typedef [public] long VOIDPtr;
[
uuid(00000000-0000-0000-C000-000000000046),
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);
}
}
另存为:IObjectWithSiteTLB.odl ,注意扩展名
把这个IObjectWithSiteTLB.odl拖到 上,注意看,自动生成了我们要用的文件IObjectWithSiteTLB.tlb,
建立dll工程
打开vb6.0 --新建一个activeX dll 工程,
把下面的代码复制进去,
Implements IObjectWithSiteTLB.IObjectWithSite
Dim WithEvents IE As InternetExplorer
Dim M_Site As IUnknownVB
Private Sub IObjectWithSite_GetSite(ByVal Priid As IObjectWithSiteTLB.GUIDPtr, PPVobj As IObjectWithSiteTLB.VOIDPtr)
M_Site.QueryInterface Priid, PPVobj
End Sub
Private Sub IObjectWithSite_SetSite(ByVal pSite As IObjectWithSiteTLB.IUnknownVB)
Set M_Site = pSite
Set IE = pSite
End Sub项香女老师在大陈岛工作了几年
添加引用
在“工程”--“引用”里,通过浏览引用我们生成的
IObjectWithSiteTLB.tlb
再次添加一个引用:microsoft internet controls
在工程中使用以下代码
Private Sub IE_DocumentComplete(ByVal pDisp As Object, URL As Variant) MsgBox URL, vbInformation, "PHP18易吧"
End Sub
点击文件 . 生成生成bho1010.dll ,当然你知道名字是你自己来取的
决战东北
在你的操作系统目录下有一个systm32目录,在里面有一个exe文件,名字是regsvr32,是用来注册组件的。在资源管理器你把bho1010.dll 拖拉到身上,显示注册成功。
运行 在注册表里搜索bho1010.dll ,你会在
HKEY_CLASSES_ROOT\CLSID中看到注册组件bho1010.dll 的GUID。然后将这个GUID拷贝下来,然后在注册表
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer \Browser Helper Objects
下创建一个新项,项的名称就是这个GUID。搞定以后,打开IE,看看效果出现了吗?
修改的时候,只要关闭了 ie, 重新生成bho1010.dll 文件就可以。
当然,你可以在 ie的“工具(T)”--"管理加载项下",启用/禁用你的插件大功告成。 其实以上的步骤,在修改注册表和注册DLL的步骤可以用程序的方法完成。让别人下载后,一点击,马上安装成功