37629.zip - LockScreen\Form1.frm

Current area: HOME ->
Zip File view

LockScreen 1.0

This page allows you to view the contents of a file contained inside a ZIP archive available at Programmer's Heaven. This means you can view the code and find what you need from it without having to download the ZIP file first. If the file contains source code for a language we recognize, we have syntax highlighted it.

Filename displayed: LockScreen\Form1.frm
Found in file: 37629.zip

VERSION 5.00
Begin VB.Form frmPwd
BackColor = &H00000000&
BorderStyle = 0 'None
Caption = "Enter Password"
ClientHeight = 7530
ClientLeft = 60
ClientTop = 345
ClientWidth = 10485
FillColor = &H80000010&
ForeColor = &H8000000B&
Icon = "Form1.frx":0000
LinkTopic = "Form1"
ScaleHeight = 7530
ScaleWidth = 10485
ShowInTaskbar = 0 'False
StartUpPosition = 3 'Windows Default
WindowState = 2 'Maximized
Begin VB.TextBox Text1
BackColor = &H00000040&
BeginProperty Font
Name = "MS Sans Serif"
Size = 24
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 495
IMEMode = 3 'DISABLE
Left = 7440
PasswordChar = "*"
TabIndex = 1
Tag = "1e920440ram"
Top = 3600
Width = 2655
End
Begin VB.Label Label1
BackColor = &H00000000&
Caption = "Enter Password:"
BeginProperty Font
Name = "Arial Black"
Size = 29.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FF00&
Height = 735
Left = 2040
TabIndex = 0
Top = 3360
Width = 5295
End
End
Attribute VB_Name = "frmPwd"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim x As Integer
Private Declare Function disable Lib _
"user32" Alias "SystemParametersInfoA" (ByVal a _
As Long, ByVal b As Long, c As Any, _
ByVal d As Long) As Long

Private Sub Form_Load()

x = disable(97, True, False, 0)

End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim a As Integer

If KeyAscii = 13 Then

If Text1.Text = Text1.Tag Then
a = disable(97, False, False, 0)

Unload Me

Else
Text1.Text = ""
End If
End If

End Sub

Online Shopping Web Store Builder Design 6.3a Online store builder, shopping cart software, E-Commerce Web-site solutions provider The most popular Ecommerce Website builder: Best to build a professional Web store complete E-Commerce solutions. ...	Goodie - The Goody Picker in "Take me home" , C source	Aform - Assembly source formater Is a filter used to format assembler source. It will create as output a file with consistent capitalization (or lack thereof) and indentation. It will even handle files with (yecch) line number...

Zip File view

LockScreen 1.0

Sponsored links