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

11.587 Comentários

  36. mostbet_oyen mostbet_oyen

    Obstawiam na Mostbet od jakichs siedmiu miesiecy, przewaznie sloty, od czasu do czasu cos z live. Trafilem tam bo kolega z pracy gadal o tym, specjalnie sie nie nastawialem. Lobby jest naprawde duzy — gdzies ponad 3 tys. gier, Pragmatic Play, NetEnt i Play’n GO, Microgaming. Book of Dead odpalam najczesciej, chociaz od miesiaca ogrywam te megaways od BTG.

    To co mnie realnie wkurza to nawigacja w kategoriach — gubi tytuly przy literowce. Poza tym jakos zyje. Dzial z krupierami to glownie Evolution i tu akurat nie ma sie do czego przyczepic — ruletki sa tez PL, a Crazy Time i Lightning Roulette wciaga bardziej niz niejeden serial.

    Startowy bonus na Mostbet to mniej wiecej 125% plus 250 free spinow, rozbite na kilka dni. Warunek obrotu x60 na spinach, czyli standard, ale nie prezent, minimalna wplata to jakies 20 zl. Jesli szukasz swiezych ofert, to mozna sprawdzic [url=https://whitesmoke-badger-396314.hostingersite.com/mostbet-voucher-2026-krok-po-kroku-rejestracja-i-aktywacja-kodu-promocji]Mostbet voucher 2026 – krok po kroku rejestracja i aktywacja kodu promocji[/url] zanim zalozysz konto. Sam proces trwala dwie minuty, potwierdzenie dokumentow niecala dobe.

    Cashouty robie zwykle przez Skrill, idzie w kilka godzin. Karta czekalem do dwoch dni roboczych, BTC podobno najszybciej, nie testowalem osobiscie. Neteller dziala, oraz standardowe przelewy.

    Czat w Mostbet jest po polsku, chociaz czasem widac kalki z tlumacza. Raz mialem problem z zaliczeniem obrotu — ogarneli w jakies 20 minut. Dzialaja na licencji Curacao, to nie jest maltanskie CEG. Wersja na telefon nie krzaczy sie, ale instalka na iPhone to lekka gimnastyka.

    # agosto 29, 2026
  42. GeorgeSit GeorgeSit

    Информация об обращении не передается третьим лицам, а детали лечения обсуждаются только с пациентом.
    Узнать больше – [url=https://1.narkologicheskaya-klinika-balashiha5.ru/]наркологическая клиника в балашихе[/url]

    # agosto 29, 2026
  47. fieryplay_kcOi fieryplay_kcOi

    Obstawiam tu mniej wiecej od kwietnia, wiec mysle ze moge cos napisac. Wpadlem na to szukajac czegos z szybkimi wyplatami, jako ze wkurzalo mnie tego cyrku z dokumentami gdzie indziej. Lobby w FieryPlay jest spore — cos ponad 2500 pozycji, przede wszystkim Pragmatic Play, Play’n GO, NetEnt z dorzuconym Yggdrasil i paroma rzeczami od Big Time Gaming.

    Sam siedze najczesciej na Gates of Olympus i Sweet Bonanza, nic odkrywczego. Plus za to ze mozna odpalic demo bez zakladania konta, sprawdzilem tak ze cztery nowe sloty zanim zaczalem grac na realne. Sortowanie gier natomiast mogloby byc lepsze — po dostawcy da sie filtrowac, ale po volatility juz nie.

    Sekcja live to praktycznie w calosci Evolution i to czuc. Klasyka: ruletka, blackjack, i oczywiscie game shows typu Crazy Time — siedze tam czasem godzine zamiast dziesieciu minut. Prawdziwi ludzie po drugiej stronie, w wiekszosci anglojezyczni, polskiego stolu nie znalazlem — mnie to nie rusza, ale rozumiem ze kogos tak.

    Bonus powitalny w FieryPlay to byl u mnie 100% do 2000 zl i 100 free spinow, wydawane po 20 dziennie. Wager x35 — ani rewelacja, ani dramat. Widzialem takze drobne no deposit spiny po potwierdzeniu telefonu, nie liczylbym na to na stale. Regulamin przeczytaj zanim klikniesz — oferta bywa inna niz tydzien wczesniej, najnowsze warunki sa opisane na [url=https://swizzpools.com/]fiery play casino[/url] dla pewnosci.

    Rejestracja zajela mi dwie minuty, od 20 zl mozna zaczac. Wplacam Visa, obok tego dzialaja Skrill, Neteller oraz Bitcoin. Kasa wychodzi ida szybko na portfele, przelew na karte wolniej. KYC przy pierwszej wyplacie — typowe papiery, przeszlo w jedna dobe.

    Z komorki smiga w przegladarce, apki nie ma i chyba nie potrzeba. Czat z supportem w FieryPlay odpowiada po polsku w kilka minut, raz musialem powtorzyc pytanie dwa razy. Dzialaja na licencji Curacao — nie MGA, wiec swiadomosc ryzyka po twojej stronie. Limitow na siebie nie ustawialem, ale opcja jest w profilu.

    # agosto 29, 2026
  50. Edwardred Edwardred

    Запой — это острое состояние, при котором контроль над потреблением алкоголя утрачивается, что может привести к опасным последствиям для здоровья. В Иркутске специалисты наркологической помощи предлагают услугу вызова нарколога на дом, что позволяет оперативно начать лечение в комфортной домашней обстановке, сохраняя полную конфиденциальность. Такой подход позволяет быстро стабилизировать состояние пациента и минимизировать риск осложнений.
    Изучить вопрос глубже – [url=https://narcolog-na-dom-v-irkutske66.ru/]врач нарколог на дом[/url]

    # agosto 29, 2026

Deixe um comentário

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