首页
学习
活动
专区
工具
TVP
发布
精选内容/技术社群/优惠产品,尽在小程序
立即前往
您找到你想要的搜索结果了吗?
是的
没有找到

新160个CrackMe分析-第4组:31-40(下)

Private Sub Text2_Change() '4024F0   Dim var_1C As Variant   loc_0040259D: If (Form1.Text2.Text = global_00401DC4) + 1 Then    // 如果输入的内容为空   loc_004025AA:   Set var_1C = Form1.Command1       // 按钮   loc_004025B7:   var_1C.Enabled = False            // 不启用   loc_004025BF:   If var_1C >= 0 Then GoTo loc_004025F7   loc_004025C1:   GoTo loc_004025E5   loc_004025C3: End If   loc_004025CE: Set var_1C = Form1.Command1   loc_004025DB: var_1C.Enabled = True               // 有输入的内容则启用按钮   loc_004025E3: If var_1C >= 0 Then GoTo loc_004025F7   loc_004025E5: ' Referenced from: 004025C1   loc_004025F1: var_1C = CheckObj(var_1C, global_00401DC8, 140)   loc_0040260C: GoTo loc_00402621   loc_00402620: Exit Sub   loc_00402621: ' Referenced from: 0040260C End Sub

01
领券