Posochov Advanced Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Народ, объясните бестолковому, что означают словечки типа "inho", "сабж" и т.п., и откуда они вообще взялись. Заодно, если нетрудно просветите по поводу остальных распространенных слэнгов, а то приходится все время интуицию напрягать. Но это же до поры до время.   P.S. Может быть есть смысл самостоятельную тему открыть типа: "Компьютерный слэнг" или "Слэнг программистов".     Добавлено: Поправляюсь, имелось в виду "imho", а не "inho". Всего записей: 1703 | Зарегистр. 30-04-2005 | Отправлено: 21:58 25-05-2005

Posochov Advanced Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору distance   Чем дальше в лес, тем больше дров.   [q][/q]   Мы всегда имеем то, что имеем, а оно не всегда подходит под какую-то версию. О чем это я. Anti-Haсker Касперского с службах не прописан, ни WMI Service, ни выпуклый глаз ничего там не узрели. При выгрузке диспетчером задач, говорит "Отказано в доступе".   Ну да разговор не о Касперском, а о корректной (очень умное слово) выгрузке приложения. Про Terminate() прямо сказано, что нужно пользоваться осторожно, поскольку он может не полностью выгрузить из памяти приложение (правда как об этом узнать). Дальше больше, появилась мысль попытаться выгрузить приложение через "Shell.Applicatiom", т.е. добраться как-то до контекстного меню в трее и сказать ему "Выход". И тут возник глобальный вопрос.   Где взять информацию об объектной модели подключаемого приложения, то бишь о его методах и свойствах, в частности о "Shell.Applicatiom" (может через какой нибудь запрос в WMI). В VBA там все просто, подключил соответствующую библиотеку, и через Object Browser все видно. А то читая книжки (к примеру Борна) удивляешься когда видишь например: "Выводим дилоговое окно Run - Shell.FileRun". Спрашивается где он это (.FileRun) нарыл.   Вообщем чем дальше в лес, тем больше дров. А может быть я не в тот лес пошел?   Добавлено: А где цитата, я нажимал "эту ссылку"   Всего записей: 1703 | Зарегистр. 30-04-2005 | Отправлено: 18:51 27-05-2005

Posochov Advanced Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору distance   Спасибо большое за ответы и извини за дотошность, а может быть занудство, и все же:   Вся электронная документация у меня есть, даже Microsoft Platform SDK for Windows XP SP2 с полным описанием WMI. Может быть я неправильно ею пользуюсь, но если не лень, подскажи пожайлуста поконкретней, как мне, к примеру, выйти на методы и свойства Shell.Application. Всего записей: 1703 | Зарегистр. 30-04-2005 | Отправлено: 01:58 29-05-2005

Posochov Advanced Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору distance   Вот теперь попал куда надо!   Запустил OLE-COM Object Viewer и на удивление довольно быстро все нашел. На первый взгляд ничего смертельного нет. Только все же не очень понятно, что ты имел в виду, когда первый раз отослал на Windows Script 5.6 Documantation.   И что можно почитать на тему языка описания интерфейсов (M)IDL и использования OLE-COM Object Viewer.   Еще раз спасибо за поддержку. Как то сразу светлее стало. Всего записей: 1703 | Зарегистр. 30-04-2005 | Отправлено: 06:32 29-05-2005

distance Advanced Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Posochov не разобрался, показалось что ты спрашиваешь о встроеном объекте WshShell   Цитата: И что можно почитать на тему языка описания интерфейсов (M)IDL Дональд Бокс "Сущность технологии COM" Эндрю Трельсен "Модель COM и применение ATL 3.0" и наверняка должно быть у Рождерсона (Основы COM) но эта книга у меня слишком далеко на полке лежит, лень идти проверять   Цитата: и использования OLE-COM Object Viewer. а какие сложности могут возникнуть с его использованием, хотя бы теоретически? наливай.. эта.. то есть запускай да юзай. Всего записей: 878 | Зарегистр. 28-03-2004 | Отправлено: 08:10 29-05-2005

