Программирование "удобняшек" на VBScript - [23] :: Прикладное программирование :: Компьютерный форум Ru.Board

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

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

DonkeyHottt

Junior Member

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

ViSiToR

Цитата:

Скрипт посылает один раз, видимо посылает именно когда главное окно активно.

Заменил в коде Wscript.Sleep(10) на Wscript.Sleep(300) и все заработало.

Теперь главное окно не закрывается, а только маленькое! Спасибо!
И за AutoIt тоже спасибо. Сейчас буду вникать в него.

Всего записей: 104 | Зарегистр. 26-12-2004 | Отправлено: 23:51 15-01-2008

chainick2006

Junior Member

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

ребята, а как представить целое число с предваряющими нулями?
Например, есть число 58, а мне нужно его представить как 00058. Пробовал юзать функцию formatNumber, но ничего не получилось.

Спасибо!

Всего записей: 75 | Зарегистр. 02-02-2006 | Отправлено: 13:28 28-01-2008

alroy

Junior Member

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

chainick2006
Непонял тебе потом с ним как с числом работать или на экран вывести ??? если на экран то
MsgBox "000058"

Добавлено:
FormatNumber(expr[, numDigitsAfterDecimal[, includeLeadDigit[, useParens[, groupDigits]]]])

Возвращает строку, отформатированную в числовом формате. Параметр expr задаёт значение для форматирования. Если необязательные параметры не заданы, значения берутся из региональных настроек. Параметр numDigitsAfterDecimal задаёт количество десятичных разрядов справа от точки. Параметр includeLeadDigit задаёт отображение лидирующих нулей для дробных значений (true или false). Параметр useParens задаёт отображение скобок для отрицательных значений (true или false). Параметр groupDigits задаёт группировку разрядов с использованием разделителя из региональных настроек (true или false).

Всего записей: 59 | Зарегистр. 15-06-2005 | Отправлено: 13:51 28-01-2008

chainick2006

Junior Member

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

alroy, я организовую порядковый номер элемента и вывожу его как текст. т.е. имею я 58, 59, 60 , а авывести мне нужно 000058, 000059, 000060.

