defoxpro.bas

一款反编译VFP程序的代码的工具

            Case 90
                txt = unlock_()
            Case 91
                txt = PP("flush")
            Case 92
                txt = keyboa_()
            Case 93
                txt = menu_()
            Case 94
                txt = scatter_()
            Case 95
                txt = gather_()
            Case 96
                txt = scroll_()
            Case 97 To 103
                txt = specfox_()
            Case 105
            
                txt = altertable_()
            Case 104
                txt = creatab_()
            Case 106
                txt = PP("drop ")
                Select Case Line1(linpos + 1)
                Case 49
                    txt = txt + PP("table ")
                Case 196
                    txt = txt + PP("view ")
                End Select
            Case 111, 113, 112
                txt = sqlsel_()
                Select Case CMD(command)
                Case 113
                   txt = PP("delete ") + Trim(Mid(txt, 8))
                Case 112
                   txt = PP("update ") + Trim(Mid(txt, 8))
                End Select
            Case 114
                txt = inserts_()
            Case 115
                txt = define_()
            Case 116
                txt = activ_()
            Case 117
                txt = deact_()
            Case 118
                indadd = 3
                txt = PP("printjob")
            Case 119
                indent = max_(indent - 3, 0)
                txt = PP("endprintjob")
            Case 121
                txt = qm3_()
            Case 122
                txt = move_()
            Case 123
                txt = on_()
            Case 125
                txt = calcul_()
            Case 126
                indadd = 3
                txt = scan_()
            Case 127
                indent = max_(indent - 3, 0)
                txt = PP("endscan")
            Case 128
                txt = show_()
            Case 124
                txt = dec_api_()
            Case 129
                txt = play_()
            Case 130
                txt = getexpr_()
            Case 131
                txt = compile_()
            Case 132
                indadd = 3
                txt = for_()
            Case 133
                indent = max_(indent - 3, 0)
                txt = PP("endfor")
            Case 134
                linpos = linpos + 1
                txt = "= " + listvars(254)
            Case 135
                txt = hide_()
            Case 136
                txt = filer_()
            Case 137
                txt = size_()
            Case 138
                txt = push_()
            Case 139
                txt = pop_()
            Case 140
                txt = zoom_()
            Case 141, 142
                txt = bslash_()
                textind = True
            Case 143
                txt = build_()
            Case 144
                txt = extern_()
            Case 147
                txt = blank_()
            Case 149
                txt = open_()
            Case 150
                txt = addclass_()
            Case 151
                txt = remove_()
            Case 153
                txt = class_method_()
            Case 155
                txt = PP("begin transaction")
            Case 156
                txt = PP("rollback")
            Case 157
                txt = PP("end transaction")
            Case 159
                txt = PP("hidden ")
                linpos = 2
                
