Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - ASP и VBScript

Страница: 1 |

 

  Вопрос: VBS: Ввод кода, по дате Добавлено: 02.04.11 15:57  

Автор вопроса:  Евгений
Здравствуйте, подскажите пожалуиста как сделать так, что-бы в vbs файле было, поле для ввода пароля и что-бы пароль зависел от даты!
Чтобы пароль каждый день был разный-пример:
1.04.2011 - 8466
2.04.2011 - 4255
3.04.2011 - 2244
4.04.2011 - 6335
5.04.2011 - 1466
6.04.2011 - 4773
7.04.2011 - 4478
И все эти пароли были указанны в скрипте, 7 паролей больше не надо!
Скрипт смотрит на число,месяц и год, сверяет с кодом скрипта- если число подходит, то пишет ОК, не подходит пишет плохой пароль!
А там уж я сам каждую неделю буду менять числа и пароли!

Ответить

  Ответы Всего ответов: 2  

Номер ответа: 1
Автор ответа:
 chialexus



ICQ: 321922 

Вопросов: 3
Ответов: 53
  Web-сайт: chialexus.narod.ru
 Профиль | | #1 		Добавлено: 02.04.11 20:33
  1. Option Explicit
  2.  
  3. Dim strPass, strRet, strDate
  4.  
  5. strDate=FormatDateTime (Now (), 2)
  6.  
  7. Select Case strDate
  8.   Case "01.04.2011"
  9.    strPass="8466"
  10.   Case "02.04.2011"
  11.    strPass="4255"
  12.   Case "03.04.2011"
  13.    strPass="2244"
  14.   Case "04.04.2011"
  15.    strPass="6335"
  16.   Case "05.04.2011"
  17.    strPass="1466"
  18.   Case "06.04.2011"
  19.    strPass="4773"
  20.   Case "07.04.2011"
  21.    strPass="4478"
  22.   Case Else
  23.    strPass="badpass"
  24. End Select
  25.  
  26. strRet=InputBox("Enter Password", "Password")
  27.  
  28. If strRet=strPass Then
  29. MsgBox "OK"
  30. Else
  31. MsgBox "Wrong password!"
  32. End If

Ответить

Номер ответа: 2
Автор ответа:
 Евгений



Вопросов: 1
Ответов: 1
  Профиль | | #2 Добавлено: 02.04.11 23:42
Спасибо! Очень помог!

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам