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
[招生]科锐逆向工程师培训(2024年11月15日实地，远程教学同时开班, 第51期)
