Перейти из форума на сайт.

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в on-line?
Вход Забыли пароль? Первый раз на этом сайте? Регистрация
Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Закладки » Программирование "удобняшек" на VBScript

Модерирует : ShIvADeSt

ShIvADeSt (12-07-2011 15:12): http://forum.ru-board.com/topic.cgi?forum=33&topic=11963#1  Версия для печати • ПодписатьсяДобавить в закладки
Страницы: 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

   

Posochov



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

Всего записей: 1703 | Зарегистр. 30-04-2005 | Отправлено: 21:58 25-05-2005
Lomster

Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Posochov
 

Цитата:
Народ, объясните бестолковому, что означают словечки типа "inho", "сабж" и т.п., и откуда они вообще взялись.  
Заодно, если нетрудно просветите по поводу остальных распространенных слэнгов, а то приходится все время интуицию напрягать. Но это же до поры до время.

Эт тебе сюда: Глупые вопросы...
Там обсуждался этот вопрос.
 

Цитата:
Может быть есть смысл самостоятельную тему открыть типа:  
"Компьютерный слэнг" или "Слэнг программистов".

Уже есть куча подобных тем. Используй фильтры в темах, и поиск: П О И С К П О Ф О Р У М У.

----------
Сделайте себе анонимно: TOR - распределенная система анонимного серфинга.

Всего записей: 1529 | Зарегистр. 10-05-2002 | Отправлено: 00:14 26-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
distance

Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Posochov

Цитата:
Где взять информацию об объектной модели подключаемого приложения, то бишь о его методах и свойствах, в частности о "Shell.Applicatiom" (может через какой нибудь запрос в WMI). В VBA там все просто, подключил соответствующую библиотеку, и через Object Browser все видно. А то читая книжки (к примеру Борна) удивляешься когда видишь например:  
"Выводим дилоговое окно Run - Shell.FileRun". Спрашивается где он это (.FileRun) нарыл.

Windows Script 5.6 Documentation

Всего записей: 878 | Зарегистр. 28-03-2004 | Отправлено: 19:25 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
distance

Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Posochov
ты определись, о чем ты хочешь узнать.
ProgId "Shell.Application" - не имеет отношения к WSH. Это внешний ActiveX-объект.
Если более конкретно - из набора системных интерфейсов в shell32.dll
Узнать это можно из HKCR\CLSID. А чтобы посмотреть спиок метоов и пропертей я пользуюсь утилитой oleview, правда если не знаком с языком описания интерфейсов
(M)IDL, то будет туго. Тогда MS Access, References, View From (более точно не скажу, ибо мне и oleview хватает)

Всего записей: 878 | Зарегистр. 28-03-2004 | Отправлено: 03:15 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
Victor_N

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Как можно остановить/запустить сервис
Например
 
Set SWBemlocator = CreateObject("WbemScripting.SWbemLocator")
Set objWMIService = SWBemlocator.ConnectServer(strComputer,"\root\CIMV2",UserName,Password)
Set colItems = objWMIService.ExecQuery("Select * from Win32_Service",,48)
For Each objItem in colItems
If objItem.Name="RemoteAccess" Then  
'что здесь вставить
End If  
Next
 
а то вставлять в скрипт "net start/stop ..." как-то не кузяво.

Всего записей: 7 | Зарегистр. 16-05-2005 | Отправлено: 01:09 30-05-2005
balduran

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Victor_N
objItem.StopService()
 
Известные мне ссылки на документацию:
Примеры .vbs скриптов
работа с Logon-скриптами
Примеры скриптов по использованию WMI:Scriptomatic
 
 

Всего записей: 25 | Зарегистр. 11-12-2002 | Отправлено: 03:43 31-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

Всего записей: 97 | Зарегистр. 12-08-2002 | Отправлено: 10:21 08-06-2005 | Исправлено: oldhuman, 11:10 08-06-2005
Fantomas007

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Можно из VBS сделать диск С общим в локалке или наоборот отключить общий доступ к нему?

Всего записей: 2 | Зарегистр. 26-07-2004 | Отправлено: 17:18 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
PaRser79

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Аналогичный вопрос и есть ответ:
"VBS не позволяет использовать API.
 
Если очень нужно - можно на VB нарисовать ActiveX dll, в которой описать необходимые ф-ции, и ее использовать в VBS."
 
И есть ссылка на готовый ActiveX.

Всего записей: 15 | Зарегистр. 15-04-2005 | Отправлено: 11:19 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
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
[сорри ошибся]

Всего записей: 1135 | Зарегистр. 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


Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.B0ard
© Ru.B0ard 2000-2024

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru