ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / UserName and Passwor
22 сообщений из 22, страница 1 из 1
UserName and Passwor
    #34423959
nikalex2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
nikalex2
Участник
привет всем

задача такова:

написал небольшую программулину (очень небольшую)

я сделал так что при запуске программы появляется Forma
в ней надо ввести логин и пароль

как сделать так чтобы при удачном вводе логина и пароля
прога запоминала это и
при следующем запуске
она больше не запрашивала пароль???



Private Sub OK_Click()
If UserName = "111" And Password = "111" Then
Unload Me
UserForm1.Show
Else

If UserName = "222" And Password = "222" Then
Unload Me
UserForm1.Show
Else
Unload Me
UserForm2.Show
Unload Me
End If
End If
End Sub
...
Рейтинг: 0 / 0
29.03.2007, 11:33
| Ответить | Цитировать | Написать  
UserName and Passwor
    #34424006
shady
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
shady
Участник
Надо их куда-то записать :)
Куда выбирайте сами: Реестр, INI, Txt....
...
Рейтинг: 0 / 0
29.03.2007, 11:41
| Ответить | Цитировать | Написать  
UserName and Passwor
    #34424019
nikalex2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
nikalex2
Участник
ну я как бы догадывался что нада сделать так чтобы создавался временный файл
и при следующем запуске программы она обращалась к нему
но как енто сделать я не знаю

забыл сказать, я новичек
пытаюсь программировать вторую неделю
...
Рейтинг: 0 / 0
29.03.2007, 11:45
| Ответить | Цитировать | Написать  
UserName and Passwor
    #34424408
shady
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
shady
Участник
ну так определись для начала куда ты будешь писать свой логин с паролем, а потом ищистатьи по выбранной тематике
...
Рейтинг: 0 / 0
29.03.2007, 13:01
| Ответить | Цитировать | Написать  
UserName and Passwor
    #34424534
bac
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
bac
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
'=========================================
' Загрузка начальных значений в форму
Private Sub Form_Load()
    Dim sName as String
    sName = GetSetting("MyProg", "Settings", "UserNic", "")
'   Вот здесь можно посмотреть если в sName пусто, то значит не определено
End Sub

'=======================================
' Обработчик проверки ника и пароля
Private Sub btnOK_Click()
     ...........
' Если все в порядке то сохранить ник в реестре     
     SaveSetting App.Title, "Settings", "UserNic", sName
     ............
...
Рейтинг: 0 / 0
29.03.2007, 13:32
| Ответить | Цитировать | Написать  
UserName and Passwor
    #34424641
nikalex2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
nikalex2
Участник
bac
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
'=========================================
' Загрузка начальных значений в форму
Private Sub Form_Load()
    Dim sName as String
    sName = GetSetting("MyProg", "Settings", "UserNic", "")
'   Вот здесь можно посмотреть если в sName пусто, то значит не определено
End Sub

'=======================================
' Обработчик проверки ника и пароля
Private Sub btnOK_Click()
     ...........
' Если все в порядке то сохранить ник в реестре     
     SaveSetting App.Title, "Settings", "UserNic", sName
     ............


Такс, что-то не въеду
GetSetting(" MyProg ", " Settings ", " UserNic ", "")

это мои TextBox ы где нада вводить Имя пользователя, пароль???
...
Рейтинг: 0 / 0
29.03.2007, 13:56
| Ответить | Цитировать | Написать  
UserName and Passwor
    #34424675
bac
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
bac
Участник
Я дал пример как сохранить и как восстановить значения в(из) реестра. А уж текстбоксы прикрутите сами ;)
...
Рейтинг: 0 / 0
29.03.2007, 14:06
| Ответить | Цитировать | Написать  
UserName and Passwor
    #34424695
nikalex2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
nikalex2
Участник
bacЯ дал пример как сохранить и как восстановить значения в(из) реестра. А уж текстбоксы прикрутите сами ;)

спасибо, щаз буду разбираться


Dim sName as String
sName = GetSetting("MyProg", "Settings", "UserNic", "")

это я в какой Forme должен прописать??? в той где вводится пароль и ник????
...
Рейтинг: 0 / 0
29.03.2007, 14:11
| Ответить | Цитировать | Написать  
UserName and Passwor
    #34424706
bac
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
bac
Участник
Удобнее всего в форме где вводится пароль. Хотя можно и в форме которая вызывает форму ввода пароля. Как кому нравится
...
Рейтинг: 0 / 0
29.03.2007, 14:14
| Ответить | Цитировать | Написать  
UserName and Passwor
    #34424806
nikalex2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
nikalex2
Участник
сделал так как посоветовал
но почему то не работает, выдает ошибку
проверяю расчет, показывает что sName = ""

хотя пароль и ник ввел правильно
...
Рейтинг: 0 / 0
29.03.2007, 14:48
| Ответить | Цитировать | Написать  
UserName and Passwor
    #34424922
bac
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
bac
Участник
Исходники к осмотру
...
Рейтинг: 0 / 0
29.03.2007, 15:15
| Ответить | Цитировать | Написать  
UserName and Passwor
    #34424962
nikalex2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
nikalex2
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
Dim sName As String

Private Sub OK_Click()

If UserName = "111" And Password = "111" Then   
   
    If sName = GetSetting(UserName, Password, "") Then
    
SaveSetting App.Title, "UserName", "Pssword", sName

End If
   Unload Me
   
Расчет1.Show


