Форум программистов, компьютерный форум, киберфорум
Наши страницы

VBScript/JScript/WSH/WMI/HTA

Войти
Регистрация
Восстановить пароль
 
 
Dragokas
Эксперт WindowsАвтор FAQ
16122 / 6941 / 834
Регистрация: 25.12.2011
Сообщений: 10,722
Записей в блоге: 16
#1

Полезные VBS скрипты и программы по работе с ними - VBScript/JScript

15.10.2012, 00:41. Просмотров 85083. Ответов 31
Метки нет (Все метки)

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

Также приветствуются скрипты высокой степени сложности, полезные с точки зрения
изучения принципа их работы.

Правила темы:
  • При выкладывании скрипта постарайтесь тщательно описывать принцип его работы и по-больше комментировать строки Вашего кода.
  • Если Ваш код очень большой, помещайте его под CUT. Также можно сделать 2 варианта: 1. Чистый код. 2. С комментариями.
  • Запрещаются любые обсуждения выложенных здесь работ;
  • если в этом есть необходимость, создайте отдельную тему в которой опишите замечание или проблему при работе с данным скриптом, указав ссылку на сообщение из этой темы (правый клик по слову "Permalink" вверху каждого сообщения).
  • Если Вы хотите внести исправление в выложенный Вами код - пишите мне в личку ссылку на Ваше старое сообщение и новый исправленный вариант. (полный вариант с тегами Вашего старого сообщения можно получить, нажав на него - кнопка "Цитата").
  • Допускается размещение обзора программ, помогающих редактировать/отлаживать код.

Схожая тема: Полезные макросы, надстройки и шаблоны (VBA)
Смежная тема: Полезные BAT/CMD скрипты


******************* Перечень полезных скриптов: *******************
Отправка файла на FTP (Drag & Drop) и копирование ссылки в буфер обмена ссылка
Получение времени сервера ссылка
5
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
15.10.2012, 00:41
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Полезные VBS скрипты и программы по работе с ними (VBScript/JScript):

Как вызвать скрипты .vbs из .wsf? - VBScript/JScript
Добрый день! Пытаюсь освоить WSH с целью автоматического создания фиксированного набора папок в каталоге, выбранном пользователем....

VBS, метод POST, заполнение полей и иже с ними - VBScript/JScript
С помощью скрипта лезу на сайт. Далее нужно заполнить поля формы. Тут ступор — как обращаться к ним? у них есть имена, но Set...

Vbs -скрытый запуск программы с параметрами и её отслеживание - VBScript/JScript
Требуется скрыто запускать программу с параметром, если она завершится, скрыто перезапускать её с параметрами, один из форумчан говорит что...

Добавление программы в автозагрузку через скрипт vbs - VBScript/JScript
Доброго врмени суток. Никак не могу найти скрипт vbs добавления в автозагрузку. У меня есть только такой код, но он не работает(( ...

Создание бинарного файла из vbs / Как создать exe файл из vbs - VBScript/JScript
Имеется файл с расширением exe. Нужно как-нибудь занести массив байт в скрипт, и чтоб потом этот файл создавался при запуске vbs

Вывод сообщений из программы сценария VBScript (.vbs-файл) - VBScript/JScript
Дано: Win2003Srv До переустановки системы сценарий VBScript выводил сообщения (командой WScript.Echo "Сообщение...") одно за другим в...

31
greg zakharov
Покинул форум
1826 / 741 / 187
Регистрация: 07.05.2015
Сообщений: 1,478
Записей в блоге: 39
20.10.2017, 23:10 #31
Декодер активационного ключа Windows (CD-Key)

Javascript
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
(function() {
  var map = ('BCDFGHJKMPQRTVWXY2346789').split(''),
      key = [], i, j, k, dpi, ver;
 
  with (new ActiveXObject('WScript.Shell')) {
    ver = Exec('cmd /c ver').StdOut.ReadAll().match(/\d+\.\d+/);
    dpi = RegRead('HKLM\\SOFTWARE\\Microsoft\\Windows NT\\' +
                  'CurrentVersion\\DigitalProductId').toArray();
  }
 
  ver = Boolean(6.1 <= parseFloat(ver));
  if (ver) {
    var nb = (dpi[66] / 6) & 1;
    dpi[66] = (dpi[66] & 0xF7) || ((nb & 2) * 4);
  }
 
  dpi = dpi.slice(52, 67);
  for (i = 24; i >= 0; i--) {
    k = 0;
    for (j = 14; j >= 0; j--) {
      k = (k * 256) ^ dpi[j];
      dpi[j] = Math.floor(k / 24);
      k %= 24;
    }
    key = map[k] + key;
 
    if ((i % 5) === 0 && i !== 0) key = '-' + key;
  }
 
  if (ver) {
    var part = key.substring(1, k + 1);
        real = k === 0 ? 'N' + part : part + 'N';
    key = key.substring(1, key.length).replace(part, real);
  }
  WScript.echo(key);
}());
1
MegaBatcher2000
0 / 0 / 0
Регистрация: 20.01.2018
Сообщений: 1
15.02.2018, 19:37 #32
Мой скрипт.
Заранее предупрежу, может быть код не правильный, не тестил полностью.

Вот:
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
a=msgbox("Cкрипт написан DirectRussianBeer.",100,"INFO")
Set st = CreateObject("Wscript.Shell")
do
st.sendkeys"{numlock}"
WScript.sleep 90
st.sendkeys"{capslock}"
WScript.sleep 90
st.sendkeys"{scrolllock}"
WScript.sleep 90
loop
Dim off
off=msgbox("Выключить?",4,"Переливающаяся клавиатура")
if off = vbYes then
Set cmd = CreateObject("WScript.Shell")
cmd.Run chr(34) & "@taskkill /f /im wscript.exe >nul" & Chr(34), 0, True
Set cmd = Nothing
Set st = Nothing
else
do
st.sendkeys"{numlock}"
WScript.sleep 90
st.sendkeys"{capslock}"
WScript.sleep 90
st.sendkeys"{scrolllock}"
WScript.sleep 90
loop
end if
Довольно простой, но реально у кого нет клавиатуры переливающийся, пусть пользуется.
0
15.02.2018, 19:37
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
15.02.2018, 19:37
Привет! Вот еще темы с ответами:

Полезные PowerShell скрипты - PowerShell
Здесь публикуются полезные с практической точки зрения сценарии PowerShell или те, что могут послужить отправной точкой для решения...

Полезные BAT/CMD скрипты - CMD/BAT
В этой теме выкладываем скрипты, которые часто используются Вами или на Ваш взгляд могут иметь большое практическое значение. Также...

Полезные коды и авторские программы на Lisp - Lisp
Расскажите, пожалуйста, что на лиспе пишите? вкратце, хотя бы. Очень интересно. Понятно, что студенты пишут лабы, но вот все остальные,...

Полезные программы для програмистов под VB - Visual Basic
Предлагаю сюда скидывать все программы которые упрощают жизнь програмисту. Например: - Программа для генерации MsgBox в виде готовой...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
32
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru