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

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в 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

   

ViSiToR



Silver Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Cyril Konst 09:42 07-06-2008
Цитата:
Можно ли в самом "Select..." задать ограничение на выбор только одной записи?

Вместо «*» прописать нужное имя события (или что там обрабатывается ) не пробовали?

----------
ViSiToR a.k.a CreatoR
CreatoR это не ник, CreatoR это стиль жизни!

Всего записей: 3251 | Зарегистр. 01-04-2006 | Отправлено: 11:01 07-06-2008
Cyril Konst



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
ViSiToR
В select поля прописываются!
А Нужно выбрать последнее(первое) СОБЫТИЕ (с заданными характеристиками).
Событий много.

Всего записей: 634 | Зарегистр. 12-08-2003 | Отправлено: 11:24 07-06-2008 | Исправлено: Cyril Konst, 11:31 07-06-2008
JKLSJDLGK

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Подскажите пожалуйста,есть скрипт который создает папку по системной дате,   MD D:\папка\%date:~3%\  ,на виндовс 2000 работает нормально,а на 2003-м создает только месяц и год,как исправить???

Всего записей: 1 | Зарегистр. 10-06-2008 | Отправлено: 11:40 10-06-2008
VV189



Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Возможно ли реализовать на VBS такую вещь - есть веб страница,  отобразить из котрой нужно только несколько блоков, я думаю, сделать можно по принципу - скачать в файл-> вырезать по шаблону тегов например все лишнее-> открыть   ?
 
Варианты с написанием фильтра для прксимитрона не подходят по причине оформления всего этого в отдельное небольшое приложение, типа минибраузера открывающего только одну страницу.
 
Какие мысли?

Всего записей: 500 | Зарегистр. 10-09-2006 | Отправлено: 09:36 11-06-2008
mozers



Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
JKLSJDLGK
То, что приведено - строчка из пакетника. Вопросы по ним - тут.
На VBS все решается с помощью функции Date (примеры есть в любом справочнике).
 
VV189
Все абсолютно правильно излагаешь. По такому принципу было когда то наделано бешенное количество панелей.

Цитата:
оформления всего этого в отдельное небольшое приложение, типа минибраузера открывающего только одну страницу
Ну так дай файлу расширение не html, а hta и все
Подробности о HTML приложениях (HTA) можно прочитать тут.

Всего записей: 2187 | Зарегистр. 03-01-2002 | Отправлено: 12:50 11-06-2008 | Исправлено: mozers, 12:52 11-06-2008
VV189



Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
За  hta спасиб, полезная весчь )
А вот по части основного вопроса я не доехал что-то ( панели смотрел, но реализацию какую хотел сделать - там не особо понял )...
На конкретном примере можно в двух словах?  

Всего записей: 500 | Зарегистр. 10-09-2006 | Отправлено: 19:49 11-06-2008
mozers



Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
VV189
Цитата:
А вот по части основного вопроса  
А в чем вопрос?
Ты же сам все ответил (сохранить страницу, вырезать лишнее). Собственно - все! Переименуй в hta и пользуйся в свое удовольствие. Чего еще объяснять то???
Если страница использует скрипт и по нему имеются конкретные вопросы - то вопрос в тему. Остальное - оффтоп.

Всего записей: 2187 | Зарегистр. 03-01-2002 | Отправлено: 00:20 12-06-2008
AlessTO

Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Привет.
Можно ли при помощи vbs поменять дату создания папки? Если есть решение пните, плиз, в нужном направлении.

Всего записей: 253 | Зарегистр. 09-12-2006 | Отправлено: 02:45 12-06-2008
mozers



Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
AlessTO
При помощи скрипта, увы, нельзя
Для изменения дат (создания/изменения/доступа) файла существует достаточно много утилит. (я как то пользовал setdate). С датой каталогов - сложнее (утилит меньше и все - платные). Вот, например, такая.
 
Добавлено:
Вот тут igor_andreev меня поправил (я отвечал на такой же вопрос, прозвучавший в другом топике) и дал ссылку на пару бесплатных утилит

