IfCombo.Text=""ThenMsgBox"请选择加密方案",vbExclamation:ExitSub'空狗et99pid="FFFFFFFF"et99pin="FFFFFFFFFFFFFFFF"retcode=et_FindToken(et99pid,et99count)'查找加密狗Ifretcode=0Thenretcode=et_OpenToken(et99handle,et99pid,1)'打开加密狗retcode=et_Veri