VB6防破解之检测大小自校验_检测自身是否被脱壳

Private Sub Form_Load()

If FileBig > 27300 Then

'第一次这个数字随便设置,先编译好

'用压缩壳将它压缩,查看压缩后文件大小

'回到这里,修改数值比压缩后的大小大那儿一些就够了

'如果被脱壳了,程序体积就会膨胀

'从而被我们检测出来

'当然要注意了,如果是保护壳的话

'加壳后反而更大,这个时候,我们的判断

'语句就要反过来了

MsgBox "程序被脱壳了", , "警告"

Else

MsgBox "程序正常", , "通过"

End If

End Sub

Private Function FileBig() As Long

'如果文件巨大,那么改LONG为DOUBLE

Dim FileLujin As String

filelujing = App.Path & "\" & App.EXEName & ".exe"

FileBig = FileLen(filelujing)

End Function