If UKey.Encrypt2("Bmhmlj10jd") <> "D8675907D9B70B016A6400" And UKey.Encrypt2("bmhmlj1jd") <> "9AA8971AC54728356400" And UKey.Encrypt2("bmhmlj2jd") <> "A5424E7AA0077FEB6400" And UKey.Encrypt2("Bmhmlj5jd") <> "73389102138322A86400" And UKey.Encrypt2("bmlj1jd") <> "E66F8A4D5FCD387B" And UKey.Encrypt2("bmlj2jd") <> "1F0FCAB107F135C2" And UKey.Encrypt2("bmlj5jd") <> "B5C00CA9B785E767" And UKey.Encrypt2("bmlj10jd") <> "04E5E40C34F6442A00" And UKey.Encrypt2("bmhm1jd") <> "AE3847873475C132" And UKey.Encrypt2("bmhm2jd") <> "1769DBC4B3E7C302" And UKey.Encrypt2("bmhm5jd") <> "864C1DB07DF67EC6" And UKey.Encrypt2("bmhm10jd") <> "6063D830BC2C3CB100" Then
MyTimers(“计划1”).Enabled = False '停止计划
MessageBox.Show("请插上博满公司提供的UKey!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)