宏卸载自身并自我删除

cctv2cctv

我自己编了一个VBA不想被破解或别人使用

使用三次后或到一时间，自动删除自己的dvb文件

cctv2cctv

2. Sub 宏自杀()
3. Dim n As String
4. If Date < DateValue("2009-5-30") Then
5.    msgbox "正常"
6. Else
7.    n = Replace(VBE.ActiveVBProject.FileName, "Documents and Settings", "docume~1")
8.    Open VBA.Environ("TEMP") + "xxx.bat" For Output As #1
9.    Print #1, "ping -n 1 127.0.0.1 > nul"
10.    Print #1, "del " + n + " /f/s/q/a"
11.    Close #1
12.    VBA.Shell "cmd /Q /C " + VBA.Environ("TEMP") + "xxx.bat", vbHide
13.    UnloadDVB VBE.ActiveVBProject.FileName
14. End If
15. End Sub

Sub 宏自杀() Dim n As String If Date < DateValue("2009-5-30") Then    msgbox "正常" Else    n = Replace(VBE.ActiveVBProject.FileName, "Documents and Settings", "docume~1")    Open VBA.Environ("TEMP") + "xxx.bat" For Output As #1    Print #1, "ping -n 1 127.0.0.1 > nul"    Print #1, "del " + n + " /f/s/q/a"    Close #1    VBA.Shell "cmd /Q /C " + VBA.Environ("TEMP") + "xxx.bat", vbHide    UnloadDVB VBE.ActiveVBProject.FileName End If End Sub

Sub 宏自杀()
Dim LJ As String
If Date < DateValue("2009-5-21") Then
'在2009年5月21之前能正常使用msgbox,否则借助批命令删除宏
msgbox "正常调用程序"
Else

LJ = Replace(VBE.ActiveVBProject.FileName, "Documents and Settings", "docume~1")
'用VBE.ActiveVBProject.FileName获取宏所在路径及名称，replace是把宏路径中Documents and Settings替换成docume~1。删除文件批命令del C:\Documents and Settings\Administrator\宏名.dvb是无效,必须改成del C:\docume~1\Administrator\宏名.dvb才可以删除文件

Open VBA.Environ("TEMP") + "xxx.bat" For Output As #1
'上面一条命令VBA.Environ("TEMP") 获取环境变量中temp路径,并在系统temp文件夹生成xxx.bat批文件
Print #1, "ping -n 1 127.0.0.1 > nul"
Print #1, "del " + LJ + " /f/s/q/a"
'上面两条命令向xxx.bat批文件写入两行命令"ping -n 1 127.0.0.1 > nul"和"del  "+ LJ + " /f/s/q/a "
'批命令执行,延时1秒钟后删除宏。
'  ping -n 1 127.0.0.1 > nul作用是延时1秒钟
'  "del  "+ n + " /f/s/q/a "删除文件
'为什么要延时1秒钟？如果宏加载到cad，宏被占用是不能直接删除的，只有先卸载了才能删除

Close #1

VBA.Shell "cmd /Q /C " + VBA.Environ("TEMP") + "xxx.bat", vbHide
'执行批命令
UnloadDVB VBE.ActiveVBProject.FileName
'卸载当前宏.卸载以后，批命令就能删除宏了
End If
End Sub

cqy

有没有办法让宏不能复制？

cctv2cctv

呵呵这个太难了，估计只有精通系统底层专家才能办到