程序13-9：网络密码锁中计算机端程序

Private Sub Form_Load()

　　Timerl.Enabled=False　　　　　　　　’关闭定时器

End Sub

Private Sub cmd_enter_Click()　　　　’“确定”按钮事件

　　lab_code.Caption=txt_code.Text　　　　’密码显示

　　MSComml.PortOpen=True　　　　　　　　’打开串口

　　Timerl.Enabled=True　　　　　　　　　　’使能定时器

End Sub

-terminal computer network password lock program