用VBA把密码写入DLL

figfig

附件有2个文件 DD5.DLL ,DD6.DLL

DD5.DLL 为保存密码DLL
DD6.DLL 为修改密码DLL


假定都解压在C盘下面


修改密码方法

1.在EXCEL 新建模块
Private Declare Function ra2 Lib "c:\dd6.dll" (ByVal hh As String, ByVal jj As String) As Boolean
Sub AA()
ra2 "c:\dd5.dll", "fig888"    '前为密码DLL路径, 后为新密码
End Sub

调用密码方法

在EXCEL 新建模块

Private Declare Function ra Lib "c:\dd5.dll" () As Variant

Sub bb()
MsgBox  ra

End Sub




注意修改和调用不要同时进行,因为修改后要重新打开工程才能更新
dd5.rar (95.78 KB, 下载次数: 214)

2009-8-2 01:46 上传

点击文件名下载附件

(book1.rar 为VBA文件,供测试,需要先下载DD5.RAR并解压到C盘下面)

[ book1.rar (6.98 KB, 下载次数: 312)

2009-8-2 01:06 上传

点击文件名下载附件

[ 本帖最后由 figfig 于 2009-8-2 01:47 编辑 ]

帮一帮

很好，很厉害

xyh_bear

没有调试成功, 明明都解压在C盘中，但执行提示找不到dd5.dll 和 dd6.dll文件

飞云楼主

谢谢分享，先收下试试。

飞云楼主

找不到dd5.dll 和 dd6.dll文件

figfig

已更新.,再试试

zxhmfk

留个脚印,以后一定会用到的,谢谢!

飞云楼主

可以用了。。111

czji

不懂得用。。。

zyg365

很好，请提供“DD5.DLL ,DD6.DLL ”的源码，先谢谢了！