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

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

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

 Версия для печати • ПодписатьсяДобавить в закладки
Страницы: 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

Открыть новую тему     Написать ответ в эту тему

ShIvADeSt



Moderator
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Вопросы, задачи и их решения по VBScript.

 
Мануал (english, 600 Кб). | Зеркало
MS Scripting 5.6 (700 КБ), включает последнюю версию VBS. Владельцам XP/2000(?) должен быть не нужен. | Зеркало
Немного на wikiпедии.
Предыдущие части: 1
 
Смежные темы:
Сценарии Windows
Командная строка, батники\сценарии (bat, cmd)
Скрипты KiXtart

Всего записей: 3956 | Зарегистр. 29-07-2003 | Отправлено: 04:12 12-07-2011 | Исправлено: Smitis, 23:28 26-02-2018
vlary



Platinum Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Alukardd
Для интереса проверил, у меня все работает без проблем
Отправлял с Висты на КоммуниГейт.
Вот сам скрипт:
Подробнее...
А это дебаг с лога КоммуниГейта:  
Подробнее...

----------
Заслуженный SCOтовод, почетный SUNтехник и любитель Кошек

Всего записей: 17280 | Зарегистр. 13-06-2007 | Отправлено: 15:17 19-10-2012
Alukardd



Gold Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
vlary
Во, вижу сходство с gmail... А можно пробу через 25порт, а не 465?
 
Я, кстати, без дебага перед уходом с работы проверил через свой домашний сервер (там в отличии от работы стоит exim), тоже не сработала авторизация и как следствие Relay not permitted.
TLS хоть и есть возможность и там и там использовать но в силу самоподписности всех почтовых сертификатов (и дома и на работе) всё гонял так в plain по 25порту.

----------
Microsoft gives you windows, linuх gives you the whole house...
I've been using Vim for about 4 years now, mostly because I can't figure out how to exit it.

Всего записей: 6563 | Зарегистр. 28-08-2008 | Отправлено: 19:09 19-10-2012
vlary



Platinum Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Alukardd  
Цитата:
А можно пробу через 25 порт, а не 465?
Я подозреваю, что они могли сделать авторизацию исключительно через секурный порт, дабы пароль не ходил открытым текстом. Но проверить раньше понедельника все равно не смогу.


----------
Заслуженный SCOтовод, почетный SUNтехник и любитель Кошек

Всего записей: 17280 | Зарегистр. 13-06-2007 | Отправлено: 23:01 19-10-2012
Alukardd



Gold Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
vlary
Ну на 25 есть STARTTLS, типа всё сукьёрно... Но предположение очень интересное.
А мне раньше понедельника и не надо. Тяпницу я пивом отметил, так что до понедельника о работе не думаем)
 
p.s. Надеюсь что к понедельнику не забудете) Если что я попробую в пон в личку написать.

----------
Microsoft gives you windows, linuх gives you the whole house...
I've been using Vim for about 4 years now, mostly because I can't figure out how to exit it.

Всего записей: 6563 | Зарегистр. 28-08-2008 | Отправлено: 23:42 19-10-2012
vlary



Platinum Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Alukardd
Цитата:
Надеюсь что к понедельнику не забудете)
 Оказывается, я забыл выключить рабочий комп
Поэтому смог проверить прямо сейчас.
Все без проблем отработало и в этот раз.
Поставил 25 порт и вообще убрал ssl

Код:
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = _
False

Вот новый лог с дебагом: Подробнее...

----------
Заслуженный SCOтовод, почетный SUNтехник и любитель Кошек

Всего записей: 17280 | Зарегистр. 13-06-2007 | Отправлено: 00:32 20-10-2012 | Исправлено: vlary, 10:47 20-10-2012
Alukardd



Gold Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
vlary
Ай, у меня дома через 25порт ни чего не послать))) Только принимать... Устроил порочный круг.

Цитата:
auth_advertise_hosts = ${if eq{$tls_cipher}{}{}{*}}
 
.ifndef MAIN_TLS_ADVERTISE_HOSTS
MAIN_TLS_ADVERTISE_HOSTS = ${if eq {$interface_port}{465}{*}{}}
.endif
tls_advertise_hosts = MAIN_TLS_ADVERTISE_HOSTS
без tls'а нельзя авторизовываться, а tls разрешён только на 465 порту)
Ну и еще exim не разрешает plaintext аутентификацию без tls — server_advertise_condition = ${if eq{$tls_cipher}{}{}{*}}, закоментить придётся.
 