'                Stop
                
                Do While Line1(linpos) <> 254
                    If Line1(linpos) = 7 Then
                        txt = txt + ","
                        linpos = linpos + 1
                    Else
                        txt = txt + every()
                    End If
                    If Line1(linpos) = 81 Then
                       txt = txt + PP(" as ")
                       linpos = linpos + 1
                       txt = txt + every()
                    End If
                Loop
            Case 160
                txt = validata_()
            Case 161
                txt = PP("protected ")
                linpos = linpos + 1

                Do While Line1(linpos) <> 254
                    Select Case Line1(linpos)
                    Case 7
                        txt = txt + ","
                        linpos = linpos + 1
                    Case 81
                        txt = txt + PP(" as ")
                        linpos = linpos + 1
                    Case Else
                        txt = txt + every()
                    End Select
                Loop
            Case 162
             For addb = 1 To fxpfileinfo.procnumbers + fxpfileinfo.classnumber
                If fxpfileinfo.aproctype(addb) = "cp" And fxpfileinfo.aproctype2(addb) = "" Then
                    fxpfileinfo.aproctype2(addb) = PP("public ")
                    Exit For
                End If
             Next
            Case 163
             For addb = 1 To fxpfileinfo.procnumbers + fxpfileinfo.classnumber
                If fxpfileinfo.aproctype(addb) = "cp" And fxpfileinfo.aproctype2(addb) = "" Then
                    fxpfileinfo.aproctype2(addb) = PP("protected ")
                    Exit For
                End If
             Next
            Case 158
             For addb = 1 To fxpfileinfo.procnumbers + fxpfileinfo.classnumber
                If fxpfileinfo.aproctype(addb) = "cp" And fxpfileinfo.aproctype2(addb) = "" Then
                    fxpfileinfo.aproctype2(addb) = PP("hidden ")
                    Exit For
                End If
             Next
            Case 166
                txt = with_()
                indadd = 3
            Case 167
                txt = PP("endwith")
                indent = max_(indent - 3, 0)
            Case 168
                txt = error_()
            Case 169
                txt = assert_()
            Case 170
                txt = debugout_()
            Case 171
                txt = PP("free")
                linpos = linpos + 1
                If Line1(linpos) = 49 Then
                   txt = txt + PP(" table ")
                   linpos = linpos + 1
                End If
                txt = txt + every()
            Case 172
                txt = PP("nodefault")
            Case 173
                Dim txtw, txtc, txtat, txtd, txta, txtdr, txtp, txts As String
                txt = PP("mouse ")
                
                linpos = 2
                txtc = txtc + tstword(PP("click "), 202)
                txtw = txtw + tstword(PP("window "), 44) + " "
                If txtw <> "" Then
                   txtw = txtw + every()
                End If
                
                If Line1(linpos) = 197 Then
                   txtp = PP("pixels ")
                   linpos = linpos + 1
                End If
                
                If Line1(linpos) = 5 Then
                   txtat = PP("at ")
                    linpos = linpos + 1
                    txtat = txtat + every()
                    txtat = txtat + ","
                    linpos = linpos + 1
                    txtat = txtat + every() + " "
                End If
                
                Select Case Line1(linpos)
                Case 85
                    txtd = PP(" middle ")
                    linpos = linpos + 1
                Case 88
                    txtd = PP(" left ")
                    linpos = linpos + 1
                Case 89
                    txtd = PP(" right ")
                    linpos = linpos + 1
                End Select
                
                If Line1(linpos) = 199 Then
                   txta = PP("control ")
                   linpos = linpos + 1
                End If
                
                If Line1(linpos) = 201 Then
                   txta = txta + PP("alt ")
                   linpos = linpos + 1
                End If
                
                If Line1(linpos) = 200 Then
                   txts = PP("shift ")
                   linpos = linpos + 1
                End If
                
                If Line1(linpos) = 198 Then
                   txtdr = PP("drag ")
                   linpos = linpos + 1
                   If Line1(linpos) = 40 Then
                      linpos = linpos + 1
                      txtdr = PP("drag to ") + every()
                      Do While Line1(linpos) = 7
                        txtdr = txtdr + ","
                        linpos = linpos + 1
                        txtdr = txtdr + every() + " "
                      Loop
                   End If
                End If
                txt = txt + txtc + txtat + txtdr + txtp + txtw + txtd + txts + txta
                
            Case 174
                txt = local_()
            Case 175
                txt = lpara_()
            Case 176
                txt = cd_()
            Case 177
                txt = md_()
            Case 178
                txt = rd_()
            Case 179
                txt = PP("debug")
            Case 180
                linpos = 2
                Dim tmp1 As String
                Dim posi As Integer
                Do While linpos < UBound(Line1)
                    tmp1 = tmp1 + ChrB(Line1(linpos))
                    linpos = linpos + 1
                Loop
                txt = StrConv(tmp1, vbUnicode)
                posi = InStr(txt, ")")
                If posi <> 0 Then
                    txt = Left(txt, posi - 1) + "." + Right(txt, strlen(txt) - posi)
                End If
            Case 181
                txt = PP("for each ")
                indadd = 3
                linpos = 2
                Dim lin As Boolean
                lin = False
                
                Do While Line1(linpos) <> 254
                    Select Case Line1(linpos)
                    Case 3
                        txt = txt + ")."
                        linpos = linpos + 1
                    Case 22
                        If lin = False Then
                            txt = txt + PP(" in ")
                            lin = True
                            linpos = linpos + 1
                        Else
                            txt = txt + ")."
                            linpos = linpos + 1
                        End If
                    Case 247
                        txt = txt + memvar()
                    Case 252
                        txt = txt + every()
                    Case 251
                        txt = txt + textvar() + " "
                    Case 226
                        If Right(txt, 1) <> "." Then
                            txt = txt + "."
                        End If
                        linpos = linpos + 1
                    Case 229
                        If Right(txt, 1) <> "." And txt <> "" Then
                            txt = txt + "." + namvars(Line1(linpos + 1) + 256 * Line1(linpos + 2) + 1) + "("
                        Else
                            txt = txt + namvars(Line1(linpos + 1) + 256 * Line1(linpos + 2) + 1) + "("
                        End If
                        linpos = linpos + 3
                    Case 249
                        linpos = linpos + 4
                    Case 244
                        txt = txt + memvar()
                    Case 245
                        txt = txt + memvar()
                    Case 246
                        txt = txt + every1()
                    Case 225
                        txt = txt + memvar()
                        If linpos <= UBound(Line1) Then
                            If Line1(linpos) = 247 Then
                                txt = txt + "." + every()
                            End If
                        End If
                    Case Else
                        'linpos = linpos + 1
                    End Select
                Loop

            Case 182
                indent = max_(indent - 3, 0)
                txt = PP("endfor")
            Case 183
                txt = PP("doevents")
            Case 185
            
                txt = "IMPLEMENTS "
                linpos = linpos + 1
                txt = txt + textvar()
                
                If Line1(linpos) = 198 Then
                   txt = txt + PP(" EXCLUDE")
                   linpos = linpos + 1
                End If
                
                If Line1(linpos) = 22 Then
                   txt = txt + PP(" in ")
                   linpos = linpos + 1
                   txt = txt + every1()
                End If
                
            Case 186
                txt = PP("try")
            Case 187
                txt = PP("catch")
                linpos = 2
                If Line1(linpos) <> 254 Then

                    Do While Line1(linpos) <> 254
                        If Line1(linpos) = 40 Then
                            txt = txt + PP(" to ")
                            linpos = linpos + 1
                        End If

                        Select Case Line1(linpos)
                        Case 210
                            txt = txt + PP(" when ")
                            linpos = linpos + 1
                        Case 247
                            txt = txt + memvar() + " "
                        Case 249
                            linpos = linpos + 4
                        Case 252
                            txt = txt + every() + " "
                        Case 251
                            txt = t