Else
Unload Me
Выход.Show
Unload Me

  End If
      End If
End Sub


Если всё неправильно, прошу не ругаться
я только учусь...
...
Рейтинг: 0 / 0
29.03.2007, 15:23
| Ответить | Цитировать | Написать  
UserName and Passwor
    #34425046
bac
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
bac
Участник
Надо сказать. Что из исходника вообще не пнятно, что делается.
Теперь давайте по русски напишите, что хотели сделать.
С учетом сохранения инфы в реестре.
Спокойно без сокроащений. Что видит пользователь, что делает программа и т.п.
...
Рейтинг: 0 / 0
29.03.2007, 15:46
| Ответить | Цитировать | Написать  
UserName and Passwor
    #34425122
nikalex2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
nikalex2
Участник
появляется окно ввода имени и пароля:
в нем два TextBoxa

UserName и Pasword

и кнопка OK

вводим UserName *** (к примеру 111)
вводим Password *** (к примеру 111)

жмем кнопку ОК

Идет проверка UserName и Password

в коде я прописал что UserName=111 и Password=111
(т.е. если UserName=111 то ИСТИНА, если Password=111 то ИСТИНА)

вот сдесь и нада чтобы сохранились данные о том что введены правильные UserName и Password

и всплывает Forma РАСЧЕТ

иначе

если введены неправильные данные всплывает Forma ВЫХОД

и выход из программы


ну вот вроде бы вот так должно работать
...
Рейтинг: 0 / 0
29.03.2007, 16:07
| Ответить | Цитировать | Написать  
UserName and Passwor
    #34425296
Фотография Magnus23
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Magnus23
Участник
Дело в том что сохранение того что вводит пользователь - это не есть гут. Проверять ты его чем собираешься? Или логин с паролем всегда одинаковые и будут в коде? Тебе ведь придется откуда-то их читать чтобы сверить с вводом пользователя, так? А 3aчем тогда их потом еще куда-то писать?

Я к чему веду: у тебя сам подход неправильный :). Логин и пароль надо вводить всегда, в этом их смысл.
Один раз(при установке программы)записываешь в регистр, а потом при каждом запуске сверяешь введенный пароль с тем что сохранен в регистре.


Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
Dim sLogin As String
Dim sPass As String

Private Sub OK_Click()

sLogin = GetSetting (App.EXEName, "Settings", "Login", "")
sPass = GetSetting (App.EXEName, "Settings", "Password", "")


If UserName = sLogin And Password = sPass Then   
     Расчет1.Show
else 
     Unload Me
     Выход.Show

End If

End Sub




Magnus
...
Рейтинг: 0 / 0
29.03.2007, 16:52
| Ответить | Цитировать | Написать  
UserName and Passwor
    #34425350
nikalex2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
nikalex2
Участник
Magnus23

суть я вроде как и понял
но я пишу в VB который встроен в OfFice
т.е. у меня даже не программа, а так программулька
НО в дальнейшем я конечно же хочу сделать из ентой программульки нормальную ПРОГРАММУ

т.е. я это к чему
у меня нет прцесса установки программы
...
Рейтинг: 0 / 0
29.03.2007, 17:02
| Ответить | Цитировать | Написать  
UserName and Passwor
    #34425372
Фотография Magnus23
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Magnus23
Участник
Ну ты понимаешь что если "не спрашивать" пароль, то его наличие вообще теряет смысл :). Разве что нанять телепатов и поставлять их вместе с программой :).



Magnus
...
Рейтинг: 0 / 0
29.03.2007, 17:07
| Ответить | Цитировать | Написать  
UserName and Passwor
    #34425414
nikalex2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
nikalex2
Участник
мда,
значит придется постоянно вводить имя и пароль???
...
Рейтинг: 0 / 0
29.03.2007, 17:17
| Ответить | Цитировать | Написать  
UserName and Passwor
    #34425442
Фотография Magnus23
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Magnus23
Участник
Гм..
Хорошо, не хочешь - не вводи. Hо тогда обьясни мне как ты собираешься определить что пользователь знает пароль? Рассматриваешь вариант с телепатами? :)


Magnus
...
Рейтинг: 0 / 0
29.03.2007, 17:25
| Ответить | Цитировать | Написать  
UserName and Passwor
    #34425446
nikalex2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
nikalex2
Участник
а тогда как сделать чтобы при вводе пароля
отображались звездочки а не сам пароль???
...
Рейтинг: 0 / 0
29.03.2007, 17:26
| Ответить | Цитировать | Написать  
UserName and Passwor
    #34425558
nikalex2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
nikalex2
Участник
всё разобрался

в свойствах задавть нада
...
Рейтинг: 0 / 0
29.03.2007, 17:54
| Ответить | Цитировать | Написать  
UserName and Passwor
    #34425588
Фотография Magnus23
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Magnus23
Участник
Text1.PasswordChar = "*"

Либо задатЬ в свойствах кнтрола в дизайнере.


Magnus
...
Рейтинг: 0 / 0
29.03.2007, 17:59
| Ответить | Цитировать | Написать  
22 сообщений из 22, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / UserName and Passwor
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&fpage=241&tid=2164287]:
 0ms
get settings:
 8ms
get forum list:
 19ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 44ms
get topic data:
 13ms
get forum data:
 3ms
get page messages:
 73ms
get tp. blocked users:
 1ms
others: 226ms
total:  395ms
созд. / загр.: 395ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]