Когда в понедельник вернусь к тестам, сниму ограничения...

----------
Microsoft gives you windows, linuх gives you the whole house...
I've been using Vim for about 4 years now, mostly because I can't figure out how to exit it.

Всего записей: 6563 | Зарегистр. 28-08-2008 | Отправлено: 11:14 20-10-2012 | Исправлено: Alukardd, 11:30 20-10-2012
Alukardd



Gold Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Собственно вот кусок сессии скрипта с моим почтовым сервером, результат такой же как и в случае с корпоративным почтовым сервером. Результат отсутствия авторизации очевиден: 7706 SMTP>> 550 relay not permitted.
 
В чём может быть проблема я хз...

----------
Microsoft gives you windows, linuх gives you the whole house...
I've been using Vim for about 4 years now, mostly because I can't figure out how to exit it.

Всего записей: 6563 | Зарегистр. 28-08-2008 | Отправлено: 12:46 22-10-2012 | Исправлено: Alukardd, 13:01 22-10-2012
NitroPT

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Всем привет! Нужна помощь.
Есть такой, скажем шаблон:
 

Код:
 Set colProcesses = objWMIService.ExecQuery("Select * from Win32_Process Where Name = '1cv7.exe'")
 
For Each objProcess in colProcesses
    sngProcessTime = (CSng(objProcess.KernelModeTime) + _
            CSng(objProcess.UserModeTime)) / 10000000
    Wscript.Echo objProcess.name & VbTab & sngProcessTime
Next  

 
Он отдает время в режиме ядра + в режиме пользователя. Мне нужно получить текущую загрузку процессора этим процессом (как в диспетчере задач). Когда в диспетчере показывает 0, данный "код" > 0, в зависимости от того, на сколько упорно до этого работала программа.
Цель данного куска кода, не грохать работающий процесс, тоесть дождяться завершения выполнения неких действий в программе и после того, как загрузка стала 0, грохнуть процесс. Теперь более конкретно: по вечерам оставляют на ночь 1с с запущенной процедурой восстановления последовательноти, соответственно архиватор не может получить доступ к файлам и архив получается не полный. Так как нужно и то и то, хотелось бы дождаться загрузки процессора 0 и........ Да собственно не исключено, что это может понадобиться и в каких либо других случаях. Не зависимо от результата, всем заранее спасибо.

Всего записей: 4 | Зарегистр. 15-12-2005 | Отправлено: 14:09 22-10-2012 | Исправлено: NitroPT, 14:17 22-10-2012
Black_Lung



Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
NitroPT
 
Загрузка процесора скорее всего не будет ровно 0, нужно подбирать значение опытным путём, и проверять на него раза 3-4 с маленькой задержкой.

Всего записей: 275 | Зарегистр. 09-10-2008 | Отправлено: 16:51 22-10-2012
Alukardd



Gold Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
vlary
Ой, блин, с LOGIN методом он начал попытки пройти аутентификацию. Пускай неуспешно, но идёт!!! Остатки щас докапаю.

----------
Microsoft gives you windows, linuх gives you the whole house...
I've been using Vim for about 4 years now, mostly because I can't figure out how to exit it.

Всего записей: 6563 | Зарегистр. 28-08-2008 | Отправлено: 17:06 22-10-2012
NitroPT

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

Цитата:
Загрузка процесора скорее всего не будет ровно 0, нужно подбирать значение опытным путём, и проверять на него раза 3-4 с маленькой задержкой.
 
Там в том то и засада, во время загрузки программа отъела процессорное время, далее она просто "стоит" ничего не делая, в диспетчере задач загрузка процессора 0, а этот скрипт  

Код:
 Set colProcesses = objWMIService.ExecQuery("Select * from Win32_Process Where Name = '1cv7.exe'")
 
For Each objProcess in colProcesses
    sngProcessTime = (CSng(objProcess.KernelModeTime) + _
            CSng(objProcess.UserModeTime)) / 10000000
    Wscript.Echo objProcess.name & VbTab & sngProcessTime
Next  

всеравно возвращает положительную цифру, которая в общем то не меняется сколько раз его не запускай. Нагружаем программу какой либо задачей, процессорное время соответственно увеличивается, и скрипт начинает показывать большую цифирю и соответственно она, сколько бы не запускал дальше этот скрипт так же не меняется.........
 
Возможно поставленная задача решается каким либо другим способом?

