请高手给下面的每行加注释，新手学习-经典问答-看雪-安全社区|安全招聘|kanxue.com

请高手给下面的每行加注释，新手学习

发表于: 2010-1-8 23:50 6757

请高手给下面的每行加注释，新手学习

chinajsrd

2010-1-8 23:50

6757

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

[培训]内核驱动高级班，冲击BAT一流互联网大厂工作，每周日13:00-18:00直播授课

收藏・1

免费・0

支持

最新回复 (17)
zapline 雪币： 2362 活跃值： (10) 能力值： ( LV2，RANK：10 ) 在线值：发帖 66 回帖 2376 粉丝 0 关注私信	zapline 2 楼再加200kx估计会有人做 2010-1-9 01:10 0
iask 雪币： 198 活跃值： (15) 能力值： ( LV2，RANK：10 ) 在线值：发帖 2 回帖 108 粉丝 0 关注私信	iask 3 楼懒的可以。 2010-1-9 19:41 0
tomtomtom 雪币： 91 活跃值： (14) 能力值： ( LV2，RANK：10 ) 在线值：发帖 5 回帖 20 粉丝 0 关注私信	tomtomtom 4 楼懒得打字..... 2010-1-9 23:48 0
zphdt 雪币： 168 活跃值： (17) 能力值： ( LV2，RANK：10 ) 在线值：发帖 3 回帖 173 粉丝 0 关注私信	zphdt 5 楼工作量太大了。。。 2010-1-10 09:10 0
yangchao忽忽雪币： 125 活跃值： (10) 能力值： ( LV2，RANK：10 ) 在线值：发帖 4 回帖 70 粉丝 0 关注私信	yangchao忽忽 6 楼好多~~简单的也说的话太多了 2010-1-10 09:56 0
泥芭雪币： 50 活跃值： (10) 能力值： ( LV2，RANK：10 ) 在线值：发帖 10 回帖 252 粉丝 0 关注私信	泥芭 7 楼这是什么东西? 难道是传说中的IDA 5.5的神迹？ 2010-1-10 10:00 0
blackskey 雪币： 53 活跃值： (60) 能力值： ( LV2，RANK：10 ) 在线值：发帖 1 回帖 32 粉丝 0 关注私信	blackskey 8 楼这种工作量要加悬赏才行啊 .... 2010-1-10 16:51 0
zhongqilun 雪币： 53 活跃值： (10) 能力值： ( LV2，RANK：10 ) 在线值：发帖 5 回帖 77 粉丝 0 关注私信	zhongqilun 10 楼给的太少了工作量大 2010-1-10 20:07 0
Joyuan 雪币： 78 活跃值： (31) 能力值： ( LV2，RANK：10 ) 在线值：发帖 1 回帖 38 粉丝 0 关注私信	Joyuan 11 楼楼主的KX怎么搞的？在线时间也不长，帖子也不多 2010-1-11 13:20 0
Tangsir 雪币： 67 活跃值： (10) 能力值： ( LV2，RANK：10 ) 在线值：发帖 47 回帖 118 粉丝 0 关注私信	Tangsir 12 楼大哥你不是为难我们吗？ 2010-1-12 01:14 0
blue孤独雪币： 92 活跃值： (10) 能力值： ( LV2，RANK：10 ) 在线值：发帖 5 回帖 70 粉丝 0 关注私信	blue孤独 13 楼你这是找人帮忙吗？是找非洲苦力吧。大哥 2010-1-12 07:56 0
kkmylove 雪币： 338 活跃值： (103) 能力值： ( LV7，RANK：110 ) 在线值：发帖 24 回帖 290 粉丝 2 关注私信	kkmylove 2 14 楼工作量太大了自己应该勤奋些 2010-1-12 09:48 0
skystrem 雪币： 200 活跃值： (10) 能力值： ( LV2，RANK：10 ) 在线值：发帖 0 回帖 5 粉丝 0 关注私信	skystrem 15 楼工作量实在太大了，估计没人做 2010-1-12 10:02 0
Nisy 雪币： 167 活跃值： (1574) 能力值： ( LV9，RANK：250 ) 在线值：发帖 68 回帖 668 粉丝 43 关注私信	Nisy 5 16 楼楼主不懂VB 鉴定完毕！ 2010-1-12 10:20 0
贾宝玉雪币： 11 活跃值： (10) 能力值： ( LV2，RANK：10 ) 在线值：发帖 55 回帖 298 粉丝 0 关注私信	贾宝玉 17 楼我也不懂vb，里面好多定义变量什么的废话，估计能看懂下面这些就ok了，咋那么多灌水的，谁解释下。 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) 2010-1-12 13:00 0
watchman 雪币： 17 活跃值： (10) 能力值： ( LV2，RANK：10 ) 在线值：发帖 0 回帖 36 粉丝 0 关注私信	watchman 18 楼好好看看汇编吧，这个工作量也太大了点 2010-1-13 11:06 0
bluechong 雪币： 1582 活跃值： (40) 能力值： ( LV2，RANK：10 ) 在线值：发帖 0 回帖 38 粉丝 0 关注私信	bluechong 19 楼需要慢慢看··· 2010-1-13 12:01 0
	游客登录 \| 注册方可回帖回帖表情雪币赚取及消费高级回复

