 Как получить случайное число?, Еще одно "изавращение", навеянное Forum.Local |
Здравствуйте, гость ( Вход | Регистрация )
Внимание!
- Вся информация, расположенная в данном и других разделах форума получена из открытых источников (интернет-ресурсы, средства массовой информации, печатные издания и т.п.) и/или добавлена самими пользователями. Администрация форума предоставляет его участникам площадку для общения / размещения файлов / статей и т.п. и не несет ответственности за содержание сообщений, а также за возможное нарушение авторских, смежных и каких-либо иных прав, которое может повлечь за собой информация, содержащаяся в сообщениях.
  |
 22.7.2009, 11:27
Сообщение
#1
|
||
 Администратор  Группа: Главные администраторы Сообщений: 14349 Регистрация: 12.10.2007 Из: Twilight Zone Пользователь №: 1  |
Вообщем-то навеяно вот этой - http://forum.live-kaluga.ru/?showtopic=68585#entry837913 темой. Человек спрашивает:
Цитата нужна программа способная сгенерировать совершенно случайное Девятизначное число, именно программа может кто сможет написать в интернете не нашел подобного Вариантов решения было предложено миллион, и специальные приложения на Delphi и что только не предлагали. Вообщем мой вариант решения с VBScript и WSH: Рассказываю, создаем в блокноте текстовый файл random.vbs следующего содержания: Код randomize() randomNumber=Int(1000000000 * rnd()) Wscript.Echo( randomNumber ) Сохраняем. Запускаем тыкая два раза кнопкой мыши по нему и получаем желаемое:
p.s. А если мы хотим чтобы полученное число сразу же копировалось в буфер обмена, то немного усложняем наш файлик: Код randomize() randomNumber=Int(1000000000 * rnd()) Wscript.Echo( randomNumber ) strTemp = "" & randomNumber & VbCrLf Set objIE = WScript.CreateObject("InternetExplorer.Application") objIE.Navigate "about:blank" Do Until objIE.ReadyState = 4 WScript.Sleep 100 Loop objIE.document.ParentWindow.ClipboardData.SetData "text", strTemp objIE.Quit Правда в этом варианте Internet Explorer может спросить у вас разрешать ли доступ web-странице к буферу обмена, отвечаем что да, в итоге получаем в буфере обмена случайное девятизнаковое число. p.p.s. 5 секунд Google'я и проблема решена )) --------------------  |
|
 |
 
|
|
|
23.7.2009, 15:42
Сообщение
#2
|
|
 Junior Member Группа: Пользователи Сообщений: 39 Регистрация: 25.11.2008 Из: Калуга Пользователь №: 57 |
Даешь решение на brainfuck'е!
-------------------- Удачи
Всё гениальное - просто... 2007-12-02 - ДР моего хостинга У меня ADSL, а не выделенка Мой сервер работает без перезагрузки:  |
|
|
|
|
16.9.2009, 23:02
Сообщение
#3
|
|
|
Newbie Группа: Пользователи Сообщений: 7 Регистрация: 9.5.2009 Пользователь №: 210 |
Поезд уже ушел, но вот наткнулся на тему, дай, думаю, пошевелю извилиной...
 файл rand_num.cmd ============== @echo off set /A rnd=%random%*10000 set /A rnd1=%random%+rnd echo %rnd1% ============== |
|
|
|
|
13.7.2010, 14:11
Сообщение
#4
|
|
|
Newbie Группа: Пользователи Сообщений: 1 Регистрация: 13.7.2010 Пользователь №: 664 |
помойму генерация любого числа эт легкотня полнейшая, не че поинтересней не могу написать???
|
|
|
|
|
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0
| Текстовая версия | Сейчас: 24.6.2025, 2:36 | |
|
|
||