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
здесь [url=https://vodkabet-livenews.com]водкабет[/url]
другие [url=https://vodkabet-livenews.com/]водкабет[/url]
I all the time used to study article in news papers but now as I am a user of
net therefore from now I am using net for posts, thanks to web.
I’m really loving the theme/design of your website.
Do you ever run into any web browser compatibility issues? A few of my blog visitors have complained about my site not operating
correctly in Explorer but looks great in Opera. Do you have
any ideas to help fix this problem?
wolverhampton horse racing bet calculator [Pauline]
racing results today live
bukmacher liczba bramek 2 5, https://bukmacherjakie.Com/, września
выездная наркологическая служба оперативно приедет по указанному адресу, имея при себе все необходимое оборудование и медикаменты, в том числе для оказания неотложной помощи.
Исследовать вопрос подробнее – [url=https://vyvod-is-zapoya-sochi22.ru/]врач вывод из запоя[/url]
true fortune casino [url=https://telegra.ph/True-Fortune-Casino-VIP-Program-in-2026-How-the-Loyalty-Ladder-Actually-Works-07-05]true fortune casino[/url]
True Fortune Casino aims to deliver a complete online gaming experience for players in the UK and beyond.
The platform also includes live dealer tables for a more immersive experience.
New players are typically welcomed with a deposit bonus and, in some cases, free spins.
Account information is safeguarded through modern security measures.
A responsive design ensures smooth performance across devices.
звоните круглосуточно по телефону горячей линии клиники: наши специалисты готовы оказать необходимую помощь в решении проблемы алкогольной зависимости.
Изучить вопрос глубже – [url=https://vyvod-is-zapoya-sochi20.ru/]вывод из запоя круглосуточно[/url]
Its bright fruit symbols and glowing sevens appeal to fans of retro slots in Britain and America.
The flaming seven sits at the top of the paytable and pays the most.
20 super hot [url=https://mediawiki.weopensoft.com/index.php/Super_Hot_20_Slot_Casino,_Sportsbook_And_Daily_Promotions]20 super hot[/url]
The slot has fairly high volatility, meaning wins are less frequent but can be sizeable.
Bets can be adjusted across a wide range to suit both casual and higher-stakes players.
It can be found across a wide range of online casinos and social gaming sites.
يقدم 888starz تصميمًا معرّبًا واضحًا وتنقلًا سلسًا بين الأقسام.
يبرز الموقع مجموعة 888Games الخاصة ذات النتائج السريعة والإثارة.
888starz [url=https://rivonirecruitment.co.za/?p=53962]888starz[/url]
تتغير الأودز في الوقت الفعلي مع خيار المراهنة الحية ومتابعة النتائج.
يتوفر للاعبي الرياضة عرض بنسبة 100% يبلغ 100 يورو.
يمكن للاعبي القاهرة فتح حساب جديد عبر الهاتف أو البريد في دقائق قليلة.
cheltenham races today non runners
Also visit my web blog what’s the best Odds in horse racing (horse-betting.Com)
true fortune casino [url=https://anotepad.com/notes/cn7a87hd]true fortune casino[/url]
The site combines a varied game library with regular promotions and multiple payment options.
Fans of classic games will find several variants of blackjack and roulette.
Reasonable bonus conditions, including a fair wager, are worth confirming in advance.
The cashier offers flexible banking choices to suit different preferences.
Players can enjoy the games on the go through a mobile-friendly website.
лента 29НК купить [url=https://stalnayalenta.ru/29nk/]лента 29НК купить[/url]
multimedia polska Bukmacher zaklady (https://basketball-wetten.Com/)
يستند 888starz إلى ترخيص Curaçao رسمي يحمي أموال اللاعب وبياناته.
starz 888 [url=https://888starzs15.com/]starz 888[/url]
تشمل سلسلة 888Games الحصرية ألعابًا فورية مثل Crash و Dice و Plinko.
يوفر الموقع رهانًا فوريًا وإحصاءات مباشرة للأحداث الجارية.
يتوفر للاعبي الرياضة عرض بنسبة 100% يبلغ 100 يورو.
لا يتطلب إنشاء الحساب سوى دقائق معدودة.
Наш центр в Казани оказывает помощь круглосуточно: врач приезжает по адресу, проводит диагностику, оценивает состояние пациента, подбирает препараты и ставит капельницу. Вывод из запоя на дому помогает снять интоксикацию, уменьшить симптомы абстиненции, восстановить водно-солевой баланс, снизить тревожность и вернуть человека к более стабильной форме. В каждом случае врач учитывает возраст пациента, стаж алкоголизма, длительность запоя, наличие хронических заболеваний и реакцию на лекарства.
Углубиться в тему – [url=https://vyvod-iz-zapoya-kazan21.ru/]вывод из запоя на дому цена в казани[/url]
بُنيت الواجهة لتكون سهلة بالعربية وسريعة التنقل.
888starz [url=https://888starzs14.com/]888starz[/url]
تشمل غرف الكازينو الحي 250 طاولة وأكثر للروليت والبكارات والبلاك جاك.
يفتح 888starz الرهان على عشرات الرياضات بما فيها UFC و Dota 2 و CS:GO.
ويحصل المراهن الرياضي على مكافأة 100% حتى 100 يورو عند أول إيداع.
لا يتطلب فتح الحساب سوى دقائق معدودة على الموقع الرسمي.
يقدم 888starz.bet لسكان القاهرة خدمة موحّدة تضم ألعاب الكازينو والمراهنات الرياضية.
يجد اللاعب في 888Games عناوين خاصة لا تتوفر لدى غير 888starz.
يقدم 888starz تغطية تمتد من مباريات القاهرة المحلية إلى الأحداث العالمية.
وفي المقابل يحصل المراهن الرياضي على بونص 100% حتى 100 يورو.
يقدم 888starz تسجيلًا سريعًا بخطوات بسيطة وحد إيداع منخفض.
888starz [url=https://888starzs1.com/]888starz[/url]
888stars [url=https://888starzs17.com/]888stars[/url]
يقدم 888starz قائمة معرّبة واضحة تناسب المستخدم القاهري.
يجد اللاعب عناوين 888Games الفريدة التي تميّز الموقع عن غيره.
يوفر الموقع رهانًا فوريًا وإحصاءات مباشرة للأحداث القائمة.
ينتظر اللاعبين النشطين برنامج مكافآت أسبوعي من كاش باك وجوائز.
يدعم الموقع البطاقات والمحافظ إضافة إلى أكثر من 50 عملة رقمية بينها BTC و USDT و ETH.
يعتمد لاعبو القاهرة على 888starz.bet للوصول إلى آلاف الألعاب وعشرات الرياضات.
888starz [url=https://888starzs14.com/]888starz[/url]
يتوفر في الكازينو الحي أكثر من 250 طاولة بموزعين حقيقيين تعمل بلا توقف.
تتوفر خطوط رهان على أندية القاهرة والدوري المصري إلى جانب البطولات القارية.
يستقبل 888starz لاعبي القاهرة الجدد بمكافأة كازينو تبلغ 1500 يورو مع 150 لفة مجانية.
لا يتطلب فتح الحساب سوى دقائق معدودة على الموقع الرسمي.
يفتح 888starz أمام لاعبي مصر بوابة واحدة للكازينو والمراهنات الرياضية.
يجد اللاعب في 888Games عناوين لا تتوفر خارج منصة 888starz.
تتوفر أسواق على البطولات الكبرى إلى جانب الدوري المصري.
يحصل اللاعب الجديد في الكازينو على مكافأة تصل إلى 1500 يورو مع 150 لفة مجانية.
888 starz [url=https://888starzs18.com/]888 starz[/url]
يوفر 888starz الدفع عبر Visa و Mastercard و Skrill والكريبتو.
Определение места жительства ребенка — один из самых сложных семейных споров, требующий грамотной правовой поддержки. Переходите по запросу [url=https://www.pravovik24.ru/konsultatsii/opredelenie-mesta-zhitelstva-rebenka/]юридическая консультация по месту жительства ребенка[/url]. Юрист поможет оценить перспективы дела, собрать необходимые доказательства, подготовить иск, представить ваши интересы в суде и защитить права ребенка. Сопровождаем процесс на всех этапах, добиваясь решения, соответствующего закону и интересам несовершеннолетнего.
El sitio opera bajo licencia de Curaçao gestionada por Bittech B.V., lo que garantiza un juego justo y la seguridad de los fondos.
En 888Games el jugador encuentra títulos exclusivos que no están disponibles fuera de 888starz.
Es posible apostar en eventos que van desde la Champions League hasta los partidos de LaLiga.
888 [url=https://cac5.altervista.org/index.php?title=888Starz_Bet_Slots,_Live_Tables_And_Sports_Markets]888[/url]
Los nuevos jugadores del casino reciben un bono de bienvenida de hasta 1500 euros y 150 giros gratis.
El sitio acepta tarjetas y monederos electrónicos además de más de 50 criptomonedas como BTC y USDT.
cheltenham horse Racing Betting sites online
today tips
888starz [url=https://888starzs11.com/]888starz[/url]
بُنيت المنصة بلغة عربية بسيطة وتنقل سريع بين الأقسام.
تنفرد سلسلة 888Games بألعاب فورية مثل Crash و Plinko و Dice و Lottery.
ويأتي الرهان المباشر باحتمالات تُحدَّث لحظيًا أثناء سير اللقاءات.
وفي المقابل يحصل المراهن الرياضي على بونص 100% حتى 100 يورو.
يقدم 888starz تسجيلًا سريعًا بخطوات بسيطة وحد إيداع منخفض.
Республика путешествий https://republictravel.ru турагентство для тех, кто хочет открыть Россию. Карелия, Байкал, Камчатка, Дагестан, Мурманск, Калининград, Санкт-Петербург и ещё 10 направлений. Основаны в 2023 году, но команда — профессионалы с опытом от 10 лет.
يعمل الكازينو بموجب ترخيص كوراساو الصادر لشركة Bittech B.V. الذي يضمن نزاهة النتائج.
يحتوي الكازينو على آلاف ماكينات السلوت من استوديوهات مرموقة.
تتوفر مئات طاولات الكازينو الحي بموزعين فعليين في أي وقت.
يقدم 888starz ألعاب 888Games الخاصة بنتائج فورية وإثارة عالية.
يُنصح دائمًا باللعب بمسؤولية وضمن ميزانية محددة.
888stars [url=https://888starzs19.com/]888stars[/url]
يتميز الموقع بواجهة عربية سلسة ضمن دعم يتخطى 50 لغة.
تحتوي منصة الكازينو على ما يزيد عن 4000 لعبة سلوت من مطورين عالميين.
تتوفر خطوط رهان على أندية القاهرة والدوري المصري إلى جانب البطولات القارية.
ويحصل المراهن الرياضي على مكافأة 100% حتى 100 يورو عند أول إيداع.
starz888 [url=https://888starzs13.com/]starz888[/url]
يبقى الدعم متاحًا 24/7 عبر الدردشة والبريد، مع تطبيق لأندرويد و iOS.
بُنيت الواجهة لتكون سهلة بالعربية وسريعة التنقل.
يعرض 888starz أكثر من أربعة آلاف عنوان سلوت في مكتبة تتوسع دائمًا.
تتوفر خطوط رهان على أندية القاهرة والدوري المصري إلى جانب البطولات القارية.
تصل باقة الترحيب في الكازينو إلى 1500 يورو إضافة إلى 150 فري سبين.
888stars [url=https://888starzs13.com/]888stars[/url]
يعمل فريق المساعدة طوال اليوم مع تطبيق محمول لأجهزة أندرويد وآبل.
I was curious if you ever thought of changing the page layout of your blog?
Its very well written; I love what youve got to say.
But maybe you could a little more in the way of content so
people could connect with it better. Youve got an awful lot of text for only having 1 or two images.
Maybe you could space it out better?
Apuestas Deportivas Faciles De Ganar barcelona real madrid
latest betting odds for grand national
My web site; Non runner no bet Meaning
casas de apostas sao legais
My web blog – Apostar Hóquei Patins (it-betting.com)
non runners in Tricast calculator horse racing racing
como começar nas apostas Esportivas (https://pt-betting.com) escanteios
hoje
smash apostas como funciona esportivas picpay
windsor horse racing betting bonuses results tonight
que son las declarar dinero apuestas deportivas, Shantell, asiaticas
يبحث لاعبو مصر عن مكان واحد يجمع الكازينو والرياضة، وهو ما يقدمه 888starz عبر منصته الرسمية.
يمنح الكازينو أكثر من 4000 لعبة سلوت من أبرز المزودين العالميين.
يقدم 888starz تغطية للدوريات الأوروبية والمنافسات المصرية.
يستقبل الكازينو اللاعب الجديد بمكافأة تصل إلى 1500 يورو مع 150 لفة مجانية.
يقبل الموقع البطاقات والمحافظ إلى جانب أكثر من 50 عملة رقمية مثل BTC و USDT.
888starz [url=https://www.888starzs2.com/]888 starz[/url]
impuesto a las apuestas deportivas; Vickey, final copa
libertadores
Программа лечения алкоголизма в нашем центре состоит из нескольких последовательных шагов, каждый из которых крайне важен для достижения устойчивой ремиссии. Сначала проводится экстренная детоксикация и вывод из запоя, затем подключается медикаментозная поддержка и кодирование, и завершает курс реабилитация с психологической поддержкой. Все этапы тесно связаны между собой, и только комплексное лечение позволяет рассчитывать на полный отказ от алкоголя. Рассмотрим каждый этап подробнее. Лечение алкоголизма — это путь, который начинается с признания проблемы, и мы помогаем пройти его до конца. Далее следует длительная работа, но первые положительные сдвиги заметны уже через несколько дней.
Изучить вопрос глубже – [url=https://vyvod-iz-zapoya-v-stacionare-balashiha13-1.ru/]вывод из запоя дешево[/url]
يستند 888starz إلى ترخيص Curaçao الرسمي عبر Bittech B.V. الذي يحفظ حقوق اللاعب.
يتيح 888starz أكثر من مئتين وخمسين طاولة روليت وبلاك جاك مباشرة في أي وقت.
يمكن الرهان على أحداث من دوري الأبطال إلى مباريات مصر المحلية.
تبلغ باقة ترحيب الكازينو 1500 يورو إضافة إلى 150 فري سبين.
تتنوع وسائل الدفع بين الفيات والعملات المشفرة بحد أدنى يبدأ من 2 يورو.
888starz [url=888starzs2.com]888starz[/url]
основанием для вызова специалиста является неспособность человека самостоятельно выйти из состояния непрерывного употребления алкоголя и наличие признаков абстиненции.
Выяснить больше – [url=https://vyvod-is-zapoya-sochi22.ru/]вывод из запоя[/url]
maquinas mejor app para ganar dinero jugando casino online (Jeffry) casinos en españa
mejor Que son las apuestas De sistema deportivas
blackjack gratis casino en Eulogio parra alto
pronosticador pronostico apuestas tenis hoy – https://es-betting.com,
mejor sitio de apuestas argentina [Francesco]
para apuestas deportivas
maquina de casino mini ganar en casa