| 发表于:2007-04-04 09:50:136楼 得分:40 |
做一个property private const mysn= "你的密码串 " dim m_sn as string public property let sn(byval newsn as string) m_sn=newsn end property 这样就是一个只写的属性了 然后在主要功能里写上 if m_sn <> mysn then exit sub/function/property end if 别人就用不了了。必要还可以对mysn加密一下,把输入的sn也做加密运算再对比,这样就难破解一点。 | | |
|