Всего записей: 2187 | Зарегистр. 03-01-2002 | Отправлено: 15:14 12-06-2008 | Исправлено: mozers, 19:25 12-06-2008
VV189



Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Проблема-то вот в чём - часть скрипта для сохранения страницы написана и работает, но в оффлайне она отображается совсем по другому, даже если через браузер сохранять (т.е. со скриптом все в порядке), а в mht скриптом я сохранять её не умею, но только так она отображается корректно...
И вторая проблема по "вырезать все лишнее", не знаю как оформить скрипт, может поделишься ссылочками на статьи по этому делу, или пример скрипта приведи плиз.

Всего записей: 500 | Зарегистр. 10-09-2006 | Отправлено: 16:15 13-06-2008
axit



Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Люди, поможите плиз.
Нужно перенести код батника в VBS
Сам, к сожалению не пишу на VBS
Вот сам код
 
\\server\everest\everest.exe  /R \\server\everest\reports\$hostname_$DATE_$IPADDR   /INI /HW  /silent /safe

Всего записей: 215 | Зарегистр. 27-04-2005 | Отправлено: 11:23 19-06-2008
SergBSI

Full Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
дайте ссылку на работу из VBS с SQL Server плз

Всего записей: 516 | Зарегистр. 09-12-2003 | Отправлено: 23:02 25-06-2008 | Исправлено: SergBSI, 23:03 25-06-2008
ChevovekM

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Добрый день. Если не сложно помогите с вопросом скрипт позволяет удалять cokkies перед запуском IE удаляет везде кроме Temporary Internet Files собственно сам скрипт
 
On Error Resume Next
Dim WshShell,theIE
set FSO=CreateObject("Scripting.FileSystemObject")
FSO.DeleteFile "C:\Documents and Settings\Admin\Cookies\*.txt"
FSO.DeleteFile "C:\Documents and Settings\LocalService\Cookies\*.txt"
FSO.DeleteFile "C:\Documents and Settings\Admin\Local Settings\Temporary Internet Files\*.txt"
Set WshShell = WScript.CreateObject("WScript.Shell")
Set theIE = WshShell.Exec("C:\Program Files\Internet Explorer\IEXPLORE.EXE")
 
Почему не удаляет в Temporary Internet Files как исправить помогите пожалуйста

Всего записей: 3 | Зарегистр. 26-06-2008 | Отправлено: 09:25 26-06-2008
alroy

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
ChevovekM
Интересно ка ты собираешься удалять файлы в куче папок вот этой командой ???
FSO.DeleteFile "C:\Documents and Settings\Admin\Local Settings\Temporary Internet Files\*.txt"  
ведь по этому пути нетолько файлы но и папк у!!???
самое красивое решение  это написать функцию рекурсивную в которой указать что надо удалять и не забыть прот то что там попадаются файлы с доступом  только на чтение ну и удаление папок также  
 
пример
 
Скрипт удаляет все файлы и папки из указанного каталога. Каталог для очистки передается как параметр командной строки.
ClearFolder.vbs
 
[Option Explicit
 
Dim objFSO
Dim objArgs
 
Dim intErrCode
 
Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
Set objArgs = WScript.Arguments
 
If objArgs.Count <> 1 Then
    WScript.Echo "Need argument [Folder]:" & vbCrLf _
        & "ClearFolder.vbs <Path to folder>"
     
    intErrCode = 1
Else
    If Not objFSO.FolderExists(objArgs(0)) Then
        WScript.Echo "Argument [" & objArgs(0) & "] is not a folder." & vbCrLf _
        & vbCrLf _
        & "Need argument [Folder]:" & vbCrLf _
        & "ClearFolder.vbs <Path to folder>"
         
        intErrCode = 2
    Else
        objFSO.DeleteFolder objFSO.BuildPath(objArgs(0), "*.*"), True
        objFSO.DeleteFile objFSO.BuildPath(objArgs(0), "*.*"), True
         
        intErrCode = 0
    End If
End If
 
Set objArgs = Nothing
Set objFSO = Nothing
 
WScript.Quit intErrCode]

Всего записей: 59 | Зарегистр. 15-06-2005 | Отправлено: 15:09 07-07-2008
Bugavka

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Такая задача. При создании пользователя вывести окно с выбором групп в домене, и после выбора включить в эту группу пользователя. проблема в выводе сего окна

