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

14.979 Comentários

  1. crazy_krmn crazy_krmn

    Boh, non so se capita anche a voi ma — bazzico su Crazy Time da tipo un anno e mezzo, senza grandi pretese, e la cosa che mi ha preso di piu non e tanto la ruota in se quanto il contorno. Due righe per chi arriva ora: e un game show di Evolution, ruota da 54 settori con 1, 2, 5, 10 e i quattro bonus: Coin Flip, Cash Hunt, Pachinko e il Crazy Time vero e proprio. Sopra c’e Top Slot, che e quella che puo raddoppiare o moltiplicare il settore.

    Il mio vizio e tenere aperta una tab con le statistiche prima di guardo il tavolo. Tipo l’elenco delle ultime uscite, quanti spin manca un bonus, quante volte e girato il 10 nelle ultime cento mani. Pero, e lo dico perche ci sono cascato io: quei numeri non ti dicono niente sul prossimo spin. Ogni spin e a se, il ritorno teorico gira sul 95-96% in base al settore e finisce li. Se un bonus e in ritardo di 70 spin non vuol dire che sta per uscire — quella e la classica trappola mentale.

    Allora perche le guardo? Sinceramente piu per gestire me stesso che per indovinare: mi aiuta a capire quanto sto giocando e a staccare quando e il momento. Se vi interessa vedere come si impostano quei dati, uso [url=https://zona-bellezza.com/]stata crazy time[/url] che tiene lo storico aggiornato senza troppi fronzoli. Vedetelo come un diario, non come un oracolo, non come una formula.

    I quattro bonus secondo me sono il vero cuore della cosa. Cash Hunt con i 108 moltiplicatori coperti e un casino totale e la scelta della casella e puro caso, Pachinko con il raddoppio sa diventare lunga, Coin Flip e la piu rapida. Quello che mi da sui nervi sono i tempi morti: l’attesa tra gli spin e lunghetta e se giochi da mobile con la linea ballerina ti perde il video a meta bonus. Successo due volte e non e piacevole.

    Chiudo con la parte noiosa ma importante: giocate solo su operatori con licenza ADM. In Italia il tavolo live di Crazy Time e sempre quello di Evolution, ma il discorso cambia su chi ti tiene i soldi. Girano siti senza concessione e poi lamentarsi che non li pagano. Il croupier dall’altra parte e reale e la ruota e fisica, questo si, pero il banco mantiene il suo vantaggio sempre. Giocate poco, tenete il conto, e se le statistiche vi stanno facendo inseguire un bonus, chiudete la pagina.

    # novembro 13, 2026
  26. Scott Scott

    the top online pokies and casinos in united states 60fps, blackjack app
    play with friends (Scott) free australian poker machines and online craps australia, or is top online pokies
    and casinos united states pokies

    # novembro 14, 2026
  29. Dian Dian

    free australian pokies wheres the gold, slot machines canada for
    sale and free bonus no deposit uk slots, or nz online casinos that accept
    paypal

    my page – baccarat system profits guaranteed (Dian)

    # novembro 14, 2026

Deixe um comentário

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