MakeDLLLink V1.0.6 使用VB6制作带函数输出的DLL

MakeDLLLink说明 ==================================================================================== 适用于 VB 编译链接创建可输出函数的动态链接库（DLL），可象 API 函数一样使用，不必注册。 编者：侃大川（Web ID） QQ：875799229 Email:dsq99229@QQ.com ==================================================================================== ===2009.10.21 ====================================== MakeDllLink.exe V1.0.6 处理了2个 Bug 其一：运行时错误 9，下界超标。 该Bug存在于编译标准EXE工程，没有可输出函数，声明动态数组下标使用了0 to -1。 其二：路径中含有汉字空格时，函数搜索不到的问题。 调整了运行时窗口初始布局，V1.0.6修改了图标 ===2009.10.20 ====================================== MakeDllLink.exe V1.0.4 增加了双击窗体开关，控制窗体显示在顶层，还是正常显示 细化了功能控制开关，版本命名为 V1.0.4 ==================================================== == 创建与修改经历 2009.10.18 ================================== 2009.10.18 MakeDllLink.exe V1.0.0 完成 原先曾使用 Web ID为小马（马大哈）的 LinkDll V1.8 工具 但被病毒侵害，又找不到替代品，因此产生编制MakeDllLink工具的冲动。 连查资料带编码调试，费了一周时间，终于于2009.10.18日下午完成了 MakeDllLink V1.0.0 的最终调试工作而定型。 感谢马大哈给予的启发，以及众多网友的言论评述。 调试 ActiveX DLL工程，与标准 EXE 工程，成功。 未对 ActiveX OCX工程进行调试。 ====================================================== 使用说明： 此包中含2个文件： LinkMakeDll.exe ----创建输出函数的工具软件（预留备用） Link.exe ----上文件的改名 1、将 VB6 安装目录下的 Link.exe 改成 Link3.exe 2、将 Link.exe 拷贝到 Link3.exe 所在目录 另外：Link3.exe 是VB6的Link.exe的备份 注意：在输出DLL的目录（工程目录）中，包含API的声明文件，改名后可以直接使用 =============== 工程代码编写帮助： 1.两种方式创建可输出函数的DLL(即通用API)。但函数必须写于标准模块（.bas）中，且使用 Public 关键字前缀。 2.其一：建 ActiveX DLL工程，使类模块为空。其二：建标准EXE工程，移除窗体模块；添加空的 Sub Main()绕过VB编译检查，同时添加入口函数。 3.标准EXE工程，在生成 *.exe 对话框中，必须将.exe 改成.Dll。标准exe工程必须添加DLL的入口函数如下（函数名大小写敏感,可拷贝使用）： Public Function DllMain(ByVal hInstDLL As Long, ByVal fdwReason As Long, ByVal lpwReserved As Long) As Long 'Dll 的/Entey选项（入口） DllMain = 1 End Function Sub Main() '避免编译错误 End Sub 4.DLL工程，属性中【通用】\【工程名称】填写输出的DLL名称（不加扩展名）；【编译】选【编译为本机代码】。若出现兼容性警告，【部件】卡中【版本兼容】选项中的文本框清空即可。 5.链接选项选【带API函数的DLL】,如果需要则勾选【API函数声明文件】，后期使用DLL时引入即可。 6.选择输出函数，然后点击【执行】，同时退出。 注：系统默认【VB 标准链接】。编译的是 ActiveX DLL 或者是标准可执行文件 *.Exe 警告1：函数首行当使用续行符（_）时，第一个续行符最前不能超前左括号，正确格式如：【.. Sub 函数名( _ 】，续行符允许后移。 警告2：该版本没有解决标准模块不在本工程目录下的加载问题。所以所有模块必须与工程文件在同一目录下。 技巧：串参数用于函数内的 MsgBox 显示前，须使用StrConv(串, vbUnicode)转换，不然无法正常显示。 ========================================================