Всего записей: 21 | Зарегистр. 15-05-2008 | Отправлено: 11:02 08-07-2008
ChevovekM

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
alroy спасибо за совет буду пробовать потом отпишусь
 
 
Добавлено:
alroy Метод действительно работает но к великому сожалению только не для "Temporary Internet Files" в этой папке он так и не удаляет пробовал использовать так же короткие имена вида DOCUME~1

Всего записей: 3 | Зарегистр. 26-06-2008 | Отправлено: 13:26 08-07-2008
XXXXL



Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Здравствуйте!!!
есть такой скриптик:

Цитата:
    ' Окна ввода данных  
Login_Input = InputBox("Введите логин:", "Внимание!", "")  
Password_Input = InputBox("Введите пароль:", "Внимание!", "")  
    ' Читаем нужный файл  
Set fso = CreateObject("Scripting.FileSystemObject")  
  Set f = fso.OpenTextFile("777.txt", 1)  
  setFile = f.ReadAll  
f.Close  
    ' Включаем регулярные выражения  
Set regEx = New RegExp  
  regEx.Global = True  
  regEx.IgnoreCase = True  
    ' Маски для замены  
str="" & chr(34)& "[\D\d]*?" & chr(34) & ":" & chr(34)& "[\D\d]*?"  & chr(34)  
str2="" & chr(34)& Login_Input & chr(34) & ":" & chr(34)&  Password_Input & chr(34)  
    ' Меняем значения логина и пароля  
setFile = ReplaceText (setFile, str, str2)  
    ' Записываем в файл  
Set f = fso.OpenTextFile("777.txt", 2)  
 f.Write setFile  
f.Close  
    ' Очищаем  
Set f = Nothing  
Set fso = Nothing  
Set regEx = Nothing  
    ' Функция замены  
Function ReplaceText(txt, patrn, replStr)  
  regEx.Pattern = patrn  
  ReplaceText = regEx.Replace(txt, replStr)  
End Function

 
в 777.txt долхно быть прописано:

Цитата:
 "" : ""
что бы получилось:

Цитата:
 "логин" : "пароль"

 
нужно убрать кавычки чтобы работало без них и что бы 777.txt создавал сам скрипт.  
Спасибо за помошь!!!

Всего записей: 286 | Зарегистр. 16-05-2007 | Отправлено: 21:45 08-07-2008
ViSiToR



Silver Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
XXXXL 21:45 08-07-2008
Цитата:
нужно убрать кавычки чтобы работало без них и что бы 777.txt создавал сам скрипт

Я если честно немного не понял задачи. Нужно чтобы скрипт создал файл 777.txt и записал в него «Логин : Пароль», и всё?
 
Примерно так:
 

Код:
   ' Окна ввода данных
Login_Input = InputBox("Введите логин:", "Внимание!", "")
Password_Input = InputBox("Введите пароль:", "Внимание!", "")
 
    ' Записываем в файл
Set fso = CreateObject("Scripting.FileSystemObject")
 
Set f = fso.OpenTextFile("777.txt", 2, True)
f.Write Login_Input & " : " & Password_Input
f.Close


----------
ViSiToR a.k.a CreatoR
CreatoR это не ник, CreatoR это стиль жизни!

Всего записей: 3251 | Зарегистр. 01-04-2006 | Отправлено: 22:55 08-07-2008
XXXXL



Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
ViSiToR, ты всё правильно понял!
Это то, что нужно.
 
Огромнейшее спасибо!

Всего записей: 286 | Зарегистр. 16-05-2007 | Отправлено: 20:11 09-07-2008
alroy

Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
ChevovekM
как я тебе писал это был пример а неготовое решение он может не работать в твоем случае когда в папках есть файлы с доступом только на чтение !!!!!!!! тебе надо решить что ты с ними будеш делать и после этого писать код например ты решил что эти файлы надо пропускать и не удалять это один вариант кода или наоборот тебе их тоже надо удалять то это уже другой кода решай дерзай думай!

Всего записей: 59 | Зарегистр. 15-06-2005 | Отправлено: 11:57 10-07-2008
   

Страницы: 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