frmAutoLogin.frm
2.36 KB
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
VERSION 5.00
Begin VB.Form frmAutoLogin
BorderStyle = 3 'Fixed Dialog
Caption = "Auto-Login"
ClientHeight = 1605
ClientLeft = 45
ClientTop = 435
ClientWidth = 6360
Icon = "frmAutoLogin.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 1605
ScaleWidth = 6360
ShowInTaskbar = 0 'False
StartUpPosition = 1 'CenterOwner
Begin VB.CheckBox chkManterLogin
Caption = "Manter login automático"
Height = 285
Left = 195
TabIndex = 1
Top = 1125
Value = 1 'Checked
Width = 2160
End
Begin VB.CommandButton cmdOk
Caption = "OK"
Height = 420
Left = 4995
TabIndex = 0
Top = 1020
Width = 1095
End
Begin VB.Image Image1
Height = 480
Left = 315
Picture = "frmAutoLogin.frx":0442
Top = 315
Width = 480
End
Begin VB.Label lblMsg
Caption = "Logando automaticamente com usuário:"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 270
Left = 990
TabIndex = 2
Top = 495
Width = 5220
End
End
Attribute VB_Name = "frmAutoLogin"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmdOK_Click()
If Me.chkManterLogin.value = 0 Then
If MsgBox("Você selecionou eliminar o auto-login." & Chr(13) & "O próximo login requisitará uma senha. " & Chr(13) & Chr(13) & "Confirma esta opção?", vbDefaultButton2 + vbQuestion + vbYesNo, "") = vbYes Then
Kill App.path & "\controles\autologin.txt"
End If
End If
Unload Me
End Sub
Private Sub Form_Load()
Me.lblMsg.Caption = "Logando automaticamente com usuário: " & strUser
End Sub