Ir ao conteúdo

Verificar se um processo está execução e notificar via e-mail no Windows

Publicado por Matheus (X-warrior) Bratfisch em abril 16, 2012

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

Publicado emwindows

9.768 Comentários

  1. 888starz_lgon 888starz_lgon

    يتنقل لاعب مصر بسهولة عبر واجهة عربية واضحة يدعمها الموقع بأكثر من خمسين لغة.

    يضم القسم المباشر ما يزيد عن مئتين وخمسين طاولة روليت وبلاك جاك وبكارات على مدار الساعة.

    يغطي 888starz أكثر من خمس وثلاثين رياضة بينها Dota 2 و CS:GO ضمن قسم الإي سبورتس.

    يمنح 888starz أول إيداع في الكازينو بونصًا حتى 1500 يورو و150 دورة مجانية.

    يعمل فريق المساعدة طوال اليوم ويتوفر تطبيق محمول لأجهزة أندرويد وآبل.

    https://wikibuilding.org/index.php?title=User:AstridHotchin [url=https://maxmeta.io/index.php/user:vernellgoulet9/]https://wikibuilding.org/index.php?title=User:AstridHotchin[/url].

    # julho 10, 2026
  2. 888starz_afKi 888starz_afKi

    888starz [url=https://888starzs10.com/]888starz[/url]
    بفضل 888starz يحصل المستخدم المصري على الكازينو والمراهنات الرياضية معًا دون الحاجة إلى أكثر من حساب.

    تتخطى مكتبة السلوت في 888starz حاجز الأربعة آلاف لعبة وتتجدد باستمرار.

    على صعيد الرياضة، يفتح الموقع الرهان على أكثر من 35 نوعًا من كرة القدم إلى UFC والإي سبورتس.

    ينال لاعبو الرهان الرياضي عرضًا بنسبة 100% يبلغ 100 يورو.

    على مستوى الدفع، يقبل الموقع البطاقات والمحافظ إلى جانب أكثر من 50 عملة رقمية مثل BTC و USDT.

    # julho 10, 2026
  3. 888starz_ukPi 888starz_ukPi

    888starz apk [url=http://www.888starz-uzb3.com/apk/]888starz apk[/url]
    Sayt xalqaro darajadagi litsenziyaga ega bo’lib, tranzaksiyalarda to’liq shaffoflik va xavfsizlikni kafolatlaydi.

    Rasmiy saytda minglab slot mashhur ishlab chiquvchilardan to’plangan.

    Foydalanuvchilar jahon chempionatlari va mahalliy ligalarga stavka qo’yishlari mumkin.

    888starz doimiy aksiyalar, keshbek va slot musobaqalari bilan o’yinchilarni rag’batlantiradi.

    888starz karta va hamyonlardan tashqari BTC, USDT va ETH kabi 50+ kripto bilan ishlaydi.

    # julho 10, 2026
  7. 888starz_pyPi 888starz_pyPi

    888starz [url=888starzs2.com]888starz[/url]
    يبحث لاعبو مصر عن مكان واحد يجمع الكازينو والرياضة، وهو ما يقدمه 888starz عبر منصته الرسمية.

    يضم القسم آلاف عناوين السلوت من استوديوهات موثوقة.

    يشمل الموقع أكثر من 35 فئة رياضية تتابع الأحداث العالمية والمحلية.

    يمنح 888starz أول إيداع في الكازينو ما يصل إلى 1500 يورو و150 دورة مجانية.

    ويبقى الدعم متاحًا 24/7 عبر الدردشة والبريد مع تطبيق لأندرويد و iOS.

    # julho 10, 2026
  8. WilliamAmind WilliamAmind

    Нужна бесплатная юридическая консультация? Переходите по запросу [url=https://vk.com/yurist.beloozerskiy]помощь юриста онлайн бесплатно без регистрации круглосуточно в Белоозерском[/url] и получите помощь опытных правозащитников в любой области права: семейные споры, долги и кредиты, недвижимость, трудовые конфликты, защита прав потребителей и многое другое. Задайте вопрос онлайн или по телефону и получите подробный разбор вашей ситуации и рекомендации адвоката по дальнейшим действиям. Консультация проводится бесплатно и конфиденциально.

    # julho 10, 2026
  9. Ruebengoalp Ruebengoalp

    Запоя вывод в клинике Сочи: лечение алкогольной интоксикации, капельница, детоксикация, помощь нарколога на дому, кодирование и реабилитация
    Подробнее можно узнать тут – [url=https://vivod-iz-zapoya-sochi23.ru/]вывод из запоя на дому цена[/url]

    # julho 10, 2026
  31. 888starz_naMr 888starz_naMr

    تأتي الواجهة معرّبة بالكامل ضمن دعم يتجاوز 50 لغة لتناسب لاعبي القاهرة.
    يجد اللاعب في 888Games عناوين لا تتوفر لدى غير 888starz.
    888 ستارز [url=http://www.career4.co.kr/bbs/board.php?bo_table=ci_consulting&wr_id=824207]888 ستارز[/url]
    يغطي القسم الرياضي أكثر من 35 نوعًا من كرة القدم والتنس إلى الهوكي والإي سبورتس.
    يمنح الكازينو اللاعب الجديد في القاهرة مكافأة ترحيب تصل إلى 1500 يورو مع 150 لفة مجانية.
    يوفر 888starz الدفع عبر Visa و Mastercard و Skrill والكريبتو بحد إيداع منخفض.

    # julho 11, 2026
  36. MelvinPriff MelvinPriff

    Обратившись к нам, вы получаете не только экстренную помощь, но и полный комплекс услуг с гарантией качества и анонимности. Вот основные преимущества нашей работы:
    Получить больше информации – http://narkolog-na-dom-balashiha13.ru

    # julho 11, 2026
  37. crazy time_btOn crazy time_btOn

    Il gioco si svolge con un conduttore in carne e ossa e streaming in tempo reale.

    La ruota è divisa in 54 segmenti che includono i numeri 1, 2, 5 e 10 e quattro caselle bonus.

    Nel round Crazy Time una ruota virtuale a tre colori può regalare i moltiplicatori più alti del gioco.

    L’RTP varia in base al segmento scelto e si aggira intorno al 95%.

    Crazy Time è disponibile nei principali casinò dal vivo accessibili dall’Italia.

    demo crazytime [url=http://thdeco.com/bbs/board.php?bo_table=free&wr_id=603811]demo crazytime[/url]

    # julho 11, 2026
  39. crazy time_ugOn crazy time_ugOn

    La combinazione di intrattenimento e moltiplicatori elevati lo rende un preferito dei giocatori italiani.

    La ruota è divisa in 54 segmenti che includono i numeri 1, 2, 5 e 10 e quattro caselle bonus.

    Nel round Crazy Time una ruota virtuale a tre colori può regalare i moltiplicatori più alti del gioco.

    La scelta tra numeri sicuri e bonus ad alto rischio dipende dallo stile del giocatore.

    Numerosi casinò online offrono Crazy Time nella sezione dei giochi dal vivo.

    crazytimes [url=https://buyandsellhair.com/author/harriettlbj/]crazytimes[/url]

    # julho 11, 2026
  40. 20 super hot_rbon 20 super hot_rbon

    The clean design and nostalgic theme make it a favourite among UK and US slot players.
    The star acts as a scatter and pays in any position across the reels.
    super hot 20 [url=http://auropedia.com/index.php/User:ArmandoEstep]super hot 20[/url]
    After a win, players can use the gamble feature to guess the colour of a hidden card.
    Flexible stake options make the game accessible to small and large budgets alike.
    The game features in the EGT libraries of numerous casinos and social platforms serving UK and US audiences.

    # julho 11, 2026
  41. 888starz_euSn 888starz_euSn

    يقدم 888starz تصميمًا معرّبًا واضحًا وتنقلًا سلسًا بين الأقسام.
    يعمل الكازينو الحي بأكثر من 250 طاولة بموزعين حقيقيين على مدار الساعة.
    888starz [url=https://rivonirecruitment.co.za/?p=53962]888starz[/url]
    تتغير الأودز في الوقت الفعلي مع خيار المراهنة الحية ومتابعة النتائج.
    ينال المراهن الرياضي بونص ترحيب بنسبة 100% بحد أقصى 100 يورو.
    تتنوع وسائل الدفع بين الفيات والعملات المشفرة بحد أدنى يبدأ من 2 يورو.

    # julho 11, 2026
  44. mostbet free spins_lysl mostbet free spins_lysl

    Darmowe spiny w Mostbet to obroty na automatach, które gracz otrzymuje bez konieczności wykorzystywania własnych środków.

    Aby zdobyć darmowe spiny, należy najpierw założyć konto w Mostbet i potwierdzić dane.

    Przed wypłatą wygranej z darmowych spinów obowiązuje określony mnożnik obrotu.

    Cykliczne doładowania konta również mogą nagradzać gracza dodatkowymi spinami.

    Zaleca się grę odpowiedzialną oraz ustalanie własnych limitów wydatków.

    mostbet casino 30 free spins [url=https://yohsolutions.art/mostbet-casino-30-free-spins-free-spins-terms-wagering-and-max-cashout/]mostbet casino 30 free spins[/url]

    # julho 11, 2026
  45. najlepsze kasyna online_rqkn najlepsze kasyna online_rqkn

    Renomowane kasyna stawiają na bezpieczeństwo danych i wygodę użytkownika.
    Podstawą wiarygodnego kasyna jest ważna licencja wydana przez uznany organ regulacyjny.
    Bogata biblioteka gier obejmuje sloty, ruletkę, blackjacka i tytuły z krupierem na żywo.
    najlepsze kasyna online opinie [url=https://sakumc.org/xe/vbs/5832557]najlepsze kasyna online opinie[/url]
    Atrakcyjny pakiet powitalny to jeden z głównych powodów wyboru danego kasyna.
    Dobre kasyno działa płynnie na urządzeniach mobilnych oraz oferuje aplikację.

    # julho 11, 2026
  46. JasonOrets JasonOrets

    Запоя вывод в клинике Сочи: лечение алкогольной зависимости, капельница, детоксикация, помощь нарколога на дому, кодирование и реабилитация анонимно
    Подробнее тут – http://vyvod-is-zapoya-sochi20.ru

    # julho 11, 2026
  47. 888starz_jcSn 888starz_jcSn

    تدير المنصة شركة Bittech B.V. بموجب ترخيص كوراساو الذي يضمن نزاهة اللعب وأمان الأرصدة.
    يتيح الموقع أكثر من مئتين وخمسين طاولة روليت وبلاك جاك مباشرة في أي وقت.
    888starz [url=https://rivonirecruitment.co.za/?p=53962]888starz[/url]
    يمنح الرهان المباشر احتمالات محدّثة لحظيًا أثناء المباريات.
    يطرح 888starz مكافآت منتظمة تشمل الاسترداد النقدي والترقيات.
    يوفر 888starz الدفع عبر Visa و Mastercard و Skrill والكريبتو بحد إيداع منخفض.

    # julho 11, 2026
  48. najlepsze kasyna online_thkn najlepsze kasyna online_thkn

    Wybór najlepszego kasyna online w Polsce zależy od kilku kluczowych czynników, które warto poznać przed rejestracją.
    Podstawą wiarygodnego kasyna jest ważna licencja wydana przez uznany organ regulacyjny.
    Szeroki wybór gier od czołowych dostawców to znak rozpoznawczy dobrego kasyna.
    najlepsze kasyna online opinie [url=https://harry.main.jp/mediawiki/index.php/Najlepsze_Kasyna_Online_Opinie:_Register_And_Play_Casino_And_Sports]najlepsze kasyna online opinie[/url]
    Uczciwe warunki bonusowe, w tym rozsądny wager, świadczą o dobrym kasynie.
    Najlepsze kasyna obsługują wygodne metody płatności, w tym karty, e-portfele i szybkie przelewy.

    # julho 11, 2026
  49. 888starz_kkSn 888starz_kkSn

    يقدم 888starz تصميمًا معرّبًا واضحًا وتنقلًا سلسًا بين الأقسام.
    يعمل الكازينو الحي بأكثر من 250 طاولة بموزعين حقيقيين على مدار الساعة.
    888starz [url=https://rivonirecruitment.co.za/?p=53962]888starz[/url]
    يقدم 888starz تغطية لمباريات القاهرة والدوري المصري إضافة إلى الأحداث الدولية.
    تبلغ باقة الترحيب في الكازينو 1500 يورو إضافة إلى 150 فري سبين.
    يقدم الموقع خدمة عملاء على مدار الساعة بالعربية إضافة إلى تطبيق apk ونسخة آيفون.

    # julho 11, 2026
  50. краснодар работа сегодня краснодар работа сегодня

    Количество рабочих мест в городе возрастает с каждым часом, поэтому лучше почаще заглядывать на сайт. На указанном выше портале находятся администратор сегодня, по многочисленным направлениям деятельности города. Уверенность в будущем трудоустройстве становится осязаемой.

    # julho 11, 2026

Deixe um comentário

O seu endereço de e-mail não será publicado. Campos obrigatórios são marcados com *