Troitsky Водник Водкин Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору zoric Если очистить этот код от мишуры, то получается такой вот скрипт В процессе выполнения он создает на диске C:\ и запускает файл ntldr.exe, инфицированный Email-Worm.Win32.Scano.f. Загружаться этот файл будет, насколько понимаю, еще до загрузки системы. Ну и со всеми вытекающими   Добавлено: http://www.viruslist.com/ru/viruses/encyclopedia?virusid=118908 ---------- Мы в хорошем настроении гуляем по лесам. Кто обидеть нас захочет – сам получит по усам. Сам полу- получит по усам. Сам полу- получит по усам! Всего записей: 795 | Зарегистр. 13-12-2003 | Отправлено: 15:45 29-04-2006 | Исправлено: Troitsky, 15:49 29-04-2006

Troitsky Водник Водкин Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору zoric Цитата: То есть скрипт генерирует ntldr.exe и запускает его. Всю остальную работу (http://www.viruslist.com/ru/viruses/encyclopedia?virusid=118908) делает уже екзешник. Так? Да Цитата: А зачем мишура? Вероятнее всего, чтоб никто не догадался Цитата: Не разберусь с UBound. Код: Функция UBound Возвращает значение типа Long, содержащее максимальный доступный индекс указанной размерности массива.   Синтаксис   UBound(arrayname[,dimension])   Синтаксис функции UBound содержит следующие элементы:   arrayname    Обязательный.  Имя переменной массива, удовлетворяющее стандартным правилам именования переменных. dimension    Необязательный; Variant (Long).  Целое число, указывающее размерность, верхнюю границу которой возвращает функция.  Для первой размерности используется значение 1, для второй 2 и т.д.  Если аргумент dimension опущен, подразумевается значение 1.   Дополнительные сведения   Функция UBound вместе с функцией LBound используется для определения размеров массива.  Функция LBound применяется для выяснения нижнего предела размерности массива. UBound возвращает значения, перечисленные в приводимой ниже таблице, для массива со следующими размерностями:   Dim A(1 To 100, 0 To 3, -3 To 4)   Инструкция          Возвращаемое значение   UBound(A, 1)    100 UBound(A, 2)    3 UBound(A, 3)    4         ---------- Мы в хорошем настроении гуляем по лесам. Кто обидеть нас захочет – сам получит по усам. Сам полу- получит по усам. Сам полу- получит по усам! Всего записей: 795 | Зарегистр. 13-12-2003 | Отправлено: 22:53 01-05-2006

Troitsky Водник Водкин Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору zoric   1. Не совсем понятно откуда взят второй пример. Это реально полученный результат? Возвращаться должен именно максимальный индекс, в независимости от того каково значение минимального индекса. Приведенный пример тому подтверждение: Цитата: Dim A(1 To 100, 0 To 3, -3 To 4)     Инструкция          Возвращаемое значение     UBound(A, 1)    100   UBound(A, 2)    3   UBound(A, 3)    4   2. Справка к пятой версии VB. ---------- Мы в хорошем настроении гуляем по лесам. Кто обидеть нас захочет – сам получит по усам. Сам полу- получит по усам. Сам полу- получит по усам! Всего записей: 795 | Зарегистр. 13-12-2003 | Отправлено: 20:19 02-05-2006

Troitsky Водник Водкин Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору zoric По поводу руского хелпа к VB5: насколько себе представляю, это частичный перевод MSDN'а. Откуда его качал не помню. Цитата: Как на VBScript поместить в Буфер Обмена текст? http://forum.ru-board.com/topic.cgi?forum=33&topic=5123 ---------- Мы в хорошем настроении гуляем по лесам. Кто обидеть нас захочет – сам получит по усам. Сам полу- получит по усам. Сам полу- получит по усам! Всего записей: 795 | Зарегистр. 13-12-2003 | Отправлено: 18:39 04-05-2006 | Исправлено: Troitsky, 18:44 04-05-2006

EZH Advanced Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору Yuan Попробуй заменить длинные части пути с пробелами на их 8.3 аналоги (как в DOS). Т.е. вместо "RivaTuner v2.0 RC 15.6" чтобы было что-то типа "RivaTu~1". Всего записей: 1738 | Зарегистр. 02-09-2004 | Отправлено: 19:20 09-05-2006

yurinb Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору А как узнать и записать в  переменную скрипта кол-во свободных байт на диске? Всего записей: 341 | Зарегистр. 06-05-2002 | Отправлено: 22:13 16-05-2006

jONES1979 Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору Цитата: А как узнать и записать в  переменную скрипта кол-во свободных байт на диске?   The following example demonstrates how to use the Drive object in VBScript:     Sub ShowDriveInfo(drvPath)   Dim fso, drv, s   Set fso = CreateObject("Scripting.FileSystemObject")   Set drv = fso.GetDrive(fso.GetDriveName(drvPath))   s = "Drive " & UCase(drvPath) & " - "   s = s & drv.VolumeName & "<br>"   s = s & "Total Space: " & FormatNumber(drv.TotalSize / 1024, 0)   s = s & " Kb" & "<br>"   s = s & "Free Space: " & FormatNumber(drv.FreeSpace / 1024, 0)   s = s & " Kb" & "<br>"   Response.Write s End Sub       Добавлено: Reznikoff   Цитата: Вопрос номер третий.   Создал папку. Как задать ей права на доступ?   Имеется актив директори, вин2000 сервер.     У майкрософт есть Adsi SDK. Там есть екзамплы. Проще найти там, чем выкладывать здесь - уж больно много констант описано и прочих служебных данных Всего записей: 324 | Зарегистр. 20-05-2005 | Отправлено: 21:24 30-05-2006

Crash2002 Junior Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Вот ведь я озаботился Короче нужно неким макаром заставить VBS вывести сообщение в systray во всплывающей подсказке (baloon или notify, какая там у MS сейчас терминология?) Понятно, что встроенных функций нет, нужна, как я понимаю, утилитка командной строки, которую можно вызвать из скрипта. Может кто встречал? Всего записей: 87 | Зарегистр. 10-01-2003 | Отправлено: 12:39 18-07-2006

Crash2002 Junior Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору zoric А там есть что-то похожее? Не смотрел Всего записей: 87 | Зарегистр. 10-01-2003 | Отправлено: 13:31 18-07-2006

zoric Junior Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Скрепки и колобки Всего записей: 159 | Зарегистр. 29-07-2005 | Отправлено: 15:14 18-07-2006

ViSiToR Silver Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору Доброго времени суток уважаемые программисты специалисты!   Есть такой вопрос - Как можно имитировать нажатие двух клавиш (Ctrl Shift), и желательно, чтобы они были беспрерывно зажатыми до тех пор, пока в сстеме запущенный определённый процесс (т.е когда процесс закроется, то клавиши не должный быть зажатыми). А вообще было бы идеально, если бы они оставались быть зажатыми в границах определённого активного окна (т.е когда это определённое окно не активно, то клавиши как бы будут отжиматься, а скрипт как бы будет уходить во временную спячку, и 'просыпаться' в момент активности того самого определённого окна).   У меня есть скрипт, который имитирует нажатие одной клавиши: Код: DIM Wsh Set Wsh = WScript.CreateObject("WScript.Shell") Wsh.SendKeys "{Тут клавиша}" 'quit Set Wsh = nothing WScript.Quit И если мой вопрос выше, исходит из сферы фантастики   , то хотябы как сделать чтобы этот скрипт (в коде), имитировал нажатие двух клавиш на клавиатуре? (одновременно)   Благодарю за внимание! ---------- ViSiToR a.k.a CreatoR CreatoR это не ник, CreatoR это стиль жизни! Всего записей: 3251 | Зарегистр. 01-04-2006 | Отправлено: 18:26 18-07-2006

Страницы: 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 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Программирование "удобняшек" на VBScript

ShIvADeSt (12-07-2011 15:12): http://forum.ru-board.com/topic.cgi?forum=33&topic=11963#1

Переход по форумам  Закладки   » Компьютеры Цифровое изображение Программы Microsoft Windows UNIX Другие OS Hardware В помощь сисадмину Прикладное программирование Игры Форумные игры   » Интернет Web-программирование В помощь вебмастеру Графика Хостинг Зацените-ка!   » Тематические Ikonboard v.2 Ikonboard v.3 Invision Board Другие форумы PHP-Nuke и другие порталы Мобила   » Общие Спорт Флейм Темы по региональным встречам Музыка и Кино Юмор Литература и Живопись   » Ru.Board Новости Помощь по форуму   » Андеграунд eBookz Варезник Раздачи и акции Мобильный варезник Андеграунд Игры и фильмы   » Специальные Тестирование