-
Notifications
You must be signed in to change notification settings - Fork 3
/
Copy pathloginform.frm
160 lines (155 loc) · 4.78 KB
/
loginform.frm
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
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
VERSION 5.00
Begin VB.Form loginform
ClientHeight = 3615
ClientLeft = 60
ClientTop = 345
ClientWidth = 4680
LinkTopic = "Form1"
ScaleHeight = 3615
ScaleWidth = 4680
StartUpPosition = 3 'Windows Default
Begin VB.CommandButton cancelbt
Caption = "Cancel"
BeginProperty Font
Name = "Times New Roman"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 120
TabIndex = 6
Top = 3120
Width = 1575
End
Begin VB.CommandButton Command1
Caption = "Save and continue"
Default = -1 'True
BeginProperty Font
Name = "Times New Roman"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 3000
TabIndex = 5
Top = 3120
Width = 1575
End
Begin VB.Frame Frame2
Caption = "API token"
BeginProperty Font
Name = "Times New Roman"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 615
Left = 120
TabIndex = 3
Top = 1560
Width = 4455
Begin VB.TextBox token
BeginProperty Font
Name = "Times New Roman"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 120
TabIndex = 4
Top = 240
Width = 4215
End
End
Begin VB.Frame Frame1
Caption = "Instance (eg. blahaj.social)"
BeginProperty Font
Name = "Times New Roman"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 615
Left = 120
TabIndex = 1
Top = 720
Width = 4455
Begin VB.TextBox instance
BeginProperty Font
Name = "Times New Roman"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 285
Left = 120
TabIndex = 2
Top = 240
Width = 4215
End
End
Begin VB.Label tokenNotice
Caption = $"loginform.frx":0000
Height = 615
Left = 240
TabIndex = 7
Top = 2280
Width = 4215
End
Begin VB.Label Label1
Caption = "Welcome to Mastodon 3.11 for workgroups. Please sign in with your Fediverse ID first:"
BeginProperty Font
Name = "Times New Roman"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 120
TabIndex = 0
Top = 120
Width = 4455
End
End
Attribute VB_Name = "loginform"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim file_token As Integer
Dim file_instance As Integer
Dim path, token_path As String, instance_path As String
Private Sub cancelbt_Click()
main.Show
Unload loginform
End Sub
Private Sub Command1_Click()
WriteIni "auth", "instance", instance.Text
WriteIni "auth", "token", token.Text
main.Show
Unload loginform
End Sub