누락파일 추가

Epole/MakeList.vb

@@ -30,9 +30,10 @@ Public Class MakeList
     End Sub
 
     Private Sub MakeList_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
-        If e.KeyCode = Keys.F12 Then
+        If e.Control AndAlso e.Shift AndAlso e.KeyCode = Keys.F1 Then
             Dim msg As String = InputBox("pass")
-            If msg = "arin" Then Admin = True 'UserInfo.Type = E_AuthType.Admin
+            Dim pass As String = DateTime.Now.ToString("ddMMyyyy")
+            If msg = pass Then Admin = True 'UserInfo.Type = E_AuthType.Admin
             ShowMenu()
         End If
     End Sub
@@ -82,7 +83,7 @@ Public Class MakeList
         '        Me.lb_auth.ForeColor = Color.Black
         'End Select
 
-        ShowMenu()
+        'ShowMenu()
 
         'If UserInfo.Type = E_AuthType.Demo Then
         '    If DemoDlg.ShowDialog() <> Windows.Forms.DialogResult.OK Then End