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

10.109 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

Deixe um comentário

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