chinajsrd

发帖

回帖

RANK

关注

私信

他的文章

请高手给下面的每行加注释，新手学习 6758
[求助] 4013

关于我们

联系我们

企业服务

看雪公众号

最新回复 (17)
zapline 雪币： 2362 活跃值： (10) 能力值： ( LV2，RANK：10 ) 在线值：发帖 66 回帖 2376 粉丝 0 关注私信	zapline 2 楼再加200kx估计会有人做 2010-1-9 01:10 0
iask 雪币： 198 活跃值： (15) 能力值： ( LV2，RANK：10 ) 在线值：发帖 2 回帖 108 粉丝 0 关注私信	iask 3 楼懒的可以。 2010-1-9 19:41 0
tomtomtom 雪币： 91 活跃值： (14) 能力值： ( LV2，RANK：10 ) 在线值：发帖 5 回帖 20 粉丝 0 关注私信	tomtomtom 4 楼懒得打字..... 2010-1-9 23:48 0
zphdt 雪币： 168 活跃值： (17) 能力值： ( LV2，RANK：10 ) 在线值：发帖 3 回帖 173 粉丝 0 关注私信	zphdt 5 楼工作量太大了。。。 2010-1-10 09:10 0
yangchao忽忽雪币： 125 活跃值： (10) 能力值： ( LV2，RANK：10 ) 在线值：发帖 4 回帖 70 粉丝 0 关注私信	yangchao忽忽 6 楼好多~~简单的也说的话太多了 2010-1-10 09:56 0
泥芭雪币： 50 活跃值： (10) 能力值： ( LV2，RANK：10 ) 在线值：发帖 10 回帖 252 粉丝 0 关注私信	泥芭 7 楼这是什么东西? 难道是传说中的IDA 5.5的神迹？ 2010-1-10 10:00 0
blackskey 雪币： 53 活跃值： (60) 能力值： ( LV2，RANK：10 ) 在线值：发帖 1 回帖 32 粉丝 0 关注私信	blackskey 8 楼这种工作量要加悬赏才行啊 .... 2010-1-10 16:51 0
zhongqilun 雪币： 53 活跃值： (10) 能力值： ( LV2，RANK：10 ) 在线值：发帖 5 回帖 77 粉丝 0 关注私信	zhongqilun 10 楼给的太少了工作量大 2010-1-10 20:07 0
Joyuan 雪币： 78 活跃值： (31) 能力值： ( LV2，RANK：10 ) 在线值：发帖 1 回帖 38 粉丝 0 关注私信	Joyuan 11 楼楼主的KX怎么搞的？在线时间也不长，帖子也不多 2010-1-11 13:20 0
Tangsir 雪币： 67 活跃值： (10) 能力值： ( LV2，RANK：10 ) 在线值：发帖 47 回帖 118 粉丝 0 关注私信	Tangsir 12 楼大哥你不是为难我们吗？ 2010-1-12 01:14 0
blue孤独雪币： 92 活跃值： (10) 能力值： ( LV2，RANK：10 ) 在线值：发帖 5 回帖 70 粉丝 0 关注私信	blue孤独 13 楼你这是找人帮忙吗？是找非洲苦力吧。大哥 2010-1-12 07:56 0
kkmylove 雪币： 338 活跃值： (103) 能力值： ( LV7，RANK：110 ) 在线值：发帖 24 回帖 290 粉丝 2 关注私信	kkmylove 2 14 楼工作量太大了自己应该勤奋些 2010-1-12 09:48 0
skystrem 雪币： 200 活跃值： (10) 能力值： ( LV2，RANK：10 ) 在线值：发帖 0 回帖 5 粉丝 0 关注私信	skystrem 15 楼工作量实在太大了，估计没人做 2010-1-12 10:02 0
Nisy 雪币： 167 活跃值： (1574) 能力值： ( LV9，RANK：250 ) 在线值：发帖 68 回帖 668 粉丝 43 关注私信	Nisy 5 16 楼楼主不懂VB 鉴定完毕！ 2010-1-12 10:20 0
贾宝玉雪币： 11 活跃值： (10) 能力值： ( LV2，RANK：10 ) 在线值：发帖 55 回帖 298 粉丝 0 关注私信	贾宝玉 17 楼我也不懂vb，里面好多定义变量什么的废话，估计能看懂下面这些就ok了，咋那么多灌水的，谁解释下。 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) 2010-1-12 13:00 0
watchman 雪币： 17 活跃值： (10) 能力值： ( LV2，RANK：10 ) 在线值：发帖 0 回帖 36 粉丝 0 关注私信	watchman 18 楼好好看看汇编吧，这个工作量也太大了点 2010-1-13 11:06 0
bluechong 雪币： 1582 活跃值： (40) 能力值： ( LV2，RANK：10 ) 在线值：发帖 0 回帖 38 粉丝 0 关注私信	bluechong 19 楼需要慢慢看··· 2010-1-13 12:01 0
	游客登录 \| 注册方可回帖回帖表情雪币赚取及消费高级回复