VB6防破解之借鸡生蛋源码分享及原理注释

If Dir(Lujing) = "" Then

'检测子体是否已经存在

'不是的话就直接释放一个即可

Dim Shuzu() As Byte

'定义一个数组储存数据

Shuzu() = LoadResData(101, "CUSTOM")

'加载数据,101代号指的就是我们添加的EXE子体

Open Lujing For Binary As #1

'定义一个缓存路径

Put #1, , Shuzu()

'开始写入

Close #1

'关闭通道

Else

Kill Lujing

'发现已经存在就删除它,然后就重新创建;目的是为了防止有人故意同名替换

'定义一个数组储存数据

Shuzu() = LoadResData(101, "CUSTOM")

'加载数据,101代号指的就是我们添加的EXE子体

Open Lujing For Binary As #1

'定义一个缓存路径

Put #1, , Shuzu()

'开始写入

Close #1

'关闭通道

End If