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

  8. fieryplay_ajOi fieryplay_ajOi

    Siedze tu od dobrych paru miesiecy, wiec juz chyba wypada cos dorzucic od siebie. Znalazlem to przypadkiem, bo mialem dosc czekania po tydzien na kase gdzie indziej. To co FieryPlay ma w lobby jest spore — cos ponad 3000 tytulow, przede wszystkim Pragmatic Play, Play’n GO, NetEnt i troche Yggdrasil i paroma rzeczami od Big Time Gaming.

    Ja najwiecej klikam Sweet Bonanza i Book of Dead, standard, nie ma co ukrywac. Fajnie ze demo dziala bez logowania, przetestowalem pare nowosci zanim wplacilem cokolwiek. Wyszukiwarka niestety kuleje — po dostawcy da sie filtrowac, ale po volatility juz nie.

    Dzial z krupierami stoi na Evolution i to czuc. Blackjack, ruletka, plus te ich show typu Crazy Time — potrafi wciagnac na dluzej niz zakladalem. Krupierzy to zywe osoby, glownie po angielsku, na polski stol nie trafilem — dla czesci osob to minus.

    Pakiet na start w FieryPlay to 100% do 2000 zl z setka darmowych spinow, rozbite na kilka dni. Wager x35 — standard w tej branzy. Widzialem takze drobne no deposit spiny po potwierdzeniu telefonu, nie liczylbym na to na stale. Zerknij na warunki zanim klikniesz — kody potrafia sie zmieniac z miesiaca na miesiac, biezace promo znajdziesz na [url=https://swizzpools.com/]fiery play casino[/url] jesli chcesz sprawdzic przed rejestracja.

    Rejestracja zajela mi dwie minuty, od 20 zl mozna zaczac. Wrzucam kase Mastercardem, ale sa tez Skrill, Neteller i platnosci w BTC. Kasa wychodzi ida szybko na portfele, przelew na karte wolniej. Weryfikacja za pierwszym razem — dowod plus rachunek, nic strasznego.

    Z komorki gram bez aplikacji, apki nie ma i chyba nie potrzeba. Czat z supportem na FieryPlay odpisal mi po polsku bez dluzszego czekania, chociaz raz dostalem odpowiedz zywcem z FAQ. Licencja Curacao — nie jest to najmocniejszy papier na rynku. Limitow na siebie nie ustawialem, ale opcja jest w profilu.

    # agosto 30, 2026
  10. JerrySeart JerrySeart

    Показанием к стационарному лечению служат случаи, при которых домашняя терапия становится небезопасной или недостаточно эффективной. Рекомендуем госпитализацию при:
    Углубиться в тему – https://narkologicheskaya-klinika-ufa9.ru

    # agosto 30, 2026
  27. fieryplay_xfOi fieryplay_xfOi

    Siedze tu mniej wiecej od kwietnia, wiec mam prawo cos skrobnac. Znalazlem to z polecenia kolegi, z prostego powodu — wkurzalo mnie czekania po tydzien na kase gdzie indziej. Sam lobby FieryPlay jest spore — gdzies kolo 3000 pozycji, w wiekszosci Pragmatic Play, Play’n GO, NetEnt i troche Yggdrasil i Betsoftem.

    Sam siedze najczesciej na Sweet Bonanza i Book of Dead, banal, wiem. Fajnie ze wersje demo sa dostepne od reki, przetestowalem pare nowosci zanim wrzucilem prawdziwa kase. Sortowanie gier natomiast jest przecietne — brakuje mi filtra po zmiennosci.

    Sekcja live stoi na Evolution co akurat jest zaleta. Klasyka: ruletka, blackjack, i oczywiscie game shows typu Crazy Time — wieczorami potrafie tam zostac dluzej niz planowalem. Krupierzy realni, w wiekszosci anglojezyczni, na polski stol nie trafilem — dla czesci osob to minus.

    Bonus powitalny na FieryPlay to 100% do 2000 zl z setka darmowych spinow, wydawane po 20 dziennie. Wager x35 — ani rewelacja, ani dramat. Widzialem takze drobne no deposit spiny po potwierdzeniu telefonu, choc to akcja czasowa. Regulamin przeczytaj zanim klikniesz — oferta bywa inna niz tydzien wczesniej, najnowsze warunki sa opisane na [url=https://swizzpools.com/]fieryplay casino[/url] dla pewnosci.

    Konto zrobilem w niecale trzy minuty, od 20 zl mozna zaczac. Place karta, ale sa tez Skrill, Neteller i krypto. Kasa wychodzi na Skrilla przyszly mi tego samego dnia, karta to juz dwa-trzy dni. Weryfikacja przy pierwszej wyplacie — standard, poszlo gladko.

    Na telefonie gram bez aplikacji, apki nie ma i chyba nie potrzeba. Obsluga FieryPlay odpisuje po polsku w kilka minut, chociaz raz dostalem odpowiedz zywcem z FAQ. Licencja Curacao — dla mnie ok, ale kazdy niech oceni sam. Limity depozytu da sie ustawic w ustawieniach konta.

    # agosto 30, 2026
  48. Pacasino Pacasino

    usa casinos that accept paypal, online trusted casino usa and buy
    pokie machine usa, or free online games win real money no deposit usa

    My page: Pacasino

    # agosto 30, 2026
  50. Rosalind Rosalind

    ontario australia online casino table games blackjack [Rosalind], poker usa artrix and gambling
    in the uk statistics, or best slot games online uk

    # agosto 30, 2026

Deixe um comentário

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