如何通过VBA代码自杀掉引用的DLL文件？

yuioplkjh · 发表于 2011-8-14 19:08

本帖最后由 yuioplkjh 于 2011-8-15 21:49 编辑

excel表格可以通过VBA代码自杀，例如：
……
……
With ThisWorkbook
      .Saved = True
      .ChangeFileAccess xlReadOnly
      Kill .FullName
      .Close False
End With
……
……
……
请问：excel表格在自杀的同时如何删除掉引用的指定的dll文件？详见附件，表格自杀的同时也删除掉引用的“ldhdll.dll”文件。
高手赐教，谢！

DLL调用示例.rar (17.84 KB, 下载次数: 34)

tonychris · 发表于 2011-8-14 20:18

c语言用atexit函数可以实现自杀
但vb代码就不行，如果只想达到目的的话，在代码里用shell命令掉个批处理来删除

yuioplkjh · 发表于 2011-8-14 20:51

tonychris 发表于 2011-8-14 20:18
c语言用atexit函数可以实现自杀
但vb代码就不行，如果只想达到目的的话，在代码里用shell命令掉个批处理来 ...

“在代码里用shell命令掉个批处理来删除”，请详细说明一下，这个不懂，见笑。

yuioplkjh · 发表于 2011-8-14 20:53

该如何实现能？

tonychris · 发表于 2011-8-14 20:57

比如a.bat的内容如下：
:loop
del c:\a.dll
if exist c:\a.dll goto loop
del %0
用vb代码写到a.bat文件里，然后在程序最后加上shell "a.bat",vbhide就行了
这样，dll和bat文件最后都没了。。

yuioplkjh · 发表于 2011-8-15 21:44

本帖最后由 yuioplkjh 于 2011-8-15 21:45 编辑

tonychris 发表于 2011-8-14 20:57
比如a.bat的内容如下：
:loop
del c:\a.dll
if exist c:\a.dll goto loop
del %0

上述代码中的"c:\a.dll"这部分代码能用相对路径替代吗，类似VB中的(Thisworkbook.path & ”\***")，可以的话，相对路径该怎么表示，谢了！

tonychris · 发表于 2011-8-15 22:05

首先，Thisworkbook.path & ”\***"是绝对路径，不是相对路径
其次，你需要在代码里把dll的绝对路径找到，然后动态写入到bat文件，那个c:\1.dll只是各例子而已

yuioplkjh · 发表于 2011-8-15 22:21

那是个例子，我明白。我的意思是每个人会把附件中的文件夹放在不同的硬盘分区里，有的人会放在C盘，有的人会放在E盘，这样的话用盘符开始的文件路径就固定住了，放在C盘中的能删掉，放在E盘中的就删不掉了，是想解决这个问题。
你说的“动态写入到bat文件”是什么意思，写好的bat文件能随时变是吗？

tonychris · 发表于 2011-8-15 22:23

dll不管放在那个盘，在excel中都能知道的，因为如果你不知道的话，你就无法引用它

咸味 · 发表于 2018-6-29 10:56

又学习了一招

		自动登录	找回密码
密码			免费注册

[求助] 如何通过VBA代码自杀掉引用的DLL文件？