home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 6_2008-2009.ISO / data / zips / VB6_Decomp2153235262009.psc / VB_Decompiler / frmEditor.frm next >
Text File  |  2009-01-10  |  33KB  |  942 lines
  1. VERSION 5.00
  2. Begin VB.Form frmEditor 
  3.    BackColor       =   &H00FFFFFF&
  4.    BorderStyle     =   1  'Fixed Single
  5.    Caption         =   "Form1"
  6.    ClientHeight    =   9255
  7.    ClientLeft      =   45
  8.    ClientTop       =   405
  9.    ClientWidth     =   10215
  10.    Icon            =   "frmEditor.frx":0000
  11.    LinkTopic       =   "Form1"
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    ScaleHeight     =   9255
  15.    ScaleWidth      =   10215
  16.    StartUpPosition =   2  'CenterScreen
  17.    Begin VB.PictureBox Picture6 
  18.       Appearance      =   0  'Flat
  19.       BackColor       =   &H00FFFFFF&
  20.       ForeColor       =   &H80000008&
  21.       Height          =   2175
  22.       Left            =   240
  23.       ScaleHeight     =   2145
  24.       ScaleWidth      =   4785
  25.       TabIndex        =   34
  26.       Top             =   6840
  27.       Width           =   4815
  28.       Begin VB.FileListBox File1 
  29.          Height          =   285
  30.          Left            =   3360
  31.          TabIndex        =   39
  32.          Top             =   150
  33.          Visible         =   0   'False
  34.          Width           =   1095
  35.       End
  36.       Begin VB.PictureBox Picture7 
  37.          BackColor       =   &H00FFFFFF&
  38.          BorderStyle     =   0  'None
  39.          Height          =   375
  40.          Left            =   3360
  41.          Picture         =   "frmEditor.frx":08CA
  42.          ScaleHeight     =   375
  43.          ScaleWidth      =   1215
  44.          TabIndex        =   36
  45.          Top             =   480
  46.          Width           =   1215
  47.          Begin VB.Label Label7 
  48.             Alignment       =   2  'Center
  49.             BackStyle       =   0  'Transparent
  50.             Caption         =   "GO"
  51.             BeginProperty Font 
  52.                Name            =   "MS Sans Serif"
  53.                Size            =   8.25
  54.                Charset         =   0
  55.                Weight          =   700
  56.                Underline       =   0   'False
  57.                Italic          =   0   'False
  58.                Strikethrough   =   0   'False
  59.             EndProperty
  60.             ForeColor       =   &H000000C0&
  61.             Height          =   255
  62.             Left            =   0
  63.             TabIndex        =   37
  64.             Top             =   60
  65.             Width           =   1095
  66.          End
  67.       End
  68.       Begin VB.Label Label1 
  69.          AutoSize        =   -1  'True
  70.          BackStyle       =   0  'Transparent
  71.          Caption         =   "WebSite : www.YazanMarkabi.Jeeran.com"
  72.          BeginProperty Font 
  73.             Name            =   "MS Sans Serif"
  74.             Size            =   8.25
  75.             Charset         =   0
  76.             Weight          =   700
  77.             Underline       =   0   'False
  78.             Italic          =   0   'False
  79.             Strikethrough   =   0   'False
  80.          EndProperty
  81.          ForeColor       =   &H00000040&
  82.          Height          =   195
  83.          Index           =   16
  84.          Left            =   360
  85.          TabIndex        =   44
  86.          Top             =   1800
  87.          Width           =   3615
  88.       End
  89.       Begin VB.Label Label1 
  90.          AutoSize        =   -1  'True
  91.          BackStyle       =   0  'Transparent
  92.          Caption         =   "Em@l : ZaidMarkabi@yahoo.com"
  93.          BeginProperty Font 
  94.             Name            =   "MS Sans Serif"
  95.             Size            =   8.25
  96.             Charset         =   0
  97.             Weight          =   700
  98.             Underline       =   0   'False
  99.             Italic          =   0   'False
  100.             Strikethrough   =   0   'False
  101.          EndProperty
  102.          ForeColor       =   &H00000040&
  103.          Height          =   195
  104.          Index           =   15
  105.          Left            =   360
  106.          TabIndex        =   43
  107.          Top             =   1560
  108.          Width           =   2820
  109.       End
  110.       Begin VB.Label Label1 
  111.          AutoSize        =   -1  'True
  112.          BackStyle       =   0  'Transparent
  113.          Caption         =   "VB Decompiler Lite ,      by   Zaid Markabi"
  114.          BeginProperty Font 
  115.             Name            =   "MS Sans Serif"
  116.             Size            =   8.25
  117.             Charset         =   0
  118.             Weight          =   700
  119.             Underline       =   0   'False
  120.             Italic          =   0   'False
  121.             Strikethrough   =   0   'False
  122.          EndProperty
  123.          ForeColor       =   &H00000040&
  124.          Height          =   195
  125.          Index           =   14
  126.          Left            =   360
  127.          TabIndex        =   42
  128.          Top             =   1320
  129.          Width           =   3600
  130.       End
  131.       Begin VB.Label Label1 
  132.          AutoSize        =   -1  'True
  133.          BackStyle       =   0  'Transparent
  134.          Caption         =   "About"
  135.          BeginProperty Font 
  136.             Name            =   "MS Sans Serif"
  137.             Size            =   8.25
  138.             Charset         =   0
  139.             Weight          =   700
  140.             Underline       =   0   'False
  141.             Italic          =   0   'False
  142.             Strikethrough   =   0   'False
  143.          EndProperty
  144.          ForeColor       =   &H000000C0&
  145.          Height          =   195
  146.          Index           =   13
  147.          Left            =   240
  148.          TabIndex        =   41
  149.          Top             =   1080
  150.          Width           =   510
  151.       End
  152.       Begin VB.Label Label8 
  153.          AutoSize        =   -1  'True
  154.          BackStyle       =   0  'Transparent
  155.          Caption         =   "Working ..."
  156.          BeginProperty Font 
  157.             Name            =   "MS Sans Serif"
  158.             Size            =   8.25
  159.             Charset         =   0
  160.             Weight          =   700
  161.             Underline       =   0   'False
  162.             Italic          =   0   'False
  163.             Strikethrough   =   0   'False
  164.          EndProperty
  165.          ForeColor       =   &H00808080&
  166.          Height          =   195
  167.          Left            =   120
  168.          TabIndex        =   40
  169.          Top             =   720
  170.          Visible         =   0   'False
  171.          Width           =   960
  172.       End
  173.       Begin VB.Line Line3 
  174.          X1              =   120
  175.          X2              =   4680
  176.          Y1              =   960
  177.          Y2              =   960
  178.       End
  179.       Begin VB.Label Label1 
  180.          AutoSize        =   -1  'True
  181.          BackStyle       =   0  'Transparent
  182.          Caption         =   "Decompile to new EXE file"
  183.          BeginProperty Font 
  184.             Name            =   "MS Sans Serif"
  185.             Size            =   9.75
  186.             Charset         =   0
  187.             Weight          =   700
  188.             Underline       =   0   'False
  189.             Italic          =   0   'False
  190.             Strikethrough   =   0   'False
  191.          EndProperty
  192.          ForeColor       =   &H00000040&
  193.          Height          =   240
  194.          Index           =   12
  195.          Left            =   360
  196.          TabIndex        =   38
  197.          Top             =   480
  198.          Width           =   2730
  199.       End
  200.       Begin VB.Label Label1 
  201.          AutoSize        =   -1  'True
  202.          BackStyle       =   0  'Transparent
  203.          Caption         =   "Decompile"
  204.          BeginProperty Font 
  205.             Name            =   "MS Sans Serif"
  206.             Size            =   8.25
  207.             Charset         =   0
  208.             Weight          =   700
  209.             Underline       =   0   'False
  210.             Italic          =   0   'False
  211.             Strikethrough   =   0   'False
  212.          EndProperty
  213.          ForeColor       =   &H000000C0&
  214.          Height          =   195
  215.          Index           =   11
  216.          Left            =   240
  217.          TabIndex        =   35
  218.          Top             =   120
  219.          Width           =   900
  220.       End
  221.    End
  222.    Begin VB.PictureBox ScrSentences 
  223.       Appearance      =   0  'Flat
  224.       BackColor       =   &H80000005&
  225.       ForeColor       =   &H80000008&
  226.       Height          =   5175
  227.       Left            =   5160
  228.       Picture         =   "frmEditor.frx":1CA4
  229.       ScaleHeight     =   5145
  230.       ScaleWidth      =   4785
  231.       TabIndex        =   5
  232.       Top             =   3840
  233.       Width           =   4815
  234.       Begin VB.TextBox FindText 
  235.          Appearance      =   0  'Flat
  236.          Height          =   495
  237.          Left            =   1560
  238.          MultiLine       =   -1  'True
  239.          ScrollBars      =   1  'Horizontal
  240.          TabIndex        =   25
  241.          Top             =   1920
  242.          Width           =   2895
  243.       End
  244.       Begin VB.PictureBox Picture3 
  245.          BackColor       =   &H00FFFFFF&
  246.          BorderStyle     =   0  'None
  247.          Height          =   375
  248.          Left            =   3120
  249.          Picture         =   "frmEditor.frx":1CEA
  250.          ScaleHeight     =   375
  251.          ScaleWidth      =   1215
  252.          TabIndex        =   23
  253.          Top             =   2520
  254.          Width           =   1215
  255.          Begin VB.Label Label3 
  256.             Alignment       =   2  'Center
  257.             BackStyle       =   0  'Transparent
  258.             Caption         =   "Find"
  259.             BeginProperty Font 
  260.                Name            =   "MS Sans Serif"
  261.                Size            =   8.25
  262.                Charset         =   0
  263.                Weight          =   700
  264.                Underline       =   0   'False
  265.                Italic          =   0   'False
  266.                Strikethrough   =   0   'False
  267.             EndProperty
  268.             ForeColor       =   &H000000C0&
  269.             Height          =   255
  270.             Left            =   0
  271.             TabIndex        =   24
  272.             Top             =   60
  273.             Width           =   1095
  274.          End
  275.       End
  276.       Begin VB.PictureBox LoadingExtAll 
  277.          Appearance      =   0  'Flat
  278.          BackColor       =   &H00E0E0E0&
  279.          ForeColor       =   &H80000008&
  280.          Height          =   135
  281.          Left            =   240
  282.          ScaleHeight     =   105
  283.          ScaleWidth      =   2625
  284.          TabIndex        =   21
  285.          Top             =   4680
  286.          Width           =   2655
  287.          Begin VB.PictureBox LoadingExtDone 
  288.             BackColor       =   &H000000FF&
  289.             BorderStyle     =   0  'None
  290.             Height          =   135
  291.             Left            =   0
  292.             ScaleHeight     =   135
  293.             ScaleWidth      =   375
  294.             TabIndex        =   22
  295.             Top             =   0
  296.             Width           =   375
  297.          End
  298.       End
  299.       Begin VB.PictureBox Picture1 
  300.          BackColor       =   &H00FFFFFF&
  301.          BorderStyle     =   0  'None
  302.          Height          =   375
  303.          Left            =   3120
  304.          Picture         =   "frmEditor.frx":30C4
  305.          ScaleHeight     =   375
  306.          ScaleWidth      =   1215
  307.          TabIndex        =   19
  308.          Top             =   4560
  309.          Width           =   1215
  310.          Begin VB.Label Label2 
  311.             Alignment       =   2  'Center
  312.             BackStyle       =   0  'Transparent
  313.             Caption         =   "Replace"
  314.             BeginProperty Font 
  315.                Name            =   "MS Sans Serif"
  316.                Size            =   8.25
  317.                Charset         =   0
  318.                Weight          =   700
  319.                Underline       =   0   'False
  320.                Italic          =   0   'False
  321.                Strikethrough   =   0   'False
  322.             EndProperty
  323.             ForeColor       =   &H000000C0&
  324.             Height          =   255
  325.             Left            =   0
  326.             TabIndex        =   20
  327.             Top             =   60
  328.             Width           =   1095
  329.          End
  330.       End
  331.       Begin VB.TextBox NewText 
  332.          Appearance      =   0  'Flat
  333.          Height          =   495
  334.          Left            =   1560
  335.          MultiLine       =   -1  'True
  336.          ScrollBars      =   1  'Horizontal
  337.          TabIndex        =   18
  338.          Top             =   3960
  339.          Width           =   2895
  340.       End
  341.       Begin VB.TextBox OrgText 
  342.          Appearance      =   0  'Flat
  343.          Height          =   495
  344.          Left            =   1560
  345.          MultiLine       =   -1  'True
  346.          ScrollBars      =   1  'Horizontal
  347.          TabIndex        =   17
  348.          Top             =   3360
  349.          Width           =   2895
  350.       End
  351.       Begin VB.PictureBox Picture2 
  352.          BackColor       =   &H00FFFFFF&
  353.          BorderStyle     =   0  'None
  354.          Height          =   375
  355.          Left            =   3120
  356.          Picture         =   "frmEditor.frx":449E
  357.          ScaleHeight     =   375
  358.          ScaleWidth      =   1215
  359.          TabIndex        =   12
  360.          Top             =   1080
  361.          Width           =   1215
  362.          Begin VB.Label Label4 
  363.             Alignment       =   2  'Center
  364.             BackStyle       =   0  'Transparent
  365.             Caption         =   "Save"
  366.             BeginProperty Font 
  367.                Name            =   "MS Sans Serif"
  368.                Size            =   8.25
  369.                Charset         =   0
  370.                Weight          =   700
  371.                Underline       =   0   'False
  372.                Italic          =   0   'False
  373.                Strikethrough   =   0   'False
  374.             EndProperty
  375.             ForeColor       =   &H000000C0&
  376.             Height          =   255
  377.             Left            =   0
  378.             TabIndex        =   13
  379.             Top             =   60
  380.             Width           =   1095
  381.          End
  382.       End
  383.       Begin VB.TextBox TxtSentences 
  384.          Appearance      =   0  'Flat
  385.          Height          =   615
  386.          Left            =   120
  387.          MultiLine       =   -1  'True
  388.          ScrollBars      =   1  'Horizontal
  389.          TabIndex        =   8
  390.          Top             =   360
  391.          Width           =   4335
  392.       End
  393.       Begin VB.VScrollBar VScrSentences 
  394.          Height          =   5175
  395.          LargeChange     =   10
  396.          Left            =   4560
  397.          Max             =   100
  398.          SmallChange     =   5
  399.          TabIndex        =   7
  400.          Top             =   0
  401.          Width           =   255
  402.       End
  403.       Begin VB.Label Label1 
  404.          AutoSize        =   -1  'True
  405.          BackStyle       =   0  'Transparent
  406.          Caption         =   "Find Text for all sentences "
  407.          BeginProperty Font 
  408.             Name            =   "MS Sans Serif"
  409.             Size            =   8.25
  410.             Charset         =   0
  411.             Weight          =   700
  412.             Underline       =   0   'False
  413.             Italic          =   0   'False
  414.             Strikethrough   =   0   'False
  415.          EndProperty
  416.          ForeColor       =   &H000000C0&
  417.          Height          =   195
  418.          Index           =   8
  419.          Left            =   240
  420.          TabIndex        =   27
  421.          Top             =   1680
  422.          Width           =   2340
  423.       End
  424.       Begin VB.Label Label1 
  425.          AutoSize        =   -1  'True
  426.          BackStyle       =   0  'Transparent
  427.          Caption         =   "Find Text"
  428.          BeginProperty Font 
  429.             Name            =   "MS Sans Serif"
  430.             Size            =   8.25
  431.             Charset         =   0
  432.             Weight          =   700
  433.             Underline       =   0   'False
  434.             Italic          =   0   'False
  435.             Strikethrough   =   0   'False
  436.          EndProperty
  437.          ForeColor       =   &H00000040&
  438.          Height          =   195
  439.          Index           =   7
  440.          Left            =   360
  441.          TabIndex        =   26
  442.          Top             =   1920
  443.          Width           =   810
  444.       End
  445.       Begin VB.Line Line2 
  446.          X1              =   4440
  447.          X2              =   120
  448.          Y1              =   3000
  449.          Y2              =   3000
  450.       End
  451.       Begin VB.Label Label1 
  452.          AutoSize        =   -1  'True
  453.          BackStyle       =   0  'Transparent
  454.          Caption         =   "New Text"
  455.          BeginProperty Font 
  456.             Name            =   "MS Sans Serif"
  457.             Size            =   8.25
  458.             Charset         =   0
  459.             Weight          =   700
  460.             Underline       =   0   'False
  461.             Italic          =   0   'False
  462.             Strikethrough   =   0   'False
  463.          EndProperty
  464.          ForeColor       =   &H00000040&
  465.          Height          =   195
  466.          Index           =   6
  467.          Left            =   360
  468.          TabIndex        =   16
  469.          Top             =   3960
  470.          Width           =   825
  471.       End
  472.       Begin VB.Label Label1 
  473.          AutoSize        =   -1  'True
  474.          BackStyle       =   0  'Transparent
  475.          Caption         =   "Orginal Text"
  476.          BeginProperty Font 
  477.             Name            =   "MS Sans Serif"
  478.             Size            =   8.25
  479.             Charset         =   0
  480.             Weight          =   700
  481.             Underline       =   0   'False
  482.             Italic          =   0   'False
  483.             Strikethrough   =   0   'False
  484.          EndProperty
  485.          ForeColor       =   &H00000040&
  486.          Height          =   195
  487.          Index           =   5
  488.          Left            =   360
  489.          TabIndex        =   15
  490.          Top             =   3360
  491.          Width           =   1050
  492.       End
  493.       Begin VB.Label Label1 
  494.          AutoSize        =   -1  'True
  495.          BackStyle       =   0  'Transparent
  496.          Caption         =   "Replace Text for all sentences "
  497.          BeginProperty Font 
  498.             Name            =   "MS Sans Serif"
  499.             Size            =   8.25
  500.             Charset         =   0
  501.             Weight          =   700
  502.             Underline       =   0   'False
  503.             Italic          =   0   'False
  504.             Strikethrough   =   0   'False
  505.          EndProperty
  506.          ForeColor       =   &H000000C0&
  507.          Height          =   195
  508.          Index           =   4
  509.          Left            =   240
  510.          TabIndex        =   14
  511.          Top             =   3120
  512.          Width           =   2685
  513.       End
  514.       Begin VB.Line Line1 
  515.          X1              =   4440
  516.          X2              =   120
  517.          Y1              =   1560
  518.          Y2              =   1560
  519.       End
  520.       Begin VB.Label Label1 
  521.          AutoSize        =   -1  'True
  522.          BackStyle       =   0  'Transparent
  523.          Caption         =   "Sentences Editor"
  524.          BeginProperty Font 
  525.             Name            =   "MS Sans Serif"
  526.             Size            =   8.25
  527.             Charset         =   0
  528.             Weight          =   700
  529.             Underline       =   0   'False
  530.             Italic          =   0   'False
  531.             Strikethrough   =   0   'False
  532.          EndProperty
  533.          ForeColor       =   &H000000C0&
  534.          Height          =   195
  535.          Index           =   1
  536.          Left            =   240
  537.          TabIndex        =   9
  538.          Top             =   120
  539.          Width           =   1470
  540.       End
  541.    End
  542.    Begin VB.PictureBox ScrImages 
  543.       Appearance      =   0  'Flat
  544.       BackColor       =   &H80000005&
  545.       ForeColor       =   &H80000008&
  546.       Height          =   2895
  547.       Left            =   240
  548.       ScaleHeight     =   4.321
  549.       ScaleMode       =   0  'User
  550.       ScaleWidth      =   319
  551.       TabIndex        =   4
  552.       Top             =   3840
  553.       Width           =   4815
  554.       Begin VB.PictureBox Picture5 
  555.          BackColor       =   &H00FFFFFF&
  556.          BorderStyle     =   0  'None
  557.          Height          =   375
  558.          Left            =   3000
  559.          Picture         =   "frmEditor.frx":5878
  560.          ScaleHeight     =   375
  561.          ScaleWidth      =   1215
  562.          TabIndex        =   30
  563.          Top             =   2400
  564.          Width           =   1215
  565.          Begin VB.Label Label6 
  566.             Alignment       =   2  'Center
  567.             BackStyle       =   0  'Transparent
  568.             Caption         =   "Import"
  569.             BeginProperty Font 
  570.                Name            =   "MS Sans Serif"
  571.                Size            =   8.25
  572.                Charset         =   0
  573.                Weight          =   700
  574.                Underline       =   0   'False
  575.                Italic          =   0   'False
  576.                Strikethrough   =   0   'False
  577.             EndProperty
  578.             ForeColor       =   &H000000C0&
  579.             Height          =   255
  580.             Left            =   0
  581.             TabIndex        =   31
  582.             Top             =   60
  583.             Width           =   1095
  584.          End
  585.       End
  586.       Begin VB.PictureBox Picture4 
  587.          BackColor       =   &H00FFFFFF&
  588.          BorderStyle     =   0  'None
  589.          Height          =   375
  590.          Left            =   3000
  591.          Picture         =   "frmEditor.frx":6C52
  592.          ScaleHeight     =   375
  593.          ScaleWidth      =   1215
  594.          TabIndex        =   28
  595.          Top             =   1920
  596.          Width           =   1215
  597.          Begin VB.Label Label5 
  598.             Alignment       =   2  'Center
  599.             BackStyle       =   0  'Transparent
  600.             Caption         =   "Export"
  601.             BeginProperty Font 
  602.                Name            =   "MS Sans Serif"
  603.                Size            =   8.25
  604.                Charset         =   0
  605.                Weight          =   700
  606.                Underline       =   0   'False
  607.                Italic          =   0   'False
  608.                Strikethrough   =   0   'False
  609.             EndProperty
  610.             ForeColor       =   &H000000C0&
  611.             Height          =   255
  612.             Left            =   0
  613.             TabIndex        =   29
  614.             Top             =   60
  615.             Width           =   1095
  616.          End
  617.       End
  618.       Begin VB.PictureBox PicImages 
  619.          Appearance      =   0  'Flat
  620.          BackColor       =   &H80000005&
  621.          ForeColor       =   &H80000008&
  622.          Height          =   1455
  623.          Left            =   120
  624.          ScaleHeight     =   1425
  625.          ScaleWidth      =   4305
  626.          TabIndex        =   11
  627.          Top             =   360
  628.          Width           =   4335
  629.       End
  630.       Begin VB.VScrollBar VScrImages 
  631.          Height          =   2895
  632.          LargeChange     =   10
  633.          Left            =   4560
  634.          Max             =   100
  635.          SmallChange     =   5
  636.          TabIndex        =   6
  637.          Top             =   0
  638.          Width           =   255
  639.       End
  640.       Begin VB.Label Label1 
  641.          AutoSize        =   -1  'True
  642.          BackStyle       =   0  'Transparent
  643.          Caption         =   "Replace This Image"
  644.          BeginProperty Font 
  645.             Name            =   "MS Sans Serif"
  646.             Size            =   9.75
  647.             Charset         =   0
  648.             Weight          =   700
  649.             Underline       =   0   'False
  650.             Italic          =   0   'False
  651.             Strikethrough   =   0   'False
  652.          EndProperty
  653.          ForeColor       =   &H00000040&
  654.          Height          =   240
  655.          Index           =   10
  656.          Left            =   480
  657.          TabIndex        =   33
  658.          Top             =   2400
  659.          Width           =   2115
  660.       End
  661.       Begin VB.Label Label1 
  662.          AutoSize        =   -1  'True
  663.          BackStyle       =   0  'Transparent
  664.          Caption         =   "Export This Image"
  665.          BeginProperty Font 
  666.             Name            =   "MS Sans Serif"
  667.             Size            =   9.75
  668.             Charset         =   0
  669.             Weight          =   700
  670.             Underline       =   0   'False
  671.             Italic          =   0   'False
  672.             Strikethrough   =   0   'False
  673.          EndProperty
  674.          ForeColor       =   &H00000040&
  675.          Height          =   240
  676.          Index           =   9
  677.          Left            =   480
  678.          TabIndex        =   32
  679.          Top             =   1920
  680.          Width           =   1890
  681.       End
  682.       Begin VB.Label Label1 
  683.          AutoSize        =   -1  'True
  684.          BackStyle       =   0  'Transparent
  685.          Caption         =   "Images Editor"
  686.          BeginProperty Font 
  687.             Name            =   "MS Sans Serif"
  688.             Size            =   8.25
  689.             Charset         =   0
  690.             Weight          =   700
  691.             Underline       =   0   'False
  692.             Italic          =   0   'False
  693.             Strikethrough   =   0   'False
  694.          EndProperty
  695.          ForeColor       =   &H000000C0&
  696.          Height          =   195
  697.          Index           =   2
  698.          Left            =   240
  699.          TabIndex        =   10
  700.          Top             =   120
  701.          Width           =   1170
  702.       End
  703.    End
  704.    Begin VB.FileListBox ExtractedFiles 
  705.       Appearance      =   0  'Flat
  706.       BackColor       =   &H00FFFFFF&
  707.       Height          =   3345
  708.       Left            =   240
  709.       Pattern         =   "*.bmp*;*.jpg*"
  710.       TabIndex        =   1
  711.       Top             =   360
  712.       Width           =   4815
  713.    End
  714.    Begin VB.FileListBox ExtractedFilesSentences 
  715.       Appearance      =   0  'Flat
  716.       BackColor       =   &H00FFFFFF&
  717.       Height          =   3345
  718.       Left            =   5160
  719.       Pattern         =   "*.Txt*"
  720.       TabIndex        =   0
  721.       Top             =   360
  722.       Width           =   4815
  723.    End
  724.    Begin VB.Label Label1 
  725.       AutoSize        =   -1  'True
  726.       BackStyle       =   0  'Transparent
  727.       Caption         =   "Extracted Images"
  728.       BeginProperty Font 
  729.          Name            =   "MS Sans Serif"
  730.          Size            =   8.25
  731.          Charset         =   0
  732.          Weight          =   700
  733.          Underline       =   0   'False
  734.          Italic          =   0   'False
  735.          Strikethrough   =   0   'False
  736.       EndProperty
  737.       ForeColor       =   &H000000C0&
  738.       Height          =   195
  739.       Index           =   0
  740.       Left            =   360
  741.       TabIndex        =   3
  742.       Top             =   120
  743.       Width           =   1485
  744.    End
  745.    Begin VB.Label Label1 
  746.       AutoSize        =   -1  'True
  747.       BackStyle       =   0  'Transparent
  748.       Caption         =   "Extracted Sentences"
  749.       BeginProperty Font 
  750.          Name            =   "MS Sans Serif"
  751.          Size            =   8.25
  752.          Charset         =   0
  753.          Weight          =   700
  754.          Underline       =   0   'False
  755.          Italic          =   0   'False
  756.          Strikethrough   =   0   'False
  757.       EndProperty
  758.       ForeColor       =   &H000000C0&
  759.       Height          =   195
  760.       Index           =   3
  761.       Left            =   5280
  762.       TabIndex        =   2
  763.       Top             =   120
  764.       Width           =   1785
  765.    End
  766. End
  767. Attribute VB_Name = "frmEditor"
  768. Attribute VB_GlobalNameSpace = False
  769. Attribute VB_Creatable = False
  770. Attribute VB_PredeclaredId = True
  771. Attribute VB_Exposed = False
  772.  
  773. Private Sub ExtractedFiles_Click()
  774. VScrImages.Value = ExtractedFiles.ListIndex
  775. VScrImages_Scroll
  776. End Sub
  777.  
  778. Private Sub ExtractedFilesSentences_Click()
  779. VScrSentences.Value = ExtractedFilesSentences.ListIndex
  780. VScrSentences_Scroll
  781. End Sub
  782.  
  783. Private Sub Form_Load()
  784. ExtractedFiles.Path = App.Path + "\Temp\"
  785. ExtractedFilesSentences.Path = App.Path + "\Temp\"
  786. VScrImages.Max = ExtractedFiles.ListCount - 1
  787. VScrSentences.Max = ExtractedFilesSentences.ListCount - 1
  788. VScrImages_Scroll
  789. VScrSentences_Scroll
  790. LoadingExtDone.Width = 0
  791. DoEvents
  792. Me.Show
  793. End Sub
  794.  
  795. Private Sub Form_Unload(Cancel As Integer)
  796. End
  797. End Sub
  798.  
  799. Private Sub Label2_Click()
  800. On Error Resume Next
  801. Dim I As Integer
  802. Dim n As Integer
  803. Dim X As String
  804. NewText.MaxLength = Len(OrgText.Text)
  805. NewText.Text = NewText.Text + Space(NewText.MaxLength - Len(NewText.Text))
  806. If Not UCase(OrgText.Text) = UCase(NewText.Text) And Not OrgText.Text = "" Then
  807. If MsgBox("Are you sure ?" + vbCrLf + vbCrLf + "* if you replaced text for all sentences, you may damage the program !" + vbCrLf + vbCrLf, vbYesNo + vbQuestion, "Replace") = vbYes Then
  808. LoadingExtAll.Visible = True
  809. For I = 0 To ExtractedFilesSentences.ListCount - 1
  810. ' open old text
  811. Open App.Path + "\Temp\" + ExtractedFilesSentences.List(I) For Input As #1
  812. Input #1, X
  813. Close #1
  814. ' replace
  815. Do While InStr(1, UCase(X), UCase(OrgText.Text)) > 0
  816. n = InStr(1, UCase(X), UCase(OrgText.Text))
  817. X = Left(X, n - 1) + NewText.Text + Right(X, Len(X) - n + 1 - Len(OrgText.Text))
  818. Loop
  819. ' save new text
  820. Open App.Path + "\Temp\" + ExtractedFilesSentences.List(I) For Binary As #2
  821. Put #2, 1, X
  822. Close #2
  823. RefreshLoadingBarB I
  824. DoEvents
  825. Next
  826. End If
  827. End If
  828. MsgBox vbCrLf + vbCrLf + Space(20) + "Done !" + Space(30) + vbCrLf + vbCrLf, vbInformation, "Finished !"
  829. End Sub
  830.  
  831. Private Sub Label3_Click()
  832. 'On Error Resume Next
  833. Dim I As Integer
  834. Dim X As String
  835. For I = ExtractedFilesSentences.ListIndex + 1 To ExtractedFilesSentences.ListCount - 1
  836. Open App.Path + "\Temp\" + ExtractedFilesSentences.List(I) For Input As #1
  837. Input #1, X
  838. Close #1
  839. If InStr(1, UCase(X), UCase(FindText.Text)) > 0 Then
  840. ExtractedFilesSentences.ListIndex = I
  841. VScrSentences.Value = I
  842. Exit Sub
  843. End If
  844. Next
  845. MsgBox vbCrLf + vbCrLf + Space(20) + "End !" + Space(30) + vbCrLf + vbCrLf, vbInformation, "Finished !"
  846. End Sub
  847.  
  848. Private Sub Label4_Click()
  849. TxtSentences.Text = TxtSentences.Text + Space(TxtSentences.MaxLength - Len(TxtSentences.Text))
  850. Open App.Path + "\Temp\" + ExtractedFilesSentences.List(VScrSentences.Value) For Binary As #1
  851. Put #1, 1, TxtSentences.Text
  852. Close #1
  853. End Sub
  854.  
  855. Private Sub Label5_Click()
  856. On Error GoTo Err
  857. SavePicture PicImages.Picture, "C:\Exported." + Right(ExtractedFiles.List(ExtractedFiles.ListIndex), 3)
  858. MsgBox vbCrLf + vbCrLf + Space(20) + "Exported to " + "C:\Exported." + Right(ExtractedFiles.List(ExtractedFiles.ListIndex), 3) + Space(30) + vbCrLf + vbCrLf, vbInformation, "Exported !"
  859. Err:
  860. End Sub
  861.  
  862. Private Sub Label6_Click()
  863. On Error GoTo Err
  864. Dim Ln1 As Long
  865. Dim Ln2 As Long
  866. If MsgBox("Are you sure ?" + vbCrLf + vbCrLf + "* New image will be loaded from C:\Exported." + Right(ExtractedFiles.List(ExtractedFiles.ListIndex), 3) + vbCrLf + vbCrLf, vbYesNo + vbQuestion, "Replace") = vbYes Then
  867. Open "C:\Exported." + Right(ExtractedFiles.List(ExtractedFiles.ListIndex), 3) For Input As #1
  868. Ln1 = LOF(1)
  869. Close #1
  870. Open App.Path + "\Temp\" + ExtractedFiles.List(ExtractedFiles.ListIndex) For Input As #2
  871. Ln2 = LOF(2)
  872. Close #2
  873. If Ln1 = Ln2 Then
  874. FileCopy "C:\Exported." + Right(ExtractedFiles.List(ExtractedFiles.ListIndex), 3), App.Path + "\Temp\" + ExtractedFiles.List(ExtractedFiles.ListIndex)
  875. PicImages.Picture = LoadPicture(App.Path + "\Temp\" + ExtractedFiles.List(ExtractedFiles.ListIndex))
  876. MsgBox vbCrLf + vbCrLf + Space(20) + "Done !" + Space(30) + vbCrLf + vbCrLf, vbInformation, "Import !"
  877. Else
  878. MsgBox vbCrLf + vbCrLf + "Can't replace !" + Space(90) + vbCrLf + vbCrLf + " * New image file size should be smaller or equal the old file in the size" + vbCrLf + vbCrLf + Format(1 + Ln1 \ 1012, "0.0") + " Kb =/= " + Format(1 + Ln2 \ 1012, "0.0") + " Kb", vbInformation, "Import !"
  879. End If
  880. End If
  881. Err:
  882. End Sub
  883.  
  884. Private Sub Label7_Click()
  885. On Error GoTo Err
  886. Label8.Visible = True
  887. DoEvents
  888. Dim FileTitle As String
  889. Dim I As Integer
  890. File1.Path = App.Path + "\Temp\"
  891. File1.Refresh
  892. Open App.Path + "\OrginalFile.dat" For Input As #1
  893. Input #1, FileTitle
  894. Close #1
  895. FileCopy App.Path + "\" + FileTitle + ".exe", "C:\Decompiled.exe"
  896. Open "C:\Decompiled.exe" For Binary As #1
  897. For I = 0 To File1.ListCount - 1
  898. Open File1.Path + "\" + File1.List(I) For Binary As #2
  899. DoEvents
  900. If LOF(2) > 0 Then
  901. ReDim CHARn(LOF(2) - 1)
  902. Get #2, 1, CHARn
  903. Put #1, CLng(Mid(File1.List(I), Len(FileTitle) + 1, 15)), CHARn
  904. End If
  905. Close #2
  906. Next
  907. Close #1
  908. MsgBox vbCrLf + vbCrLf + Space(20) + "Finished !" + Space(30) + vbCrLf + vbCrLf, vbInformation, "Decompile !"
  909. Err:
  910. Label8.Visible = False
  911. End Sub
  912.  
  913. Private Sub OrgText_Change()
  914. NewText.MaxLength = Len(OrgText.Text)
  915. End Sub
  916.  
  917. Private Sub VScrImages_Change()
  918. VScrImages_Scroll
  919. End Sub
  920.  
  921. Private Sub VScrImages_Scroll()
  922. On Error Resume Next
  923. ExtractedFiles.ListIndex = VScrImages.Value
  924. PicImages.Picture = LoadPicture(App.Path + "\Temp\" + ExtractedFiles.List(VScrImages.Value))
  925. End Sub
  926.  
  927. Private Sub VScrSentences_Change()
  928. VScrSentences_Scroll
  929. End Sub
  930.  
  931. Private Sub VScrSentences_Scroll()
  932. On Error GoTo Err
  933. ExtractedFilesSentences.ListIndex = VScrSentences.Value
  934. Dim X As String
  935. Open App.Path + "\Temp\" + ExtractedFilesSentences.List(VScrSentences.Value) For Input As #1
  936. Input #1, X
  937. Close #1
  938. TxtSentences.Text = X
  939. TxtSentences.MaxLength = Len(X)
  940. Err:
  941. End Sub
  942.