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

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

   

gap5



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Нужно при логоне пользователя будет:
а) очищать корзину
б) сортировать иконки на рабочем столе
 
С пунктом а) пока затык. Кое-как получилось это сделать, но все равно спрашивает подтверждение.  
 
С пунктом б) есть следующий скрипт:
 
' Create explorer command file to toggle desktop window
Set oFSO = CreateObject("Scripting.FileSystemObject")
sSCFFile= oFSO.BuildPath(oFSO.GetSpecialFolder(2), oFSO.GetTempName &".scf")
With oFSO.CreateTextFile(sSCFFile, True)
.WriteLine("[Shell]")
.WriteLine("Command=2")
.WriteLine("[Taskbar]")
.WriteLine("Command=ToggleDesktop")
.Close
End With
 
' Toggle desktop and send F5 (refresh)
With CreateObject("WScript.Shell")
.Run """" & sSCFFile & """"
WScript.Sleep 50
.Sendkeys "{F5}+{F10}in"
WScript.Sleep 50
.Run """" & sSCFFile & """"
End With
 
' Delete explorer command file
oFSO.DeleteFile sSCFFile
' *** EOF ***
 
 
Но одна проблема - не работает под учетной записью юзера.
 
Есть идеи?

Всего записей: 1033 | Зарегистр. 30-05-2006 | Отправлено: 15:39 15-03-2007
Roma4799

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Господа! Подскажите скриптик VBS который добавляет в реестр, автозагрузку! В инете их много видел но не один не работает! Спасибо!!!

Всего записей: 2 | Зарегистр. 15-03-2007 | Отправлено: 22:27 15-03-2007
ViSiToR



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

Цитата:
скриптик VBS который добавляет в реестр, автозагрузку!

Если имеется в виду запись программы которая должна самозапускаться при старте Windows, то это очень просто:
 

Код:
Set WshShell = WScript.CreateObject("WScript.Shell")
 
WshShell.RegWrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\MyProgName", "MyProg.exe", "REG_SZ"

 


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

Всего записей: 3251 | Зарегистр. 01-04-2006 | Отправлено: 04:01 16-03-2007
Roma4799

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Большое спасибо, теперь получилось!

Всего записей: 2 | Зарегистр. 15-03-2007 | Отправлено: 15:10 18-03-2007
ViSiToR



Silver Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Интересно, возможно ли сохранить в файл изображение которое находится в буфере обмена?
 
Т.е к примеру нажимаю на клаве “Print Screen”, в буфер(?) попадает картинка, вот нужно каким то образом сохранить её в файл, это реально?
 
P.S
Запуск разных системных приложении типа MSpaint для выполнения задачи, не канает  

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

Всего записей: 3251 | Зарегистр. 01-04-2006 | Отправлено: 05:44 25-03-2007
MezzoForte

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

Цитата:
AndVGri

неее )) Это не подключение к событиям. В данном скрипте Вы просто перебираете ко-во документов. Т.е. цикл по изменению св-ва. А мне необходимо именно подключение к событию
Если усложнить задачу, то на Document_New данный скрипт уже не отработает.
 

Цитата:
jONES1979
а что разрешено? cscript ? если да, то какая разница между ними в контексте данного вопроса?  
 

Да, конечно - разрешен тока cscript. Разница в том, что я не могу(не знаю как) через cscript подключиться к событию. Если в wscripte это достаточно просто - то как это сделать на cscript?
 
 
 
 

Всего записей: 4 | Зарегистр. 15-03-2007 | Отправлено: 16:03 26-03-2007
AndVGri

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

Цитата:
Если в wscripte это достаточно просто  

Как это сделать вообще, пусть даже и в wscript? Просвятите, если не трудно

Всего записей: 750 | Зарегистр. 14-12-2005 | Отправлено: 17:47 26-03-2007
MezzoForte

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Set myobject = WScript.CreateObject("someobjectwithevents", "myobject_")
 
