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 / frmSelectFile.frm < prev    next >
Text File  |  2009-01-09  |  7KB  |  215 lines
  1. VERSION 5.00
  2. Begin VB.Form frmSelectFile 
  3.    BackColor       =   &H00FFFFFF&
  4.    BorderStyle     =   1  'Fixed Single
  5.    Caption         =   " Select Program to Decompile"
  6.    ClientHeight    =   3900
  7.    ClientLeft      =   45
  8.    ClientTop       =   435
  9.    ClientWidth     =   6255
  10.    ControlBox      =   0   'False
  11.    LinkTopic       =   "Form1"
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    ScaleHeight     =   3900
  15.    ScaleWidth      =   6255
  16.    StartUpPosition =   2  'CenterScreen
  17.    Begin VB.PictureBox Picture2 
  18.       BackColor       =   &H00FFFFFF&
  19.       BorderStyle     =   0  'None
  20.       Height          =   375
  21.       Left            =   240
  22.       Picture         =   "frmSelectFile.frx":0000
  23.       ScaleHeight     =   375
  24.       ScaleWidth      =   1215
  25.       TabIndex        =   7
  26.       Top             =   3360
  27.       Width           =   1215
  28.       Begin VB.Label Label4 
  29.          Alignment       =   2  'Center
  30.          BackStyle       =   0  'Transparent
  31.          Caption         =   "Cancel"
  32.          BeginProperty Font 
  33.             Name            =   "MS Sans Serif"
  34.             Size            =   8.25
  35.             Charset         =   0
  36.             Weight          =   700
  37.             Underline       =   0   'False
  38.             Italic          =   0   'False
  39.             Strikethrough   =   0   'False
  40.          EndProperty
  41.          ForeColor       =   &H000000C0&
  42.          Height          =   255
  43.          Left            =   0
  44.          TabIndex        =   8
  45.          Top             =   60
  46.          Width           =   1095
  47.       End
  48.    End
  49.    Begin VB.PictureBox Picture1 
  50.       BackColor       =   &H00FFFFFF&
  51.       BorderStyle     =   0  'None
  52.       Height          =   375
  53.       Left            =   4800
  54.       Picture         =   "frmSelectFile.frx":13DA
  55.       ScaleHeight     =   375
  56.       ScaleWidth      =   1215
  57.       TabIndex        =   5
  58.       Top             =   3360
  59.       Width           =   1215
  60.       Begin VB.Label Label3 
  61.          Alignment       =   2  'Center
  62.          BackStyle       =   0  'Transparent
  63.          Caption         =   "O.k"
  64.          BeginProperty Font 
  65.             Name            =   "MS Sans Serif"
  66.             Size            =   8.25
  67.             Charset         =   0
  68.             Weight          =   700
  69.             Underline       =   0   'False
  70.             Italic          =   0   'False
  71.             Strikethrough   =   0   'False
  72.          EndProperty
  73.          ForeColor       =   &H000000C0&
  74.          Height          =   255
  75.          Left            =   0
  76.          TabIndex        =   6
  77.          Top             =   60
  78.          Width           =   1095
  79.       End
  80.    End
  81.    Begin VB.FileListBox FilesList 
  82.       Appearance      =   0  'Flat
  83.       Height          =   2370
  84.       Left            =   3840
  85.       TabIndex        =   3
  86.       Top             =   480
  87.       Width           =   2295
  88.    End
  89.    Begin VB.DirListBox DirList 
  90.       Appearance      =   0  'Flat
  91.       Height          =   2340
  92.       Left            =   120
  93.       TabIndex        =   1
  94.       Top             =   480
  95.       Width           =   3615
  96.    End
  97.    Begin VB.DriveListBox DriveList 
  98.       Appearance      =   0  'Flat
  99.       Height          =   315
  100.       Left            =   120
  101.       TabIndex        =   0
  102.       Top             =   120
  103.       Width           =   3255
  104.    End
  105.    Begin VB.Label Label2 
  106.       AutoSize        =   -1  'True
  107.       BackStyle       =   0  'Transparent
  108.       Caption         =   "Working ..."
  109.       BeginProperty Font 
  110.          Name            =   "MS Sans Serif"
  111.          Size            =   8.25
  112.          Charset         =   0
  113.          Weight          =   700
  114.          Underline       =   0   'False
  115.          Italic          =   0   'False
  116.          Strikethrough   =   0   'False
  117.       EndProperty
  118.       ForeColor       =   &H00808080&
  119.       Height          =   195
  120.       Left            =   0
  121.       TabIndex        =   9
  122.       Top             =   3720
  123.       Visible         =   0   'False
  124.       Width           =   960
  125.    End
  126.    Begin VB.Line Line1 
  127.       BorderColor     =   &H00C0C0C0&
  128.       X1              =   120
  129.       X2              =   6120
  130.       Y1              =   3120
  131.       Y2              =   3120
  132.    End
  133.    Begin VB.Label CpFileName 
  134.       BackStyle       =   0  'Transparent
  135.       Caption         =   "Not selected"
  136.       ForeColor       =   &H00808080&
  137.       Height          =   255
  138.       Left            =   120
  139.       TabIndex        =   4
  140.       Top             =   2880
  141.       Width           =   6015
  142.    End
  143.    Begin VB.Label Label1 
  144.       AutoSize        =   -1  'True
  145.       BackStyle       =   0  'Transparent
  146.       Caption         =   "Select EXE or DLL or OCX file"
  147.       BeginProperty Font 
  148.          Name            =   "MS Sans Serif"
  149.          Size            =   8.25
  150.          Charset         =   0
  151.          Weight          =   700
  152.          Underline       =   0   'False
  153.          Italic          =   0   'False
  154.          Strikethrough   =   0   'False
  155.       EndProperty
  156.       ForeColor       =   &H000000C0&
  157.       Height          =   195
  158.       Left            =   3480
  159.       TabIndex        =   2
  160.       Top             =   160
  161.       Width           =   2580
  162.    End
  163. End
  164. Attribute VB_Name = "frmSelectFile"
  165. Attribute VB_GlobalNameSpace = False
  166. Attribute VB_Creatable = False
  167. Attribute VB_PredeclaredId = True
  168. Attribute VB_Exposed = False
  169. Private Sub DirList_Change()
  170. FilesList.Path = DirList.Path
  171. End Sub
  172.  
  173. Private Sub DriveList_Change()
  174. On Error GoTo Err
  175. DirList.Path = DriveList.Drive
  176. Exit Sub
  177. Err: MsgBox "Drive not supported !", vbExclamation, "Error"
  178. End Sub
  179.  
  180. Private Sub FilesList_Click()
  181. If Right(DirList.Path, 1) = "\" Then
  182. FilePath = DirList.Path
  183. Else
  184. FilePath = DirList.Path + "\"
  185. End If
  186. CpFileName.Caption = FilePath + FilesList.List(FilesList.ListIndex)
  187. End Sub
  188.  
  189. Private Sub Form_Load()
  190. FilesList.Path = App.Path + "\"
  191. DirList.Path = App.Path + "\"
  192. End Sub
  193.  
  194. Private Sub Label3_Click()
  195. If FilesList.ListIndex = -1 Then Exit Sub
  196. If Not CpFileName.Caption = "Not selected" Then
  197. Label2.Visible = True
  198. DoEvents
  199. Open App.Path + "\OrginalFile.dat" For Output As #1
  200. Write #1, Left(FilesList.List(FilesList.ListIndex), Len(FilesList.List(FilesList.ListIndex)) - 4)
  201. Close #1
  202. FileCopy CpFileName.Caption, App.Path + "\" + FilesList.List(FilesList.ListIndex)
  203. FileName = CpFileName.Caption
  204. frmExtractingData.Show
  205. Unload Me
  206. Else
  207. MsgBox "Select Program to Decompile !", vbInformation, "Wait !"
  208. End If
  209. End Sub
  210.  
  211. Private Sub Label4_Click()
  212. End
  213. End Sub
  214.  
  215.