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

  6. bitcoin_ywKt bitcoin_ywKt

    Also ich spiele jetzt seit ein paar Monaten und ganz ehrlich, zu Beginn hatte ich meine Zweifel, ob so ein Laden mit Krypto uberhaupt was taugt. Durch nen Bekannten aus dem Forum da reingerutscht, der seit Ewigkeiten bitcoin online poker spielt, und tja – hangen geblieben bin ich dann irgendwie. Fur uns hier in Deutschland ist das ohnehin manchmal echt zah, was Ein- und Auszahlungen angeht, dazu spater.

    Beim Angebot wird einem nicht langweilig – wurde sagen irgendwas um die 2000 Titel, alles in allem. Die gro?en Namen sind alle dabei: Pragmatic Play mit Gates of Olympus und Sweet Bonanza, Book of Dead, ruckelt nichts. Die Live-Ecke ist von Evolution, mit echten Croupiers und Kram wie Crazy Time, da hab ich abends gerne mal zu lange. Und klar, das Herz ist fur mich halt der Pokertisch – Bitcoin Poker eben, deswegen bin ich hier.

    Zum Bonus: ich hab 100% bis 500 Euro plus 200 Freispiele, verteilt uber mehrere Tage. Die Umsatzbedingung betragt x35, geht klar ehrlich gesagt, schaut euch die AGB genau an. Ab und zu laufen Freerolls fur lau, so kann man antesten ganz entspannt das Ganze. Die neuesten Angebote findet ihr am besten druben bei [url=https://best-bitcoin-poker.de/bitcoin-poker-sites]biggest online poker with bitcoin[/url] an, bevor ihr euch anmeldet, ist meist aktueller als der Support.

    Kommen wir zum Kritikpunkt – Withdrawals. Per Bitcoin gings bei mir richtig schnell, da kann ich nicht meckern. Beim Versuch mit uber Skrill wollte, hats zwei Tage gedauert und das Ausweis-Hochladen zog sich. Die ublichen Zahlwege gehen alle, unterm Strich der Witz an der Sache ist, dass es eben schneller und anonymer geht. Kleinster Einsatz waren 20 Euro, Anmeldung ging in funf Minuten.

    Mobil lauft es uberraschend gut – App ist vorhanden furs Handy, und im Browser klappt es problemlos. Der Support 24/7 uber Live-Chat, Deutsch ging etwas holprig, englisch ging aber immer. Lizenztechnisch passt es, das check ich immer. Wer aus DE kommt, die mal Poker mit Bitcoin antesten mochten – ich zock weiter, schaun wir mal.

    # julho 29, 2026
  25. OllieOpive OllieOpive

    Свежие новости кино https://kino24.tv сериалов и мира кинематографа. Следите за премьерами, трейлерами, обзорами, рецензиями, кассовыми сборами, новостями стриминговых сервисов, интервью со звездами и главными событиями индустрии кино.

    # julho 29, 2026
  28. Narkolog na dom_ypma Narkolog na dom_ypma

    Здорова, народ Близкий человек уже несколько дней в запое Жена в истерике Таблетки не помогают Короче, только это реально спасло — нарколог дом с капельницей Приехал через 40 минут В общем, вся инфа по ссылке — услуги врача нарколога [url=https://kapelnicza.narkolog-na-dom-voronezh18.ru]https://kapelnicza.narkolog-na-dom-voronezh18.ru[/url] Не ждите пока станет хуже Перешлите тем кто в такой же ситуации

    # julho 29, 2026
  34. Narkolog na dom_myMt Narkolog na dom_myMt

    Здорова, народ Близкий человек уже несколько дней в запое Родственники не знают что делать Нужен врач прямо сейчас Короче, только это реально спасло — вызов нарколога на дом воронеж быстро Через пару часов человек пришёл в себя В общем, телефон и цены тут — вызвать наркологическую помощь [url=https://zapoj.narkolog-na-dom-voronezh17.ru]https://zapoj.narkolog-na-dom-voronezh17.ru[/url] Не ждите пока станет хуже Перешлите тем кто в такой же ситуации

    # julho 29, 2026
  39. Narkolog na dom_qwMt Narkolog na dom_qwMt

    Здорова, народ Ситуация критическая Родственники не знают что делать Таблетки не помогают Короче, единственный кто реально помог — врач нарколог на дом с препаратами Осмотрел и поставил капельницу В общем, телефон и цены тут — наркологическая помощь на дому [url=https://zapoj.narkolog-na-dom-voronezh17.ru]наркологическая помощь на дому[/url] Нарколог на дом — это реальный выход Перешлите тем кто в такой же ситуации

    # julho 30, 2026
  49. u888 u888

    I read this piece of writing completely regarding the difference of newest and earlier technologies, it’s
    amazing article.

    # julho 30, 2026

Deixe um comentário

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