Private Sub Command1_Click() '40C080
  loc_0040C0A5: var_8 = &H4013F8
  loc_0040C163: var_58 = Text2.Text
  loc_0040C19E: var_5C = Text2.Text
  loc_0040C1D0: setle dl
  loc_0040C1D3: neg edx
  loc_0040C1EC: setnle cl
  loc_0040C1EF: neg ecx
  loc_0040C1F1: edx = "" And ecx
                If "" And ecx <> edi Then
  loc_0040C25F:   var_74 = Text2.Text
  loc_0040C294:   fsub real8 ptr [004013F0h] ;
  loc_0040C2A0:   fstsw ax
                  If Val(@CStr(@Left(8, 00000005h))) = 0 Then
  loc_0040C2AA:     call MSVBVM60.DLL.__vbaFpI4("", "", arg_8, "", arg_8, arg_8, arg_8, arg_8, arg_8)
  loc_0040C2F4:     var_58 = Text2.Text
  loc_0040C32F:     var_5C = Text2.Text
  loc_0040C35B:     var_74 = 0
  loc_0040C36B:     Len(var_5C) = Len(var_5C) - 00000005h
                    If Err.Number <> 0 Then GoTo loc_0040D051
  loc_0040C380:     var_8C = @Right(8, Len(var_5C))
  loc_0040C39E:     fsub real8 ptr [004013E8h] ;
  loc_0040C3A4:     fstsw ax
                    If Val(@CStr(var_8C)) = 0 Then
  loc_0040C3AE:       call MSVBVM60.DLL.__vbaFpI4("", arg_8, arg_8, "", var_8C, var_8C, var_8C, var_8C, var_8C)
  loc_0040C3EC:       Form0.GetPalette = Form0.GetPalette - 000004D2h
                      If Err.Number <> 0 Then GoTo loc_0040D051
  loc_0040C409:       fild dword ptr ""
  loc_0040C412:       var_11C = 5
  loc_0040C41C:       fstp real8 ptr var_1C0
  loc_0040C422:       fld real8 ptr var_1C0
                      If var_410000 = 0 Then
  loc_0040C431:         fdiv real8 ptr [004013E0h] ;
  loc_0040C437:         GoTo loc_0040C44A
                      End If
  loc_0040C445:       call MSVBVM60.DLL._adj_fdiv_m64(var_4013E0, var_4013E4)
  loc_0040C44A:       'Referenced from 0040C437
  loc_0040C44A:       fstp real8 ptr var_114
  loc_0040C450:       fstsw ax
                      If MSVBVM60.DLL._adj_fdiv_m64(var_4013E0, var_4013E4) = 0 Then
  loc_0040C45A:         call MSVBVM60.DLL.__vbaVarMove
  loc_0040C465:         Form0.Reset = Form0.Reset - 0000099Ah
  loc_0040C46B:         var_11C = 5
                        If Err.Number <> 0 Then GoTo loc_0040D051
  loc_0040C484:         fild dword ptr ""
  loc_0040C48A:         fstp real8 ptr var_1CC
  loc_0040C490:         fld real8 ptr var_1CC
                        If var_410000 = 0 Then
  loc_0040C49F:           fdiv real8 ptr [004013D8h] ;
  loc_0040C4A5:           GoTo loc_0040C4B8
                        End If
  loc_0040C4B3:         call MSVBVM60.DLL._adj_fdiv_m64(var_4013D8, var_4013DC)
  loc_0040C4B8:         'Referenced from 0040C4A5
  loc_0040C4B8:         fstp real8 ptr var_114
  loc_0040C4BE:         fstsw ax
                        If MSVBVM60.DLL._adj_fdiv_m64(var_4013D8, var_4013DC) = 0 Then
  loc_0040C4C8:           call MSVBVM60.DLL.__vbaVarMove
  loc_0040C55E:           var_58 = @CStr(@Left(@Trim(@Str(&H4003)), 00000004h))
  loc_0040C567:           fstp real8 ptr var_124
  loc_0040C57D:           var_12C = &H8005
  loc_0040C598:           var_5C = @CStr(@Right(""C, 00000004h))
  loc_0040C5A4:           fstp real8 ptr var_144
  loc_0040C5AA:           var_14C = &H8005
  loc_0040C5CE:           var_60 = Text3.Text
  loc_0040C609:           call eax+50h(CheckObj(var_60, esi, 00404668h, 000000A0h), "", "", CheckObj(var_60, esi, 00404668h, 000000A0h), arg_8, "", arg_8, arg_8)
  loc_0040C62F:           neg eax
  loc_0040C631:           sbb eax, eax
  loc_0040C639:           eax = (var_60 = "") + 1
  loc_0040C63D:           neg eax
  loc_0040C63F:           var_154 = (var_60 = "") + 1
  loc_0040C655:           var_15C = 11
  loc_0040C65F:           call MSVBVM60.DLL.__vbaVarCmpEq("", var_12C, "")
  loc_0040C674:           call MSVBVM60.DLL.__vbaVarCmpEq("", var_14C, "", MSVBVM60.DLL.__vbaVarCmpEq("", var_12C, ""))
  loc_0040C684:           call And("", MSVBVM60.DLL.__vbaVarCmpEq("", var_14C, "", MSVBVM60.DLL.__vbaVarCmpEq("", var_12C, "")))
  loc_0040C695:           call And("", var_15C, And("", MSVBVM60.DLL.__vbaVarCmpEq("", var_14C, "", MSVBVM60.DLL.__vbaVarCmpEq("", var_12C, ""))))
  loc_0040C698:           call MSVBVM60.DLL.__vbaBoolVarNull(And("", var_15C, And("", MSVBVM60.DLL.__vbaVarCmpEq("", var_14C, "", MSVBVM60.DLL.__vbaVarCmpEq("", var_12C, "")))))
                          If MSVBVM60.DLL.__vbaBoolVarNull(And("", var_15C, And("", MSVBVM60.DLL.__vbaVarCmpEq("", var_14C, "", MSVBVM60.DLL.__vbaVarCmpEq("", var_12C, ""))))) <> 0 Then
  loc_0040C714:             var_A4 = 80020004h
  loc_0040C71A:             var_94 = 80020004h
  loc_0040C720:             var_84 = 80020004h
  loc_0040C741:             var_114 = "zccg"
  loc_0040C74B:             var_11C = 8
  loc_0040C776:             MsgBox("zccg", 00000000h, 10, 10, 10)
  loc_0040C7B3:             call MSVBVM60.DLL.__vbaStrCopy
  loc_0040C7DC:             var_12C = 10
  loc_0040C7E2:             var_11C = 10
  loc_0040C7F5:             var_124 = 80020004h
  loc_0040C80D:             var_114 = 80020004h
  loc_0040C847:             call ecx+000002B0h(00410010h)
  loc_0040C88C:             call ecx+54h(00410010h, 0040524Ch)
  loc_0040C8CA:             call edx+14h(00410434h, "")
  loc_0040C8EE:             call ecx+50h("", "")
  loc_0040C92B:             call Open #(00000004h, 0000000Ch, 00000001h, "" & "\file.dat")
  loc_0040C958:             var_11C = 2
  loc_0040C95E:             var_12C = 2
  loc_0040C964:             var_13C = 2
  loc_0040C98B:             var_114 = 1
  loc_0040C991:             var_124 = &H64
  loc_0040C99B:             var_134 = 1
                            For var_34 = 1 To &H64 Step 1
                              If "" <> 0 Then
  loc_0040C9B8:                 var_74 = 80020004h
  loc_0040C9C7:                 Randomize(10)
  loc_0040C9D5:                 var_74 = 1
  loc_0040C9EA:                 fstp real4 ptr var_160
  loc_0040C9F0:                 fld real4 ptr var_160
  loc_0040C9F6:                 fmul real4 ptr [004013D0h] ;
  loc_0040C9FC:                 fstsw ax
                                If Rnd(2) = 0 Then
  loc_0040CA06:                   call MSVBVM60.DLL.__vbaFPInt("", "", var_13C, var_12C, var_11C)
  loc_0040CA0C:                   fmul real8 ptr [004013C8h] ;
  loc_0040CA12:                   fstsw ax
                                  If MSVBVM60.DLL.__vbaFPInt("", "", var_13C, var_12C, var_11C) = 0 Then
  loc_0040CA1C:                     call MSVBVM60.DLL.__vbaFpI4
  loc_0040CA29:                     var_74 = 1
  loc_0040CA3E:                     fstp real4 ptr var_160
  loc_0040CA44:                     fld real4 ptr var_160
  loc_0040CA4A:                     fmul real4 ptr [004013D0h] ;
  loc_0040CA50:                     fstsw ax
                                    If Rnd(2) = 0 Then
  loc_0040CA5A:                       call MSVBVM60.DLL.__vbaFPInt
  loc_0040CA60:                       fmul real8 ptr [004013C0h] ;
  loc_0040CA66:                       fstsw ax
                                      If MSVBVM60.DLL.__vbaFPInt = 0 Then
  loc_0040CA70:                         call MSVBVM60.DLL.__vbaFpI4
  loc_0040CA7D:                         var_74 = 1
  loc_0040CA92:                         fstp real4 ptr var_160
  loc_0040CA98:                         fld real4 ptr var_160
  loc_0040CA9E:                         fmul real4 ptr [004013D0h] ;
  loc_0040CAA4:                         fstsw ax
                                        If Rnd(2) = 0 Then
  loc_0040CAAE:                           call MSVBVM60.DLL.__vbaFPInt
  loc_0040CAB4:                           fmul real8 ptr [004013B8h] ;
  loc_0040CABA:                           fstsw ax
                                          If MSVBVM60.DLL.__vbaFPInt = 0 Then
  loc_0040CAC4:                             call MSVBVM60.DLL.__vbaFpI4
  loc_0040CAD6:                             call Put #(0000000Ch, Label6.Standing = %x1, 00000001h)
                                          Next ""
  loc_0040CAF4:                           GoTo loc_0040C9AD
                                        End If
  loc_0040CB3A:                         var_74 = Text2.Text
  loc_0040CB47:                         var_58 = 0
  loc_0040CB73:                         fsub real8 ptr [004013F0h] ;
  loc_0040CB79:                         fstsw ax
                                        If Val(@CStr(@Left(8, 00000005h))) = 0 Then
  loc_0040CB83:                           call MSVBVM60.DLL.__vbaFpI4("", Next "", arg_8, "")
  loc_0040CBCD:                           var_58 = Text2.Text
  loc_0040CC08:                           var_5C = Text2.Text
  loc_0040CC34:                           var_74 = 0
  loc_0040CC44:                           Len(var_5C) = Len(var_5C) - 00000005h
                                          If Err.Number <> 0 Then GoTo loc_0040D051
  loc_0040CC59:                           var_8C = @Right(8, Len(var_5C))
  loc_0040CC77:                           fsub real8 ptr [004013E8h] ;
  loc_0040CC7D:                           fstsw ax
                                          If Val(@CStr(var_8C)) = 0 Then
  loc_0040CC87:                             call MSVBVM60.DLL.__vbaFpI4("", arg_8, arg_8, "", var_8C, var_8C, var_8C, var_8C, var_8C)
  loc_0040CCC6:                             var_24 = @CLng(%x2)
  loc_0040CCF5:                             var_164 = &H410434
  loc_0040CD1A:                             call MSVBVM60.DLL.__vbaObjSetAddref("", 00410058h)
  loc_0040CD20:                             var_1D0 = ebx
  loc_0040CD34:                             call Form0.GetTypeInfo(MSVBVM60.DLL.__vbaObjSetAddref("", 00410058h))
  loc_0040CD5F:                             call MSVBVM60.DLL.__vbaPut4(0000000Ch, Form0.GetPalette, 00000021h)
  loc_0040CD76:                             var_74 = 1
  loc_0040CD8A:                             fstp real4 ptr var_160
  loc_0040CD90:                             fld real4 ptr var_160
  loc_0040CD96:                             fmul real4 ptr [004013D0h] ;
  loc_0040CD9C:                             fstsw ax
                                            If Rnd(2) = 0 Then
  loc_0040CDA6:                               call MSVBVM60.DLL.__vbaFPInt
  loc_0040CDAC:                               fmul real8 ptr [004013B8h] ;
  loc_0040CDB2:                               fstsw ax
                                              If MSVBVM60.DLL.__vbaFPInt = 0 Then
  loc_0040CDBC:                                 call MSVBVM60.DLL.__vbaFpI4
  loc_0040CDD1:                                 call MSVBVM60.DLL.__vbaPut4(0000000Ch, 00000064h, 0000002Bh, 00000001h)
  loc_0040CDD9:                                 Close 00000001h
  loc_0040CDE1:                                 GoTo loc_0040CF77
                                              End If
  loc_0040CE01:                               call Text2.Setfocus("", Close 00000001h, arg_8)
  loc_0040CE42:                               Text2.Text = 00404508h
  loc_0040CE85:                               Text3.Text = 00404508h
  loc_0040CEAA:                               GoTo loc_0040CF77
                                            End If
  loc_0040CEC8:                             call Text2.Setfocus("", "", "", "", arg_8, "", "", "")
  loc_0040CF0D:                             Text2.Text = 00404508h
  loc_0040CF54:                             Text3.Text = 00404508h
  loc_0040CF77:                             'Referenced from 0040CDE1
  loc_0040CF80:                             GoTo loc_0040CFF9
  loc_0040CFF8:                             Exit Sub
  loc_0040CFF9:                             'Referenced from 0040CF80
  loc_0040D02C:                             Exit Sub
  loc_0040D049:                             Exit Sub
                                          End If
                                        End If
                                      End If
                                    End If
                                  End If
                                End If
                              End If
                            End If
                          End If
                        End If
                      End If
                    End If
                  End If
                End If
  loc_0040D04C: GoTo loc_MSVBVM60.DLL.__vbaFPException
  loc_0040D051: 'Referenced from 040C371
  loc_0040D051: call MSVBVM60.DLL.__vbaErrorOverflow
End Sub

[培训]科锐软件逆向50期预科班报名即将截止，速来！！！ 50期正式班报名火爆招生中！！！