В этом случае, WSH создаст экземпляр объекта Someobjectwithevents, и любая функция, начинающаяся с myobject_ и заканчивающаяся именем события, будет вызвана при возбуждении события. В WSH это достигается внутренней обработкой события и вызовом функции, которая удовлетворяет соглашению об именах. В VBScript это обычно не имеет большого удивления, поскольку синтакис "автомагического" перехвата событий выглядит как ИмяОбъекта_ИмяСобытия.  
 
Взято с http://knowhow.virtech.ru/qa/42.2
 
Добавлено:
CreateObject
Синтаксис:  
 
CreateObject(<ProgID>,<Prefix>)  
 
Назначение:  
 
Создаёт программный объект автоматизации.  
 
Параметры:  
 
<ProgID> - строка, программный идентификатор объекта (ProgID).
<Prefix> - необязательный, строка. Префикс функций-обработчиков событий. Если объект предоставляет интерфейсы для связи с событиями, после создания объекта с указанием этого параметра в сценарии можно обрабатывать события, возникающие в этом объекте. Когда объект сообщает о возникновении события, сервер сценариев вызывает соответствующую функцию. Например, если был указан префикс "Evt_", а событие называется "OnBegin", будет вызвана функция "Evt_OnBegin", которая должна быть описана в сценарии.
 
 
Описание:  
 
При использовании "обычной" функции VBScript "CreateObject" организовать обработку событий нельзя.  
 
Пример:  
 
Set Network = WScript.CreateObject("WScript.Network")
MsgBox Network.ComputerName
 
Могу выслать полное описание wscript.
 

Всего записей: 4 | Зарегистр. 15-03-2007 | Отправлено: 13:11 27-03-2007
AndVGri

Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
MezzoForte
Спасибо. Я правда вечерком тв MSDN поискал как, но не работает
 
Option Explicit
Dim objWord, fExit
 
Set objWord = GetObject(, "Word.Application")
 
WScript.ConnectObject objWord, "myword_"
fExit = False
 
Do Until fExit
    WScript.Sleep 10
Loop
 
Sub myword_DocumentOpen(ByVal Doc)
    WScript.Echo Doc.Name
    fExit = True
End Sub
 
Хотя, приблизительно такая же конструкция в VBA Excel c WithEvents, отрабатывает без проблем. В чём тут у меня ошибка?

Всего записей: 750 | Зарегистр. 14-12-2005 | Отправлено: 14:26 27-03-2007
jONES1979



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

Всего записей: 324 | Зарегистр. 20-05-2005 | Отправлено: 14:59 27-03-2007 | Исправлено: jONES1979, 15:01 27-03-2007
MezzoForte

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
AndVGri
 
попробуй событие application quit )

Всего записей: 4 | Зарегистр. 15-03-2007 | Отправлено: 11:57 04-04-2007
minicoder

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
уважаимыи програмёры ... подскажити......
 
вот js скрипт .....
 
d = "C:\\1.txt";
fso = WScript.CreateObject("Scripting.FileSystemObject");
a = fso.OpenTextFile(d);
s = a.Read(20);
WScript.Echo (s);
 
 
вопрос....
можно ли подобное повторить с инет ссылкой например  
"http://www.имя_сайта.ru/text/2.txt"
 
и как чтоб скрипт перед открытием текста проверял наличие подключения к инэту .... если инэт не подрублён скрипт останавливаится  
ПОМОГИТИ ПЛИЗ ..... МОЖ КТО ЗНАИТ КАК ..... =)

Всего записей: 6 | Зарегистр. 07-04-2007 | Отправлено: 01:30 07-04-2007
AndVGri

Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
minicoder
А попробовать? У меня не вышло, кричит недопустимое имя файла. В справке по FileSystemObject дано "Provides access to a computer's file system"
По второму вопросу можно так (содрано с примеров vbsedit - редактора скриптов, очень полезная штука - скачайте). ping требуемого хоста

Код:
 
strSite = "www.ixbt.com"
 