Просто в нормальных языках есть функция printf (sprintf), а здесь я такого не нашел. Ведь не циклом же их мне генерировать ((((

спасибо.

Всего записей: 75 | Зарегистр. 02-02-2006 | Отправлено: 13:17 29-01-2008

AndVGri

Advanced Member

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

chainick2006
Зачем же циклом?

Код:

WScript.Echo NumberWithZero(6, 60)

Function NumberWithZero(AllZero, IntNumber)
Dim vCount, sPart
sPart = CStr(IntNumber)
vCount = Len(sPart)
If vCount < AllZero Then
NumberWithZero = String(AllZero - vCount, "0") & sPart
Else
NumberWithZero = sPart
End If
End Function

Всего записей: 750 | Зарегистр. 14-12-2005 | Отправлено: 04:25 30-01-2008

chainick2006 Junior Member	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору AndVGri, спасибо. З.Ы. Как то не очень красиво в VB получается программировать
	Всего записей: 75 \| Зарегистр. 02-02-2006 \| Отправлено: 12:25 30-01-2008

Smitis

Silver Member

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

chainick2006

Цитата:

Просто в нормальных языках есть функция printf (sprintf), а здесь я такого не нашел.

Цитата:

З.Ы. Как то не очень красиво в VB получается программировать

В "нормальных" языках есть библиотеки. И соответствующий объём таких языков большой. А без библиотек цикл всё равно пришлось бы писать. В небольших скриптовых языках библиотеки отсутствуют - плата за компактность. Вместо библиотек приходиться делать заготовки, подобные приведёным AndVGri и включать их при необходимости в код.

Всего записей: 3214 | Зарегистр. 09-02-2003 | Отправлено: 22:46 01-02-2008

weart

Newbie

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

Из разряда пригодится

1. Берем библиотеку XMD5.dll - регистрируем
2. А вот так это работает:

Код:

Dim MD_
Set objMD5 = CreateObject("XStandard.MD5")
MD_ = objMD5.GetCheckSumFromFile("c:\tmp\image.jpg")
MsgBox MD_

Всего записей: 2 | Зарегистр. 02-02-2008 | Отправлено: 20:04 03-02-2008

slech

Silver Member

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

всем привет. есть такой скриптик

objDay=Day(Date)
Set fso = CreateObject("Scripting.FileSystemObject")
fso.CopyFile "D:\BackUp\Server*" & objDay & ".rar", "\\192.168.0.1\BackUp\", TRUE

он копирует файлы у которых сегодняшнее число ?

Добавлено:
подскажите как в конце этого копирования добавить оповещение на email ?
спасибо.

Всего записей: 4893 | Зарегистр. 10-11-2004 | Отправлено: 10:26 05-02-2008

AndVGri

Advanced Member

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

slech
Нет он копирует файлы Server*5.rar. Если они создавались по какой-нибудь маске, где перед точкой расширения стоит день, то будут скопированы все файлы с началом имени Server и концом номером текущего дня (месяца и года нет, так что будут копирваться за все месяцы и годы имеющие такой же день)

Всего записей: 750 | Зарегистр. 14-12-2005 | Отправлено: 10:34 05-02-2008

slech Silver Member	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору AndVGri спасибо, про SMTP не подскажешь ?
	Всего записей: 4893 \| Зарегистр. 10-11-2004 \| Отправлено: 10:40 05-02-2008

alroy

Junior Member

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

пример использования Call SendPost(" ТУТ Сервер почтовый", " тут кому", "Тут от кого", "Тут тема ", "тело сообщения ")

Function SendPost(strSMTP_Server, strTo, strFrom, strSubject, strBody)
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = strSMTP_Server
Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10
Flds.Update
iMsg.Configuration = iConf
iMsg.To = strTo
iMsg.From = strFrom
iMsg.Subject = strSubject
iMsg.TextBody = strBody
iMsg.AddAttachment "ТУТ можно прикрепить файл каконибудь!! "
iMsg.Send
End Function

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

slech Silver Member	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору alroy спасибо. вот нашёл ещё с довольно подробным описанием
	Всего записей: 4893 \| Зарегистр. 10-11-2004 \| Отправлено: 09:53 06-02-2008

garniv

Advanced Member

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

AndVGri

Цитата:

Если они создавались по какой-нибудь маске, где перед точкой расширения стоит день, то будут скопированы все файлы с началом имени Server и концом номером текущего дня (месяца и года нет, так что будут копирваться за все месяцы и годы имеющие такой же день)

Не обязательно день

Цитата:

Будут скопированы все файлы с началом имени Server и

заканчивающиеся на число, просто совпадающее с текущим числом месяца.

Например такие:
Serverj5dsfhid7653sufy4ewfw6.rar
Serverk5j6dhvi6.rar
Servero86r7ew6uy546546454353596.rar
Server_6.rar

Всего записей: 1102 | Зарегистр. 23-12-2004 | Отправлено: 14:42 06-02-2008 | Исправлено: garniv, 14:45 06-02-2008

slech

Silver Member

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

ещё разок прошу помощи.
нужно высылать логи NTBackUp на почту. нашёл скриптик. пути, сервер поменял - не работает. к сожалению совсем мало понимаю в vbs помогите разобраться.

Email NTBackup log files

скриптик вроде должен отправлять файлы которые созданны сегодня.

спасибо.

Всего записей: 4893 | Зарегистр. 10-11-2004 | Отправлено: 17:27 06-02-2008 | Исправлено: slech, 17:29 06-02-2008

juvaforza BANNED	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору Братцы, через SendKeys можно русский текст передавать?
	Всего записей: 2895 \| Зарегистр. 26-11-2005 \| Отправлено: 22:37 06-02-2008

garniv

Advanced Member

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

juvaforza
Попробуй так:
set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "notepad"
WScript.Sleep 1000
WshShell.SendKeys "(^+)"
WScript.Sleep 1000
WshShell.SendKeys "Ghbdtn"

взято с http://www.aspnetmania.com/Forums/ForumMessage/223077.html

Всего записей: 1102 | Зарегистр. 23-12-2004 | Отправлено: 22:47 06-02-2008

juvaforza BANNED	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору garniv А как, например, букву ж набрать?
	Всего записей: 2895 \| Зарегистр. 26-11-2005 \| Отправлено: 23:55 06-02-2008

ViSiToR

Silver Member

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

garniv

Цитата:

Попробуй так:

Это не всегда сработает, не у всех раскладка меняется через Ctrl + Shift.

juvaforza

Цитата:

А как, например, букву ж набрать?

Код:

set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "notepad"
WScript.Sleep 1000
WshShell.SendKeys "(^+)" 'Это зависит от того, чем переключается раскладка клавиатуры
WScript.Sleep 100
WshShell.SendKeys ";"

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

Всего записей: 3251 | Зарегистр. 01-04-2006 | Отправлено: 03:40 07-02-2008

XXXXL

Member

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

Ребята, есть документ .set и там в нужных местах нужно записывать логин и пароль, а реально с помощью VBScript сделать короткий диалог. Окошко с надписью введите свой логин и пароль.

Всего записей: 286 | Зарегистр. 16-05-2007 | Отправлено: 16:10 09-02-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