Olá,
Recentemente meu primo precisou um Visual Basic Script que verifica se um processo está executando e caso esteja envie um e-mail. Ele me pediu ajuda para criar este script e eu resolvi ajudar.
Visual Basic Script para verificação de processo em execução e notificação via E-mail.
Verificar se um processo está em execução com Visual Basic Script e mostrar uma janela se estiver.
[code lang=”vb”]
set service = GetObject (“winmgmts:”)
for each Process in Service.InstancesOf (“Win32_Process”)
If Process.Name = processName then
wscript.echo “Notepad running”
wscript.quit
End If
next
[/code]
Enviar e-mail utilizando Visual Basic Script:
[code lang=”vb”]
Const username = “SENHA”
Const password = “PASSWORD”
Const smtpServer = “smtp.gmail.com”
Const port = 465
Const secure = True
Const userFrom = “FROM”
Const userTo = “TO”
Const emailSubject = “Subject”
Const emailText = “Text”
‘== CODE ==
Const cdoSendUsingPickup = 1 ‘Send message using the local SMTP service pickup directory.
Const cdoSendUsingPort = 2 ‘Send the message using the network (SMTP over the network).
Const cdoAnonymous = 0 ‘Do not authenticate
Const cdoBasic = 1 ‘basic (clear-text) authentication
Const cdoNTLM = 2 ‘NTLM
Set objMessage = CreateObject(“CDO.Message”)
objMessage.Subject = emailSubject
objMessage.From = userFrom
objMessage.To = userTo
objMessage.TextBody = emailText
‘==This section provides the configuration information for the remote SMTP server.
objMessage.Configuration.Fields.Item _
(“http://schemas.microsoft.com/cdo/configuration/sendusing”) = 2
‘Name or IP of Remote SMTP Servesr
objMessage.Configuration.Fields.Item _
(“http://schemas.microsoft.com/cdo/configuration/smtpserver”) = smtpServer
‘Type of authentication, NONE, Basic (Base64 encoded), NTLM
objMessage.Configuration.Fields.Item _
(“http://schemas.microsoft.com/cdo/configuration/smtpauthenticate”) = cdoBasic
‘Your UserID on the SMTP server
objMessage.Configuration.Fields.Item _
(“http://schemas.microsoft.com/cdo/configuration/sendusername”) = username
‘Your password on the SMTP server
objMessage.Configuration.Fields.Item _
(“http://schemas.microsoft.com/cdo/configuration/sendpassword”) = password
‘Server port (typically 25)
objMessage.Configuration.Fields.Item _
(“http://schemas.microsoft.com/cdo/configuration/smtpserverport”) = port
‘Use SSL for the connection (False or True)
objMessage.Configuration.Fields.Item _
(“http://schemas.microsoft.com/cdo/configuration/smtpusessl”) = secure
‘Connection Timeout in seconds (the maximum time CDO will try to establish a connection to the SMTP server)
objMessage.Configuration.Fields.Item _
(“http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout”) = 60
objMessage.Configuration.Fields.Update
objMessage.Send
[/code]
Estes dois scripts foram mesclados para realizar o que precisávamos.
Abraços,
Matheus
Referencias:
http://wiki.imacros.net/send-email.vbs
http://www.techimo.com/forum/applications-operating-systems/117464-need-vbulletin-script-check-see-if-process-running.html
1xbet giri? yapam?yorum [url=https://oksijen-konsantratoru.com/]oksijen-konsantratoru.com[/url] .
Реабилитация алкоголиков с индивидуальной программой — это комплексный подход, включающий медицинскую, психотерапевтическую и социальную поддержку, направленный на восстановление человека после длительного злоупотребления алкоголем. Программа подбирается с учетом всех особенностей пациента, его состояния, сопутствующих заболеваний и эмоциональных проблем. Реабилитация не ограничивается только детоксикацией, но включает также работу с психологом и социальную адаптацию. В некоторых случаях может быть рекомендован выезд на дом для проведения лечения, а также кодирование, чтобы помочь пациенту справиться с зависимостью на всех этапах восстановления. Наркоманическая зависимость может требовать дополнительной терапии и профессиональной помощи для успешного преодоления всех трудностей.
Подробнее тут – [url=https://reabilitacziya-alkogolikov-moskva.ru/]центр реабилитации алкоголиков город[/url]
К показаниям относятся: запой длительностью более 72 часов, выраженная абстиненция с тахикардией, артериальной гипертензией, профузным потоотделением, наличие в анамнезе алкогольных делириев или судорожных эпизодов, сопутствующие хронические заболевания печени, сердца, поджелудочной железы. В тяжелых случаях резкое прекращение употребления без медицинской поддержки может спровоцировать отек головного мозга, острую сердечную недостаточность или желудочно-кишечное кровотечение. При серьезных метаболических нарушениях интоксикация затрагивает центральную и периферическую нервной систему, что требует немедленного вмешательства. Стационар позволяет провести полноценную диагностику, включая ЭКГ, экспресс-анализы крови и мониторинг сатурации, что формирует точную картину состояния и исключает шаблонные назначения. В случаях сочетанной зависимости, когда в анамнезе присутствует наркотическая аддикция, протоколы детоксикации адаптируются под специфику веществ и включают усиленный кардиологический и нейрологический контроль.
Получить дополнительную информацию – [url=https://vyvod-iz-zapoya-v-staczionare-nizhnij-novgorod-9.ru/]стационар вывод из запоя в нижнем новгороде[/url]
Выбор между домашней помощью и стационарным лечением часто определяется степенью физиологической зависимости и наличием сопутствующих патологий. В условиях клиники исключаются внешние триггеры, обеспечивается изоляция от источников алкоголя и создается контролируемая среда, где медицинские решения принимаются на основе объективных показателей, а не субъективных ощущений пациента. Такой подход критически важен для предотвращения осложнений, минимизации дискомфорта абстиненции и формирования устойчивой базы для дальнейшей противорецидивной работы.
Углубиться в тему – [url=https://vyvod-iz-zapoya-v-staczionare-nizhnij-novgorod-8.ru/]быстрый вывод из запоя в стационаре[/url]
Первоначально врач оценивает физическое и психоэмоциональное состояние пациента, что позволяет определить степень тяжести запоя и риски, с которыми может столкнуться пациент в процессе восстановления. На основе этой оценки подбирается соответствующая терапия, включая капельницы для очистки организма, введение витаминов и препаратов, способствующих нормализации давления и уровня сахара в крови.
Разобраться лучше – [url=https://vyvod-iz-zapoya-na-domu-ekaterinburg-16.ru/]вывод из запоя на дому круглосуточно екатеринбург[/url]
Если пациент не может самостоятельно выйти из запоя или симптомы похмелья слишком сильны, вызов нарколога для вывода из запоя на дому с детоксикацией помогает избежать осложнений и минимизировать риски для здоровья. Врач на дому подберет индивидуальный план лечения и проведет все необходимые процедуры для безопасного восстановления организма.
Углубиться в тему – http://vyvod-iz-zapoya-na-domu-ekaterinburg-20.ru
вывод из запоя в стационаре в санкт-петербурге [url=https://vyvod-iz-zapoya-v-staczionare-sankt-peterburg-8.ru/]вывод из запоя в стационаре в санкт-петербурге[/url] .
наркологическая помощь на дому в москве [url=https://narkolog-na-dom-moskva-9.ru/]narkolog-na-dom-moskva-9.ru[/url] .
OMT’ѕ vision fօr long-lasting learning motivates Singapore
trainees tօ ѕee mathematics as a buddy, inspiring thеm for
examination excellence.
Founded іn 2013 by Mr. Justin Tan, OMT Math Tuition һas assisted many trainees
ace examinations ⅼike PSLE, O-Levels, and А-Levels witһ tested analytical techniques.
Ꭺѕ mathematics forms tһe bedrock of rational thinking ɑnd critijcal analytical in Singapore’s education ѕystem, expert
math tuition offeгѕ tһe customized guidance required to tuгn obstacles іnto victories.
Math tuition in primary school bridges gaps іn class knowing,
guaranteeing students grasp intricate topics ѕuch as geometry аnd infoｒmation analysis bеfore tһe PSLE.
Customized math tuition іn secondary school addresses individual
learning spaces іn subjects ⅼike calculus аnd data, avoiding tһеm
from preventing Ο Level success.
Tuition gives methods for timе management durig the extensive А Level mathematics exams, allowing students to allocate efforts effectively tһroughout sections.
Whaat sets OMT ɑpart іs іts custom-maⅾe math program that prolongs past tһe MOE syllabus, cultivating crucial assuming ԝith hands-on, uѕeful exercises.
Comprehensive protection ⲟf topics sia, leaving no voids іn knowledge foг top mathematics achievements.
Tuition cultivates indepenhdent рroblem-solving, аn ability extremely valued іn Singapore’ѕ application-based math examinations.