frmgui.frm

个人数据加密引擎PDS开发包

VERSION 5.00
Begin VB.Form frmGUI 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "MiniGUI for PDS"
   ClientHeight    =   6630
   ClientLeft      =   5130
   ClientTop       =   4050
   ClientWidth     =   10095
   Icon            =   "frmGUI.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   ScaleHeight     =   6630
   ScaleWidth      =   10095
   Begin VB.CommandButton Command1 
      Caption         =   "Cipher/Decipher"
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   7680
      TabIndex        =   8
      Top             =   6000
      Width           =   2295
   End
   Begin VB.TextBox txtPassword 
      Appearance      =   0  'Flat
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   315
      IMEMode         =   3  'DISABLE
      Left            =   2280
      PasswordChar    =   "*"
      TabIndex        =   7
      Top             =   5580
      Width           =   7695
   End
   Begin VB.Frame Frame1 
      Caption         =   "Please select a file"
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   4935
      Left            =   3240
      TabIndex        =   2
      Top             =   120
      Width           =   6735
      Begin VB.FileListBox File1 
         BeginProperty Font 
            Name            =   "Verdana"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   2235
         Left            =   120
         TabIndex        =   5
         Top             =   2520
         Width           =   6495
      End
      Begin VB.DirListBox Dir1 
         BeginProperty Font 
            Name            =   "Verdana"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   1890
         Left            =   120
         TabIndex        =   4
         Top             =   600
         Width           =   6495
      End
      Begin VB.DriveListBox Drive1 
         BeginProperty Font 
            Name            =   "Verdana"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   315
         Left            =   120
         TabIndex        =   3
         Top             =   240
         Width           =   6495
      End
   End
   Begin VB.PictureBox Picture1 
      Height          =   4815
      Left            =   120
      Picture         =   "frmGUI.frx":0CCA
      ScaleHeight     =   4755
      ScaleWidth      =   2955
      TabIndex        =   0
      Top             =   240
      Width           =   3015
   End
   Begin VB.Label Label2 
      Caption         =   "Your passwords:"
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   120
      TabIndex        =   6
      Top             =   5640
      Width           =   2055
   End
   Begin VB.Label Label1 
      Caption         =   "File selected"
      BeginProperty Font 
         Name            =   "Verdana"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   120
      TabIndex        =   1
      Top             =   5160
      Width           =   9975
   End
End
Attribute VB_Name = "frmGUI"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim FileName As String

Private Sub Command1_Click()

If FileName <> "" And txtPassword.Text <> "" Then
Shell App.Path & "\" & "pds.exe " & Chr(34) & FileName & Chr(34) & " " & Chr(34) & txtPassword.Text & Chr(34)
End If
End Sub

Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub

Private Sub Drive1_Change()
On Error GoTo errorExit
Dir1.Path = Drive1.Drive
errorExit:
Drive1.Drive = Dir1.Path
End Sub

Private Sub File1_Click()
If Right(File1.Path, 1) = "\" Then
FileName = File1.Path & File1.FileName
Else
FileName = File1.Path & "\" & File1.FileName
End If
Label1.Caption = FileName
End Sub