Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / UserName and Passwor / 22 сообщений из 22, страница 1 из 1
29.03.2007, 11:33
    #34423959
nikalex2
nikalex2
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
UserName and Passwor
привет всем

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

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

я сделал так что при запуске программы появляется 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:41
    #34424006
shady
shady
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
UserName and Passwor
Надо их куда-то записать :)
Куда выбирайте сами: Реестр, INI, Txt....
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.03.2007, 11:45
    #34424019
nikalex2
nikalex2
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
UserName and Passwor
ну я как бы догадывался что нада сделать так чтобы создавался временный файл
и при следующем запуске программы она обращалась к нему
но как енто сделать я не знаю

забыл сказать, я новичек
пытаюсь программировать вторую неделю
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.03.2007, 13:01
    #34424408
shady
shady
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
UserName and Passwor
ну так определись для начала куда ты будешь писать свой логин с паролем, а потом ищистатьи по выбранной тематике
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.03.2007, 13:32
    #34424534
bac
bac
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
UserName and Passwor
Код: 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:56
    #34424641
nikalex2
nikalex2
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
UserName and Passwor
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, 14:06
    #34424675
bac
bac
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
UserName and Passwor
Я дал пример как сохранить и как восстановить значения в(из) реестра. А уж текстбоксы прикрутите сами ;)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.03.2007, 14:11
    #34424695
nikalex2
nikalex2
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
UserName and Passwor
bacЯ дал пример как сохранить и как восстановить значения в(из) реестра. А уж текстбоксы прикрутите сами ;)

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


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

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

хотя пароль и ник ввел правильно
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.03.2007, 15:15
    #34424922
bac
bac
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
UserName and Passwor
Исходники к осмотру
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.03.2007, 15:23
    #34424962
nikalex2
nikalex2
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
UserName and Passwor
Код: 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:46
    #34425046
bac
bac
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
UserName and Passwor
Надо сказать. Что из исходника вообще не пнятно, что делается.
Теперь давайте по русски напишите, что хотели сделать.
С учетом сохранения инфы в реестре.
Спокойно без сокроащений. Что видит пользователь, что делает программа и т.п.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.03.2007, 16:07
    #34425122
nikalex2
nikalex2
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
UserName and Passwor
появляется окно ввода имени и пароля:
в нем два 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:52
    #34425296
Magnus23
Magnus23
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
UserName and Passwor
Дело в том что сохранение того что вводит пользователь - это не есть гут. Проверять ты его чем собираешься? Или логин с паролем всегда одинаковые и будут в коде? Тебе ведь придется откуда-то их читать чтобы сверить с вводом пользователя, так? А 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, 17:02
    #34425350
nikalex2
nikalex2
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
UserName and Passwor
Magnus23

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

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



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


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

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

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


Magnus
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / UserName and Passwor / 22 сообщений из 22, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 425ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2164287]:
 0ms
get settings:
 7ms
get forum list:
 9ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 140ms
get topic data:
 6ms
get forum data:
 2ms
get page messages:
 30ms
get tp. blocked users:
 1ms
others: 226ms
total:  425ms
x
x
Закрыть


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