oldhuman Junior Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору Victor_N   Если понадобится выгрузить приложение     Set oShell = CreateObject("WScript.Shell") On Error Resume Next   Sub t_message(name, res) Select Case res case 0 WScript.Echo name & " Successful completion." case 2 WScript.Echo name & " The user does not have access to the requested information." case 3 WScript.Echo name & " The user does not have sufficient privilge." case 8 WScript.Echo name & " Unknown failure." case 9 WScript.Echo name & " The path specified does not exist." case 21 WScript.Echo name & " The specified parameter is invalid." Case Else WScript.Echo name & " " & res & " Refer to Win32 error code documentation." End Select End Sub   '------------------- 'Kill VPTray.exe '------------------- For each Service in GetObject("winmgmts:{impersonationLevel=impersonate}!//localhost").ExecQuery("select * from Win32_Process where Name='VPTray.exe'") res = Service.Terminate() Call t_message("VPTray.exe", res) Next Всего записей: 99 | Зарегистр. 12-08-2002 | Отправлено: 10:21 08-06-2005 | Исправлено: oldhuman, 11:10 08-06-2005

pand Advanced Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Извините. Всего записей: 1529 | Зарегистр. 03-08-2004 | Отправлено: 17:43 08-06-2005

Sun_Francisco Newbie Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Решил я поучиться писать VBS. Написал код. Но даже сохранить его не могу. DrWeb говорит, что это у меня получился вирус модификация Trojan.MulDrop.24! Сохранил я его только в переименованном виде. Теперь не могу ни переименовать в VBS, ни запустить. Что делать? Мой VBS делает следующее. Ищет все TTF файлы в своей папке, делает их список и пишет в файл Fontinst.ini, затем запускает на выполнение Fontinst.exe (от MS), который устанавливает в систему все шрифты TTF перечисленные в Fontinst.ini. Вот мой код:   VBSName = "Fontinst.vbs" FontinstEXE = "Fontinst.ini" FontinstINI = "Fontinst.ini" FontEXT = "ttf" Dim arFonts(), arFiles()   Set ws = CreateObject("WScript.Shell") Set fso = CreateObject("Scripting.FileSystemObject")   sPath = ScriptPath   If Not fso.FileExists(sPath + FontinstEXE) Then MsgBox "Can't find" & vbCrLf & sPath & FontinstEXE, vbCritical, VBSName Else SelectFiles sPath, FontEXT, arFonts Set objTextStream = fso.CreateTextFile(FontinstINI) objTextStream.WriteLine "[fonts]" For Each font In arFonts objTextStream.WriteLine font Next objTextStream.Close ws.Run sPath & FontinstEXE End If   Set ws = Nothing Set fso = Nothing   Function ScriptPath ScriptPath = fso.GetParentFolderName(WScript.ScriptFullName) If Right(ScriptPath, 1) <> "\" Then ScriptPath = ScriptPath & "\" End Function   Sub SelectFiles(sPath, sEXT, arFiles) On Error Resume Next Set folder = fso.getfolder(sPath) Set files = folder.files For Each file In files If LCase(fso.getextensionname(file)) = LCase(sEXT) Then count = UBound(arFiles) + 1 Redim Preserve arFiles(count) arFiles(count) = fso.GetFileName(file) End If Next End Sub   Добавлено: Поправка. Вместо FontinstEXE = "Fontinst.ini"   должно быть FontinstEXE = "Fontinst.exe" Всего записей: 29 | Зарегистр. 03-10-2004 | Отправлено: 12:55 11-06-2005

megamozg13 Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору Общий привет.   Есть ли способ запускать WinAPI методы из WSH (vbs;js)? Или оччень как надо блокировать клаву и мышь на время выполнения скрипта? Всего записей: 313 | Зарегистр. 27-07-2004 | Отправлено: 08:29 15-07-2005

megamozg13 Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору PaRser79 Цитата: И есть ссылка на готовый ActiveX. Тнкс!!! ПОМОГЛО. Всего записей: 313 | Зарегистр. 27-07-2004 | Отправлено: 15:45 15-07-2005

KapralBel Platinum Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору Как узнать скорость Интернет соединения Всего записей: 11354 | Зарегистр. 16-02-2005 | Отправлено: 17:41 15-08-2005

RoloTomasi Advanced Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору [сорри ошибся] Всего записей: 1142 | Зарегистр. 18-05-2005 | Отправлено: 11:37 22-10-2005 | Исправлено: RoloTomasi, 11:40 22-10-2005

WhiteRabbit Junior Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Подскажите please как из VBS-скрипта установить права доступа к ветке реестра. Всего записей: 177 | Зарегистр. 18-08-2003 | Отправлено: 12:47 21-12-2005

Страницы: 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 Варезник Раздачи и акции Мобильный варезник Андеграунд Игры и фильмы   » Специальные Тестирование