Всего записей: 4 | Зарегистр. 15-12-2005 | Отправлено: 11:35 23-10-2012 | Исправлено: NitroPT, 11:46 23-10-2012
TePP0PucT

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

Всего записей: 7 | Зарегистр. 26-10-2012 | Отправлено: 08:22 26-10-2012
AndVGri

Advanced Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
TePP0PucT
Читаем про "проверяет папку на наличие нового файла".
Устанавливаем PDFCreator и изучаем, например, "C:\Program Files\PDFCreator\COM\Windows Scripting Host\VBScripts\Convert2TXT.vbs" и прочее содержимое папки, что не понятно - спрашиваем.

Всего записей: 750 | Зарегистр. 14-12-2005 | Отправлено: 10:08 26-10-2012
king_stiven

Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Нужно переместить курсор по заранее заданным координатам относительно экрана, а не окон, кликнуть мышкой и переместиться назад.

Всего записей: 2229 | Зарегистр. 17-07-2006 | Отправлено: 13:47 26-10-2012
Alex_Piggy

Advanced Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Добрый день, king_stiven
Искал когда-то нашел только один вариант - AutoIt - скрипт скомпилить в exe. Получается 300 кило программа... Скопировать положение курсора в буфер обмена, перевести мышь в начало экрана, кликнуть 2 раза в точке с координатами 100:100. Можно использовать аргументы командной строки (массив $CmdLine)

Код:
 
$Pos=MouseGetPos()
ClipPut($Pos[0]&":"&$Pos[1])
MouseMove(1,1)
MouseClick("left",100,100,2)
 

Прошу прощения, ответил не в той теме. Это относится к Задачи на bat-файлах 11

Всего записей: 1893 | Зарегистр. 07-08-2002 | Отправлено: 16:20 26-10-2012 | Исправлено: Alex_Piggy, 16:42 26-10-2012
king_stiven

Silver Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Добрый вечер, Alex_Piggy. Да нет, правильно ответили. Мне надо, чтоб при запуске скрипта мышка перешла на координаты 100 100, кликнула там и перешла обратно. Решение должно быть очень простым. Не надо искать окон а просто тупо перемещаться по экрану, как nircmd. Просто nircmd  не умеет определять текущие координаты и соответственно возвращаться обратно на них.
 
 
 
Добавлено:
Пока нашёл только такую вещь, не совсем по теме.
<html>
<head>
</head>
<body>
<table border=1 width=1280 height=1240><tr><td onmousemove=t_mousemove()>
Проведите мышью по этому окну
Координаты мыши относительно экрана
 
<input type="text" name="Text1">
</td></tr></table>
</body>
<SCRIPT TYPE="text/vbscript"><!--
function t_mousemove
Text1.value="X="+cstr(window.event.screenX)+"; Y="+cstr(window.event.screenY)
end function
--></SCRIPT>

Всего записей: 2229 | Зарегистр. 17-07-2006 | Отправлено: 18:48 26-10-2012
TePP0PucT

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

Всего записей: 7 | Зарегистр. 26-10-2012 | Отправлено: 14:09 28-10-2012 | Исправлено: TePP0PucT, 14:15 28-10-2012
AirCova

Newbie
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Доброго времени суток.  
Есть небольшая проблема. Есть скрипт на vbs, создает подписи для outlook беря данные с AD, соответственно пишет в конце подписи сайт, но хотелось бы сделать вместо адреса сайта лого, возможно ли это?  
з.ы. Гугл молчит, предлогает только сделать скрипт на основе html, но это не подходит (((  
з.ы.ы. Бил в бубен, молился Ктулху... не помогает  

Всего записей: 1 | Зарегистр. 19-11-2012 | Отправлено: 17:10 19-11-2012
Black_Lung



Member
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
AirCova
 
можно сделать в виде показа из атачмента, письмо конечно будет в html

Всего записей: 275 | Зарегистр. 09-10-2008 | Отправлено: 11:43 20-11-2012
Demon L



Lite FSB
Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Гуру помогите.  
Как можно (и можно ли) решить такую задачу:  
   
Нужно присвоить файлу любое рандомное имя не зависимо от того какое было (например на основе даты) потом его залить на фтп и сформировать на него ссылку и выдать так чтоб это можно было скопировать. Это вообще решаемо? в какую сторону смотреть...

Всего записей: 375 | Зарегистр. 24-07-2003 | Отправлено: 14:57 06-12-2012
Открыть новую тему     Написать ответ в эту тему

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

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Программирование "удобняшек" на VBScript (Часть 2)


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

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

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru