VB根据硬件ID以及程序ID高效率生成注册码实例 Private Sub Command1_Click() Dim b_HDD As Boolean Dim b_NIC As Boolean Dim b_CPU As Boolean Dim b_BIOS As Boolean b_HDD = False b_NIC = False b_CPU =