eg:
模块中(sub main引导),也可以在引导窗体的load事件中
Public maxusetim As DateTime = CDate("2005-02-01")
sub main()
Dim nowdate As Date = New Date().Today
If nowdate > maxusetim Then '
MsgBox("到期了!" )
End
End If
....
end sub
已经编绎好的软件吗，那要加壳器了。如果软件已经加壳、那还要脱壳，再按要求加壳。
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024