MC-SECURITY (16/32 Bit) for VB4.0
Submitted By:
Unknown
Rating:
Not rated (
Rate It)
VERSION 4.00
Begin VB.Form frmSerialization
Appearance = 0 'Flat
BackColor = &H00C0C0C0&
BorderStyle = 1 'Fixed Single
Caption = "Serialization"
ClientHeight = 5325
ClientLeft = 1185
ClientTop = 1650
ClientWidth = 7575
BeginProperty Font
name = "MS Sans Serif"
charset = 0
weight = 700
size = 8.25
underline = 0 'False
italic = 0 'False
strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 5730
KeyPreview = -1 'True
Left = 1125
LinkTopic = "Form1"
MaxButton = 0 'False
MDIChild = -1 'True
ScaleHeight = 5325
ScaleWidth = 7575
Top = 1305
Width = 7695
Begin VB.PictureBox Picture1
Appearance = 0 'Flat
AutoSize = -1 'True
BackColor = &H00C0C0C0&
BorderStyle = 0 'None
BeginProperty Font
name = "MS Sans Serif"
charset = 0
weight = 700
size = 8.25
underline = 0 'False
italic = 0 'False
strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 480
Left = 7020
Picture = "_SERIAL.frx":0000
ScaleHeight = 480
ScaleWidth = 480
TabIndex = 16
TabStop = 0 'False
Top = 90
Visible = 0 'False
Width = 480
End
Begin VB.CommandButton Command7
Appearance = 0 'Flat
BackColor = &H80000005&
Caption = "&Clear info"
BeginProperty Font
name = "MS Sans Serif"
charset = 0
weight = 400
size = 8.25
underline = 0 'False
italic = 0 'False
strikethrough = 0 'False
EndProperty
Height = 465
Left = 5310
TabIndex = 15
Top = 4590
Width = 1995
End
Begin VB.CommandButton Command6
Appearance = 0 'Flat
BackColor = &H80000005&
Caption = "&Set default"
BeginProperty Font
name = "MS Sans Serif"
charset = 0
weight = 400
size = 8.25
underline = 0 'False
italic = 0 'False
strikethrough = 0 'False
EndProperty
Height = 465
Left = 5310
TabIndex = 14
Top = 3870
Width = 1995
End
Begin VB.CommandButton Command5
Appearance = 0 'Flat
BackColor = &H80000005&
Caption = "&Read Serialization"
BeginProperty Font
name = "MS Sans Serif"
charset = 0
weight = 400
size = 8.25
underline = 0 'False
italic = 0 'False
strikethrough = 0 'False
EndProperty
Height = 375
Left = 5040
TabIndex = 4
Top = 810
Width = 2445
End
Begin VB.TextBox SerNumber
BeginProperty Font
name = "MS Sans Serif"
charset = 0
weight = 700
size = 8.25
underline = 0 'False
italic = 0 'False
strikethrough = 0 'False
EndProperty
Height = 285
Left = 90
MaxLength = 9
TabIndex = 13
Tag = "9876543210"
Top = 4950
Width = 4875
End
Begin VB.TextBox SerPart2
BeginProperty Font
name = "MS Sans Serif"
charset = 0
weight = 700
size = 8.25
underline = 0 'False
italic = 0 'False
strikethrough = 0 'False
EndProperty
Height = 285
Left = 90
MaxLength = 50
TabIndex = 11
Tag = "Company : MicroProgram SoftHouse"
Top = 4320
Width = 4875
End
Begin VB.TextBox SerPart1
BeginProperty Font
name = "MS Sans Serif"
charset = 0
weight = 700
size = 8.25
underline = 0 'False
italic = 0 'False
strikethrough = 0 'False
EndProperty
Height = 285
Left = 90
MaxLength = 50
TabIndex = 9
TabStop = 0 'False
Tag = "User : Gill Bates"
Top = 3690
Width = 4875
End
Begin VB.CommandButton Command3
Appearance = 0 'Flat
BackColor = &H80000005&
Caption = "&Add 1 to Serial Number"
BeginProperty Font
name = "MS Sans Serif"
charset = 0
weight = 400
size = 8.25
underline = 0 'False
italic = 0 'False
strikethrough = 0 'False
EndProperty
Height = 375
Left = 5040
TabIndex = 7
Top = 2160
Width = 2445
End
Begin VB.FileListBox File1
BeginProperty Font
name = "MS Sans Serif"
charset = 0
weight = 700
size = 8.25
underline = 0 'False
italic = 0 'False
strikethrough = 0 'False
EndProperty
Height = 2370
Left = 3150
Pattern = "*.exe;*.dll"
TabIndex = 0
Top = 810
Width = 1815
End
Begin VB.DirListBox Dir1
BeginProperty Font
name = "MS Sans Serif"
charset = 0
weight = 700
size = 8.25
underline = 0 'False
italic = 0 'False
strikethrough = 0 'False
EndProperty
Height = 2280
Left = 90
TabIndex = 3
Top = 810
Width = 2985
End
Begin VB.DriveListBox Drive1
BeginProperty Font
name = "MS Sans Serif"
charset = 0
weight = 700
size = 8.25
underline = 0 'False
italic = 0 'False
strikethrough = 0 'False
EndProperty
Height = 315
Left = 90
TabIndex = 2
Top = 360
Width = 2985
End
Begin VB.CommandButton Command2
Appearance = 0 'Flat
BackColor = &H80000005&
Caption = "&Remove Serialization"
BeginProperty Font
name = "MS Sans Serif"
charset = 0
weight = 400
size = 8.25
underline = 0 'False
italic = 0 'False
strikethrough = 0 'False
EndProperty
Height = 375
Left = 5040
TabIndex = 6
Top = 1710
Width = 2445
End
Begin VB.CommandButton Command1
Appearance = 0 'Flat
BackColor = &H80000005&
Caption = "&Add Serialization"
BeginProperty Font
name = "MS Sans Serif"
charset = 0
weight = 400
size = 8.25
underline = 0 'False
italic = 0 'False
strikethrough = 0 'False
EndProperty
Height = 375
Left = 5040
TabIndex = 5
Top = 1260
Width = 2445
End
Begin VB.Label Label1
Appearance = 0 'Flat
BackColor = &H80000005&
BackStyle = 0 'Transparent
Caption = "&Enter serialization number (9 digits)"
BeginProperty Font
name = "MS Sans Serif"
charset = 0
weight = 700
size = 8.25
underline = 0 'False
italic = 0 'False
strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 195
Index = 2
Left = 90
TabIndex = 12
Top = 4680
Width = 4875
End
Begin VB.Label Label1
Appearance = 0 'Flat
BackColor = &H80000005&
BackStyle = 0 'Transparent
Caption = "&Enter second part of serialization (50 chars)"
BeginProperty Font
name = "MS Sans Serif"
charset = 0
weight = 700
size = 8.25
underline = 0 'False
italic = 0 'False
strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 195
Index = 1
Left = 90
TabIndex = 10
Top = 4050
Width = 4875
End
Begin VB.Label Label1
Appearance = 0 'Flat
BackColor = &H80000005&
BackStyle = 0 'Transparent
Caption = "&Enter first part of serialization (50 chars)"
BeginProperty Font
name = "MS Sans Serif"
charset = 0
weight = 700
size = 8.25
underline = 0 'False
italic = 0 'False
strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 195
Index = 0
Left = 90
TabIndex = 8
Top = 3420
Width = 4875
End
Begin VB.Line Line1
BorderColor = &H00FFFFFF&
BorderWidth = 2
Index = 1
X1 = 90
X2 = 7470
Y1 = 3330
Y2 = 3330
End
Begin VB.Label Label2
Appearance = 0 'Flat
BackColor = &H80000005&
BackStyle = 0 'Transparent
Caption = "Select an EXE, DLL to add/remove serialization info"
BeginProperty Font
name = "MS Sans Serif"
charset = 0
weight = 700
size = 8.25
underline = 0 'False
italic = 0 'False
strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 195
Index = 1
Left = 90
TabIndex = 1
Top = 90
Width = 6315
End
End
Attribute VB_Name = "frmSerialization"
Attribute VB_Creatable = False
Attribute VB_Exposed = False
Option Explicit
Private Sub Command1_Click()
Me.Enabled = False
Me.Picture1.Visible = True
Call FileProcessAdd
DoEvents
Me.Picture1.Visible = False
Me.Enabled = True
End Sub
Private Sub Command2_Click()
Me.Enabled = False
Me.Picture1.Visible = True
Call FileProcessRemove
DoEvents
Me.Picture1.Visible = False
Me.Enabled = True
End Sub
Private Sub Command3_Click()
Me.Enabled = False
Me.Picture1.Visible = True
Call FileProcessChange
DoEvents
Me.Picture1.Visible = False
Me.Enabled = True
End Sub
Private Sub Command5_Click()
Me.Enabled = False
Me.Picture1.Visible = True
Call FileProcessRead
DoEvents
Me.Picture1.Visible = False
Me.Enabled = True
End Sub
Private Sub Command6_Click()
SerPart1.Text = SerPart1.Tag
SerPart2.Text = SerPart2.Tag
SerNumber.Text = SerNumber.Tag
End Sub
Private Sub Command7_Click()
SerPart1.Text = ""
SerPart2.Text = ""
SerNumber.Text = ""
End Sub
Private Sub Dir1_Change()
file1.Path = Dir1.Path
End Sub
Private Sub Dir1_KeyPress(KeyAscii As Integer)
If ((KeyAscii = 32) Or (KeyAscii = 13)) Then
Dir1.Path = Dir1.List(Dir1.ListIndex)
file1.Path = Dir1.List(Dir1.ListIndex)
End If
End Sub
Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub
Private Sub Form_Load()
Me.Show
Call Loader
End Sub
