.vbp filen (VB projektet) kommer her:
<pre>Type=Exe
Form=frmPassword.frm
Reference=*\\G{00020430-0000-0000-C000-000000000046}#2.0#0#..\\..\\..\\..\\..\\..\\WINDOWS\\System32\\stdole2.tlb#OLE Automation
Startup="frmPassword"
Command32=""
Name="PasswordKnap"
HelpContextID="0"
CompatibleMode="0"
MajorVer=1
MinorVer=0
RevisionVer=0
AutoIncrementVer=0
ServerSupportFiles=0
CompilationType=0
OptimizationType=0
FavorPentiumPro(tm)=0
CodeViewDebugInfo=0
NoAliasing=0
BoundsCheck=0
OverflowCheck=0
FlPointCheck=0
FDIVCheck=0
UnroundedFP=0
StartMode=0
Unattended=0
ThreadPerObject=0
MaxNumberOfThreads=1</pre>
OK, det interessante ... frmPassword.frm formen:
<pre>VERSION 5.00
Begin VB.Form frmPassword
Caption = "Password Eksempel"
ClientHeight = 1500
ClientLeft = 60
ClientTop = 450
ClientWidth = 3525
LinkTopic = "Form1"
ScaleHeight = 1500
ScaleWidth = 3525
StartUpPosition = 3 'Windows Default
Begin VB.CommandButton btnBeskyttet
Caption = "Beskyttet Knap"
Height = 375
Left = 1800
TabIndex = 2
Top = 360
Width = 1575
End
Begin VB.TextBox txtPassword
Height = 285
IMEMode = 3 'DISABLE
Left = 120
PasswordChar = "*"
TabIndex = 1
Top = 360
Width = 1575
End
Begin VB.Label Label2
Caption = "Skriv kodeordet i tekstboksen. Når du er inde, aktiveres knappen."
Height = 495
Left = 120
TabIndex = 3
Top = 840
Width = 3255
End
Begin VB.Label Label1
Caption = "&Password:"
Height = 255
Left = 120
TabIndex = 0
Top = 120
Width = 1575
End
End
Attribute VB_Name = "frmPassword"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Const STR_PASSWORD = "hemmeligt" ' dette er dit password
'
' Vis besked, når brugeren klikker på knappen.
'
Private Sub btnBeskyttet_Click()
MsgBox "OK, du er inde.", vbInformation, "SUPER HACKER!!!"
End Sub
'
' Når formen hentes ind, sættes knappen til deaktiveret.
'
Private Sub Form_Load()
Let btnBeskyttet.Enabled = False
End Sub
'
' Når teksten forandres i tekstboksen, sammenlignes
' den med password-konstanten.
'
Private Sub txtPassword_Change()
'
' Er tekstboksen og password ens?
'
If txtPassword.Text = STR_PASSWORD Then
'
' Ja, lad knappen være aktiv.
'
Let btnBeskyttet.Enabled = True
Else
'
' Nej, deaktiver knappen.
'
Let btnBeskyttet.Enabled = False
End If
End Sub</pre>
Det hele skulle være lige til at kopiere. Håber du kan bruge det til noget, ellers sig til.
Software is here and now but rock and roll is forever.