Set objPing = GetObject("winmgmts:{impersonationLevel=impersonate}")._
    ExecQuery("select * from Win32_PingStatus where address = '" & strSite & "'")
For Each objStatus in objPing
    If IsNull(objStatus.StatusCode) or objStatus.StatusCode<>0 Then  
        'Если ping не прошёл
    Else
        'Если ping прошёл
    End If
Next
 

Да и, что у вас за смешанная запись кода? Вы или в VBScript или в Javascript пишите, не совместимо.

Всего записей: 750 | Зарегистр. 14-12-2005 | Отправлено: 05:02 07-04-2007
minicoder

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
AndVGri ////  тот кусочек кода который я написал ф своём посте .... был с учебника по js как там может быть vbs  нинаю =) .... но он работает у миня ....
..vbsedit поду у гугля поищу .... спасиб за совет....  
 
а Ваш пример у мну выдыёт ошибку "Библиотека не зарегистрирована" может старая версия WSH у меня 98 винда и не обновлял WSH?

Всего записей: 6 | Зарегистр. 07-04-2007 | Отправлено: 10:44 07-04-2007
StanislavG



Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
                Доброе время суток!
  Можно ли создать скрипт который бы проверял директорию, и если в ней находиться файл давал бы звуковой сигнал?

Всего записей: 34 | Зарегистр. 10-01-2007 | Отправлено: 13:27 12-04-2007
jONES1979



Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
StanislavG да, можно. что то вроде:
Set objWSH = CreateObject("WScript.Shell")
set objFSO = CreateObject("Scripting.FileSystemObject")
 
If objFSO.FileExists ( PATH + FILENAME ) Then
  objWSH.Run """" +MP3FILENAME +""""  
end if

Всего записей: 324 | Зарегистр. 20-05-2005 | Отправлено: 15:18 12-04-2007
StanislavG



Junior Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
jONES1979
 
А не мог бы ты описать что за что отвечает?
 
Добавлено:
И как запускать скрипт?

Всего записей: 34 | Зарегистр. 10-01-2007 | Отправлено: 15:53 12-04-2007
jONES1979



Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
StanislavG rtfm. всё скопировать в файлик с расширением vbs

Код:
 
Set objWSH = CreateObject("WScript.Shell")   ' создаем полезные объекты
set objFSO = CreateObject("Scripting.FileSystemObject")  
 
PATH = "c:\windowz\"       ' путь где проверяем файл
FILENAME = "crack.exe"    ' имя файла, чье существование нас интересует
MP3FILENAME = "c:\mp3\wheredoyougotoday.mp3" ' путь к песне, которую будем петь
 
If objFSO.FileExists ( PATH + FILENAME ) Then  
  objWSH.Run """" +MP3FILENAME +""""  
end if    ' тут проверяем наличие, и если оно наличествует, то говорим виндовсу стартовать песенку
 

Всего записей: 324 | Зарегистр. 20-05-2005 | Отправлено: 18:22 12-04-2007
alur2005



Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
А как написать скрипт ,что бы он делал следующее
 
Выдергивал серийный номер Windows XP SP2 , имя пользователя (login)
и сохранял все это в текстовый файл.
 
Очень  нужно ,развелось куча компов 150 штук(Windows лицензионный) ,а с серийниками немного запутались.
 
Скрипт бы облегчил жизнь с инвентаризацией серийных номеров  
 
                        Спасибо.

Всего записей: 824 | Зарегистр. 06-09-2005 | Отправлено: 13:36 16-04-2007 | Исправлено: alur2005, 19:37 19-12-2007
igor_andreev

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

Цитата:
Выдергивал серийный номер Windows XP SP2 , имя пользователя (login)  
и сохранял все это в текстовый файл.  

Отмотать этот топик на две страницы назад  и почитать. Там есть ссылка mozers на скрипт чтения серийника и от него же пример для текущего username.
 

Всего записей: 1704 | Зарегистр. 08-12-2004 | Отправлено: 14:13 16-04-2007
   

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