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.597 Comentários

  1. fieryplay_mzOi fieryplay_mzOi

    Gram tu od jakichs trzech miesiecy, wiec mysle ze moge cos dorzucic od siebie. Trafilem tam szukajac czegos z szybkimi wyplatami, bo wkurzalo mnie tego cyrku z dokumentami gdzie indziej. To co FieryPlay ma w lobby wyglada solidnie — cos ponad 3000 tytulow, w wiekszosci Pragmatic Play, Play’n GO, NetEnt z dorzuconym Yggdrasil i paroma rzeczami od Big Time Gaming.

    Ja osobiscie najwiecej klikam Gates of Olympus i Sweet Bonanza, standard, nie ma co ukrywac. Fajnie ze wersje demo sa dostepne od reki, sprawdzilem tak ze cztery nowe sloty zanim zaczalem grac na realne. Wyszukiwarka za to mogloby byc lepsze — brakuje mi filtra po zmiennosci.

    Dzial z krupierami to praktycznie w calosci Evolution i to czuc. Ruletka, blackjack, no i te teleturnieje typu Crazy Time — potrafi wciagnac na dluzej niz zakladalem. Prawdziwi ludzie po drugiej stronie, w wiekszosci anglojezyczni, polskojezycznego dealera brak — dla czesci osob to minus.

    Pakiet na start w FieryPlay to byl u mnie 100% do 2000 zl plus 100 FS, rozbite na kilka dni. Obrot x35 — standard w tej branzy. Widzialem takze 20 spinow bez wplaty za weryfikacje, ale to raczej okazjonalnie. Regulamin przeczytaj zanim klikniesz — oferta bywa inna niz tydzien wczesniej, aktualne rzeczy widac na [url=https://swizzpools.com/]fieryplay casino[/url] jesli chcesz sprawdzic przed rejestracja.

    Rejestracja zajela mi dwie minuty, min. depozyt to 20 zl. Wrzucam kase Mastercardem, obok tego dzialaja Skrill, Neteller oraz Bitcoin. Kasa wychodzi na e-portfel schodza w kilka godzin, na karte czekalem trzy dni robocze. KYC za pierwszym razem — dowod plus rachunek, nic strasznego.

    Mobilnie lece przez przegladarke, nie ma appki, strona radzi sobie dobrze. Czat z supportem na FieryPlay odpisal mi po polsku bez dluzszego czekania, choc raz trafilem na kogos kto kopiowal gotowce z FAQ. Dzialaja na licencji Curacao — nie MGA, wiec swiadomosc ryzyka po twojej stronie. Narzedzia do samokontroli sa, sprawdzalem.

    # agosto 26, 2026
  9. fieryplay_eiOi fieryplay_eiOi

    Obstawiam tu od dobrych paru miesiecy, wiec chyba moge cos dorzucic od siebie. Trafilem tam szukajac czegos z szybkimi wyplatami, bo wkurzalo mnie weryfikacji ciagnacej sie w nieskonczonosc gdzie indziej. Lobby w FieryPlay wyglada solidnie — cos ponad 3000 tytulow, w wiekszosci Pragmatic Play, Play’n GO, NetEnt i troche Yggdrasil i paroma rzeczami od Big Time Gaming.

    Ja gram glownie w Sweet Bonanza i Book of Dead, banal, wiem. Dobrze ze demo dziala bez logowania, przetestowalem pare nowosci zanim wplacilem cokolwiek. Sortowanie gier natomiast mogloby byc lepsze — brakuje mi filtra po zmiennosci.

    Sekcja live stoi na Evolution i to widac. Klasyka: ruletka, blackjack, plus te ich show typu Crazy Time — siedze tam czasem godzine zamiast dziesieciu minut. Prawdziwi ludzie po drugiej stronie, w wiekszosci anglojezyczni, na polski stol nie trafilem — dla czesci osob to minus.

    Bonus powitalny u nich w FieryPlay to 100% do 1500 zl plus spiny plus 100 FS, rozbite na kilka dni. Obrot x35 — ani rewelacja, ani dramat. Zdarzaly sie jakies spiny bez depozytu za weryfikacje numeru, ale to raczej okazjonalnie. Zerknij na warunki zanim klikniesz — oferta bywa inna niz tydzien wczesniej, najnowsze warunki sa opisane na [url=https://swizzpools.com/]fiery play casino[/url] zanim zalozysz konto.

    Zakladanie konta to jakies niecale trzy minuty, od 20 zl mozna zaczac. Wrzucam kase Mastercardem, ale sa tez Skrill, Neteller i krypto. Kasa wychodzi na Skrilla przyszly mi tego samego dnia, na karte czekalem trzy dni robocze. KYC za pierwszym razem — typowe papiery, przeszlo w jedna dobe.

    Na telefonie gram bez aplikacji, dedykowanej apki brak, ale strona sie skaluje. Support w FieryPlay odpowiada po polsku w kilka minut, choc raz trafilem na kogos kto kopiowal gotowce z FAQ. Licencja Curacao — dla mnie ok, ale kazdy niech oceni sam. Limitow na siebie nie ustawialem, ale opcja jest w profilu.

    # agosto 26, 2026
  10. Migueldug Migueldug

    Вывод из запоя в Санкт-Петербурге требуется, когда длительное употребление алкоголя приводит к выраженному похмельному или абстинентному синдрому, а самостоятельно прекратить пить становится сложно или небезопасно. Вывод выполняется на дому либо в клинике: формат врач выбирает с учетом тяжести запоя, возраста пациента, длительности алкогольной зависимости, хронических болезней и общего самочувствия. Нарколог может приехать на дому круглосуточно, провести осмотр пациента, подобрать капельницу и начать лечение. При тяжелом течении алкоголизма лечение организуют в стационаре, где доступны постоянное наблюдение, диагностика и расширенная программа восстановления.
    Узнать больше – [url=https://s.vivod-iz-zapoya-v-sankt-peterburge16.ru/]вывод из запоя на дому цена[/url]

    # agosto 26, 2026
  23. Jamestom Jamestom

    Состояние пациента отслеживается на каждом этапе, от первичной консультации до дальнейших рекомендаций.
    Получить больше информации – [url=https://2.vyvod-iz-zapoya-reutov4.ru/]вывод из запоя сайт[/url]

    # agosto 27, 2026
  34. JamesSmibe JamesSmibe

    Помощь можно получить анонимно, с аккуратным оформлением и внимательным отношением к личным данным.
    Дополнительная информация – [url=https://2.vyvod-iz-zapoya-balashiha5.ru/]bystryj-vyvod-iz-zapoya[/url]

    # agosto 27, 2026
  36. fieryplay_nrOi fieryplay_nrOi

    Klikam tu mniej wiecej od kwietnia, wiec juz chyba wypada cos skrobnac. Wpadlem na to przypadkiem, bo wkurzalo mnie tego cyrku z dokumentami gdzie indziej. Sam lobby FieryPlay wyglada solidnie — gdzies kolo 2500 tytulow, przede wszystkim Pragmatic Play, Play’n GO, NetEnt plus troche Yggdrasil i Betsoftem.

    Ja gram glownie w Sweet Bonanza i Book of Dead, banal, wiem. Plus za to ze mozna odpalic demo bez zakladania konta, polatalem po nowosciach zanim wrzucilem prawdziwa kase. Sortowanie gier niestety mogloby byc lepsze — brakuje mi filtra po zmiennosci.

    Dzial z krupierami to praktycznie w calosci Evolution i to widac. Klasyka: ruletka, blackjack, plus te ich show typu Crazy Time — potrafi wciagnac na dluzej niz zakladalem. Krupierzy to zywe osoby, w wiekszosci anglojezyczni, polskojezycznego dealera brak — dla czesci osob to minus.

    Pakiet na start w FieryPlay to 100% do 1500 zl plus spiny plus 100 FS, wydawane po 20 dziennie. Obrot x35 — standard w tej branzy. Widzialem takze 20 spinow bez wplaty za weryfikacje, ale to raczej okazjonalnie. Zerknij na warunki zanim klikniesz — promocje rotuja dosc szybko, najnowsze warunki sa opisane na [url=https://swizzpools.com/]fieryplay[/url] zanim zalozysz konto.

    Rejestracja zajela mi niecale trzy minuty, minimalna wplata 20 zl. Wplacam Visa, ale sa tez Skrill, Neteller i krypto. Wyplaty w FieryPlay na e-portfel schodza w kilka godzin, karta to juz dwa-trzy dni. KYC na start — dowod plus rachunek, nic strasznego.

    Na telefonie smiga w przegladarce, nie ma appki, strona radzi sobie dobrze. Czat z supportem FieryPlay odpisuje po polsku bez dluzszego czekania, raz musialem powtorzyc pytanie dwa razy. Licencja Curacao — nie jest to najmocniejszy papier na rynku. Narzedzia do samokontroli sa, sprawdzalem.

    # agosto 27, 2026
  39. Kai Kai

    united kingdom is gambling at home illegal in nsw (Kai) news, real usa online casino and canada best slot machine,
    or online blackjack canada paypal

    # agosto 27, 2026
  41. Coreycrits Coreycrits

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

    # agosto 27, 2026
  44. Georgenem Georgenem

    Соблюдаем конфиденциальность, бережно общаемся с пациентом и его близкими на каждом этапе.
    Подробнее – [url=https://a.vyvod-iz-zapoya-v-krasnoyarske17.ru/]вывод из запоя в стационаре Красноярск[/url]

    # agosto 27, 2026

Deixe um comentário

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