VB技巧问答10000例,是一个教程

				一 个 办 法 是 买 现 成 的 软 件 狗 或 加 密 包 ， 当 然 你 要 破 费 一 点 ， 但 一 般 安 全 性 好 些 ， 而 且 比 较 省 事 。 
				    另 一 个 办 法 是 读 取 硬 盘 驱 动 器 的 序 列 号 (用 Windows API的 GetVolumeInformation， 参 见 “如何调用GetVolumeInformation获得磁盘序列号”)， 然 后 偷 偷 地 保 存 起 来 ， 如 果 发 现 硬 盘 的 序 列 号 同 保 存 的 不 一 样 就 拒 绝 运 行 。 还 有 一 些 类 似 的 办 法 ， 比 如 每 个 用 户 指 定 一 个 序 列 号 和 密 码 ， 如 果 序 列 号 和 密 码 不 匹 配 就 拒 绝 运 行 。 至 于 匹 配 关 系 ， 你 可 以 自 己 决 定 。