netice

偶做的一个小逗人的程序。。想让对方暂时无法删除。。就是想自我复制一个放在另一个目录。。。
。。。原来看别人的源码实现起来很麻烦。。

Nothing

使用API CopyFile可以复制正在运行的文件
无法删除很简单，只要程序不能退出就行了。
在退出的地方加上如下代码
Private Sub Form_Unload(Cancel As Integer)
    Shell App.Path & "\" & App.EXEName & ".exe"
End Sub
编译成EXE文件试试就知道了。

netice

这个我明白。。就是在Unload事件中加个进程也可以实现吧。。
不过。。你的方法在进程中依然可以杀掉！！
我是想隐蔽点！

Nothing

在2000以上，想不被进程杀掉，几乎不可能的，除非为做了系统服务，不过用kill命令也能杀掉。

netice

也是啊。。哈哈。。我再想想别的办法了。。

Nothing

是呀，关键是kill命令连R0级的程序都可以杀掉，非常强。
不过还有一个办法，使用sys文件，做为系统的一个驱动，这个很难杀掉，不过VB实现不了。