VB Decompiler Lite  弄出来的注册按钮的代码： 功力实在不够了，请指教
Data Table: 41120C
  loc_55BBA0: OnErrorGoto 0
  loc_55BBA5: FLdPrThis
  loc_55BBA6: VCallAd register.cmdCancel
  loc_55BBA9: CVarAd
  loc_55BBAD: FLdRfVar var_A4
  loc_55BBB0: ImpAdCallFPR4 arg_1 = Trim(arg_2)
  loc_55BBB5: FLdRfVar var_A4
  loc_55BBB8: LitVarStr var_B4, ""
  loc_55BBBD: HardType
  loc_55BBBE: EqVarBool
  loc_55BBC7: BranchF loc_55BC11
  loc_55BBCC: LitStr "无效注册码,请与注册电话联系！"
  loc_55BBCF: LitStr "警告"
  loc_55BBD2: LitI4 2
  loc_55BBD7: ImpAdCallFPR4 proc_53E204()
  loc_55BBDE: ImpAdCallFPR4 proc_5499FC()
  loc_55BBE5: LitStr ""
  loc_55BBE8: FLdPrThis
  loc_55BBE9: VCallAd register.cmdOK
  loc_55BBEC: FStAdFunc var_C8
  loc_55BBEF: FLdPr var_C8
  loc_55BBF2: TextBox.TextSet
  loc_55BBF7: FFree1Ad var_C8
  loc_55BBFC: FLdPrThis
  loc_55BBFD: VCallAd register.cmdOK
  loc_55BC00: FStAdFunc var_C8
  loc_55BC03: FLdPr var_C8
  loc_55BC06: TextBox.Setfocus
  loc_55BC0B: FFree1Ad var_C8
  loc_55BC10: ExitProcHresult
  loc_55BC11: ' Referenced from: 55BBC7
  loc_55BC15: ImpAdCallI2 Err
  loc_55BC1A: FStAdFunc var_C8
  loc_55BC1D: FLdPr var_C8
  loc_55BC20: VCallFPR8 unk_411255
  loc_55BC23: FFree1Ad var_C8
  loc_55BC28: FLdPrThis
  loc_55BC29: VCallAd register.cmdOK
  loc_55BC2C: CVarAd
  loc_55BC30: ImpAdCallI2 IsNumeric(arg_1)
  loc_55BC38: BranchF loc_55BEEC
  loc_55BC3D: FLdPrThis
  loc_55BC3E: VCallAd register.cmdOK
  loc_55BC41: CVarAd
  loc_55BC45: FLdRfVar var_A4
  loc_55BC48: ImpAdCallFPR4 arg_1 = Trim(arg_2)
  loc_55BC4D: FLdRfVar var_A4
  loc_55BC50: FnLenVar var_C4
  loc_55BC54: LitVarI2 var_B4, 9
  loc_55BC59: HardType
  loc_55BC5A: LeVarBool
  loc_55BC63: BranchF loc_55BE9E
  loc_55BC68: ImpAdLdI4
  loc_55BC6B: FLdRfVar var_DC
  loc_55BC6E: FLdPrThis
  loc_55BC6F: VCallAd register.cmdOK
  loc_55BC72: FStAdFunc var_C8
  loc_55BC75: FLdPr var_C8
  loc_55BC78: Get TextBox.Text
  loc_55BC7D: ILdRf var_DC
  loc_55BC80: CI4Str
  loc_55BC81: EqI4
  loc_55BC82: FFree1Str var_DC
  loc_55BC85: FFree1Ad var_C8
  loc_55BC88: BranchF loc_55BE50
  loc_55BC8D: LitI4 -1
  loc_55BC92: LitStr ""
  loc_55BC95: LitStr ""
  loc_55BC98: ImpAdLdI4
  loc_55BC9B: FLdRfVar var_E0
  loc_55BC9E: NewIfNullPr
  loc_55BCA1: Get Me.Caption
  loc_55BCA8: LitI4 3
  loc_55BCAD: FLdRfVar var_E0
  loc_55BCB0: NewIfNullPr
  loc_55BCB3: Me.LeftSet
  loc_55BCBA: LitI4 1
  loc_55BCBF: FLdRfVar var_E8
  loc_55BCC2: ImpAdLdI4
  loc_55BCC5: FnLenStr
  loc_55BCC6: ForI4
  loc_55BCCE: LitVarI2 "", 1
  loc_55BCD3: ILdRf var_E8
  loc_55BCD6: ImpAdLdRf unk_41120D
  loc_55BCD9: CVarRef
  loc_55BCDE: FLdRfVar var_A4
  loc_55BCE1: ImpAdCallFPR4 arg_1 = Mid$(arg_2, arg_3, arg_4)
  loc_55BCE6: FLdRfVar var_A4
  loc_55BCE9: CStrVarVal
  loc_55BCED: ImpAdCallI2 Asc(arg_1)
  loc_55BCF2: FStI2 var_102
  loc_55BCF5: ILdRf var_E4
  loc_55BCF8: CR8I4
  loc_55BCF9: LitDate 4.5
  loc_55BD02: FLdI2 var_102
  loc_55BD05: CR8I2
  loc_55BD06: MulR8
  loc_55BD07: FnIntR8
  loc_55BD09: AddR8
  loc_55BD0A: CI4R8
  loc_55BD0B: FStR4 var_E4
  loc_55BD0E: FFree1Str var_DC
  loc_55BD1A: FLdRfVar var_E8
  loc_55BD1D: NextI4 var_F0, loc_55BCCC
  loc_55BD24: FLdRfVar var_C8
  loc_55BD27: LitI4 -1
  loc_55BD2C: LitVar_Missing ""
  loc_55BD2F: FreeVarNoPop
  loc_55BD31: LitStr "Update NBMR Set A4=4366 WHERE A1="   这个什么意思？？？？
  loc_55BD34: ILdRf var_E4
  loc_55BD37: CStrI4
  loc_55BD39: FStStrNoPop var_DC
  loc_55BD3C: ConcatStr
  loc_55BD3D: FStStrNoPop var_108
  loc_55BD40: FLdRfVar var_E0
  loc_55BD43: NewIfNullPr
  loc_55BD46: get_DefaultProp
  loc_55BD52: FFree1Ad var_C8
  loc_55BD5A: FLdRfVar var_10C
  loc_55BD5D: FLdRfVar var_E0
  loc_55BD60: NewIfNullPr
  loc_55BD63: Get Me.Height
  loc_55BD68: ILdRf var_10C
  loc_55BD6B: LitI4 1
  loc_55BD70: EqI4
  loc_55BD71: BranchF loc_55BD81
  loc_55BD76: FLdRfVar var_E0
  loc_55BD79: NewIfNullPr
  loc_55BD7C: Reset
  loc_55BD81: ' Referenced from: 55BD71
  loc_55BD83: LitNothing
  loc_55BD85: CastAd
  loc_55BD88: FStAdFunc var_E0
  loc_55BD8D: FLdRfVar var_10C
  loc_55BD90: ImpAdCallI2 Err
  loc_55BD95: FStAdFunc var_C8
  loc_55BD98: FLdPr var_C8
  loc_55BD9B:  = PropBag.ReadProperty(, )
  loc_55BDA0: ILdRf var_10C
  loc_55BDA3: LitI4 0
  loc_55BDA8: EqI4
  loc_55BDA9: FFree1Ad var_C8
  loc_55BDAC: BranchF loc_55BE02
  loc_55BDB1: FLdRfVar ""
  loc_55BDB4: FLdPrThis
  loc_55BDB5: VCallAd register.cmdOK
  loc_55BDB8: FStAdFunc var_C8
  loc_55BDBB: FLdPr var_C8
  loc_55BDBE: Get TextBox.Text
  loc_55BDC3: ILdRf ""
  loc_55BDC6: CI4Str
  loc_55BDC7: ImpAdCallFPR4 proc_545BD8()
  loc_55BDCC: FFree1Str ""
  loc_55BDCF: FFree1Ad var_C8
  loc_55BDD4: ILdRf arg_8
  loc_55BDD7: FStAdNoPop
  loc_55BDDB: ImpAdLdRf unk_411213
  loc_55BDDE: NewIfNullPr
  loc_55BDE1: GetTypeInfo
  loc_55BDE6: FFree1Ad var_C8
  loc_55BDEB: LitStr "注册成功,请重新启动程序"
  loc_55BDEE: LitStr "信息"
  loc_55BDF1: LitI4 3
  loc_55BDF6: ImpAdCallFPR4 proc_53E204()
  loc_55BDFD: End
  loc_55BDFF: Branch loc_55BE4B
  loc_55BE02: ' Referenced from: 55BDAC
  loc_55BE06: LitStr "无效注册码,请与注册电话联系！"
  loc_55BE09: LitStr "警告"
  loc_55BE0C: LitI4 2
  loc_55BE11: ImpAdCallFPR4 proc_53E204()
  loc_55BE18: ImpAdCallFPR4 proc_5499FC()
  loc_55BE1F: LitStr ""
  loc_55BE22: FLdPrThis
  loc_55BE23: VCallAd register.cmdOK
  loc_55BE26: FStAdFunc var_C8
  loc_55BE29: FLdPr var_C8
  loc_55BE2C: TextBox.TextSet
  loc_55BE31: FFree1Ad var_C8
  loc_55BE36: FLdPrThis
  loc_55BE37: VCallAd register.cmdOK
  loc_55BE3A: FStAdFunc var_C8
  loc_55BE3D: FLdPr var_C8
  loc_55BE40: TextBox.Setfocus
  loc_55BE45: FFree1Ad var_C8
  loc_55BE4A: ExitProcHresult
  loc_55BE4B: ' Referenced from: 55BDFF
  loc_55BE4D: Branch loc_55BE99
  loc_55BE50: ' Referenced from: 55BC88
  loc_55BE54: LitStr "无效注册码,请与注册电话联系！"
  loc_55BE57: LitStr "警告"
  loc_55BE5A: LitI4 2
  loc_55BE5F: ImpAdCallFPR4 proc_53E204()
  loc_55BE66: ImpAdCallFPR4 proc_5499FC()
  loc_55BE6D: LitStr ""
  loc_55BE70: FLdPrThis
  loc_55BE71: VCallAd register.cmdOK
  loc_55BE74: FStAdFunc var_C8
  loc_55BE77: FLdPr var_C8
  loc_55BE7A: TextBox.TextSet
  loc_55BE7F: FFree1Ad var_C8
  loc_55BE84: FLdPrThis
  loc_55BE85: VCallAd register.cmdOK
  loc_55BE88: FStAdFunc var_C8
  loc_55BE8B: FLdPr var_C8
  loc_55BE8E: TextBox.Setfocus
  loc_55BE93: FFree1Ad var_C8
  loc_55BE98: ExitProcHresult
  loc_55BE99: ' Referenced from: 55BE4D
  loc_55BE9B: Branch loc_55BEE7
  loc_55BE9E: ' Referenced from: 55BC63
  loc_55BEA2: LitStr "无效注册码,请与注册电话联系！"
  loc_55BEA5: LitStr "警告"
  loc_55BEA8: LitI4 2
  loc_55BEAD: ImpAdCallFPR4 proc_53E204()
  loc_55BEB4: ImpAdCallFPR4 proc_5499FC()
  loc_55BEBB: LitStr ""
  loc_55BEBE: FLdPrThis
  loc_55BEBF: VCallAd register.cmdOK
  loc_55BEC2: FStAdFunc var_C8
  loc_55BEC5: FLdPr var_C8
  loc_55BEC8: TextBox.TextSet
  loc_55BECD: FFree1Ad var_C8
  loc_55BED2: FLdPrThis
  loc_55BED3: VCallAd register.cmdOK
  loc_55BED6: FStAdFunc var_C8
  loc_55BED9: FLdPr var_C8
  loc_55BEDC: TextBox.Setfocus
  loc_55BEE1: FFree1Ad var_C8
  loc_55BEE6: ExitProcHresult
  loc_55BEE7: ' Referenced from: 55BE9B
  loc_55BEE9: Branch loc_55BF35
  loc_55BEEC: ' Referenced from: 55BC38
  loc_55BEF0: LitStr "无效注册码,请与注册电话联系！"
  loc_55BEF3: LitStr "警告"
  loc_55BEF6: LitI4 2
  loc_55BEFB: ImpAdCallFPR4 proc_53E204()
  loc_55BF02: ImpAdCallFPR4 proc_5499FC()
  loc_55BF09: LitStr ""
  loc_55BF0C: FLdPrThis
  loc_55BF0D: VCallAd register.cmdOK
  loc_55BF10: FStAdFunc var_C8
  loc_55BF13: FLdPr var_C8
  loc_55BF16: TextBox.TextSet
  loc_55BF1B: FFree1Ad var_C8
  loc_55BF20: FLdPrThis
  loc_55BF21: VCallAd register.cmdOK
  loc_55BF24: FStAdFunc var_C8
  loc_55BF27: FLdPr var_C8
  loc_55BF2A: TextBox.Setfocus
  loc_55BF2F: FFree1Ad var_C8
  loc_55BF34: ExitProcHresult
  loc_55BF35: ' Referenced from: 55BEE9
  loc_55BF39: FLdRfVar var_10C
  loc_55BF3C: ImpAdCallI2 Err
  loc_55BF41: FStAdFunc var_C8
  loc_55BF44: FLdPr var_C8
  loc_55BF47:  = PropBag.ReadProperty(, )
  loc_55BF4C: ILdRf var_10C
  loc_55BF4F: LitI4 0
  loc_55BF54: NeI4
  loc_55BF55: FFree1Ad var_C8
  loc_55BF58: BranchF loc_55BF9F
  loc_55BF5D: LitStr "无效注册码,请与注册电话联系！"
  loc_55BF60: LitStr "警告"
  loc_55BF63: LitI4 2
  loc_55BF68: ImpAdCallFPR4 proc_53E204()
  loc_55BF6F: ImpAdCallFPR4 proc_5499FC()
  loc_55BF76: LitStr ""
  loc_55BF79: FLdPrThis
  loc_55BF7A: VCallAd register.cmdOK
  loc_55BF7D: FStAdFunc var_C8
  loc_55BF80: FLdPr var_C8
  loc_55BF83: TextBox.TextSet
  loc_55BF88: FFree1Ad var_C8
  loc_55BF8D: FLdPrThis
  loc_55BF8E: VCallAd register.cmdOK
  loc_55BF91: FStAdFunc var_C8
  loc_55BF94: FLdPr var_C8
  loc_55BF97: TextBox.Setfocus
  loc_55BF9C: FFree1Ad var_C8
  loc_55BF9F: ' Referenced from: 55BF58
  loc_55BFA3: ExitProcHresult

[注意]传递专业知识、拓宽行业人脉——看雪讲师团队等你加入！