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

  4. crazy_kmmn crazy_kmmn

    Non so quanti di voi — gioco a Crazy Time da tipo un anno e mezzo, senza grandi pretese, e la cosa che mi e rimasta addosso non e il giro della ruota ma il contorno. Due righe per chi arriva ora: e un game show di Evolution, la ruota ha 54 spicchi con 1, 2, 5, 10 e i quattro bonus: Coin Flip, Cash Hunt, Pachinko e il Crazy Time vero e proprio. Piu la Top Slot, che abbina moltiplicatore e settore.

    Il mio vizio e tenere aperta una pagina di statistiche prima di gioco. Tipo l’elenco delle ultime uscite, quanti spin manca un bonus, la distribuzione dei settori sull’ultimo centinaio. Pero, e lo dico perche ci sono cascato io: lo storico non predice nulla. Ogni giro e indipendente, l’RTP sta intorno al 95-96% a seconda della puntata e basta. 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? Onestamente per disciplina mia, non per previsioni: vedo quanti giri ho fatto e quanto ho messo e a staccare quando e il momento. Se vi interessa vedere come si impostano quei dati, uso [url=https://zona-bellezza.com]crazy fime stats[/url] che tiene lo storico aggiornato senza 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 li il fattore fortuna e assoluto, Pachinko ha quel DOUBLE che puo allungare la giocata, Coin Flip e la piu rapida. Il lato che mi pesa e il ritmo: l’attesa tra gli spin e lunghetta e in mobile, con la connessione dei treni italiani, lo streaming scatta proprio sul bonus. Successo due volte e non e piacevole.

    Un’ultima cosa che per me non e negoziabile: solo concessionari ADM. Qui in Italia il tavolo live di Crazy Time e sempre quello di Evolution, ma il discorso cambia su chi ti tiene i soldi. Ho visto gente finire su siti.com senza concessione e poi ci sono i problemi. Il croupier dall’altra parte e reale e la ruota gira davvero, su questo nulla da dire, pero il banco mantiene il suo vantaggio sempre. Tenete basso, tenete il conto, e se le statistiche vi stanno facendo inseguire un bonus, chiudete la pagina.

    # novembro 13, 2026
  7. crazy_mcmn crazy_mcmn

    Allora, premessa — gioco a Crazy Time da tipo un anno e mezzo, piu per curiosita che altro, e la cosa che mi ha preso di piu non e tanto la ruota in se quanto tutta la parte di numeri. Due righe per chi arriva ora: e un live game show firmato Evolution, ruota da 54 settori dove trovi 1, 2, 5, 10 e i quattro bonus: Coin Flip, Cash Hunt, Pachinko e il bonus che da il nome al gioco. E sopra ci sta Top Slot, che abbina moltiplicatore e settore.

    La mia abitudine e aprire una pagina di statistiche mentre guardo il tavolo. Tipo l’elenco delle ultime uscite, quanti spin manca un bonus, la distribuzione dei settori sull’ultimo centinaio. Attenzione pero, e lo scrivo perche all’inizio ci credevo: quei numeri non ti dicono niente sul prossimo spin. Ogni giro e indipendente, il ritorno teorico gira sul 95-96% in base al settore e basta. 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? Onestamente per disciplina mia, non per previsioni: vedo quanti giri ho fatto e quanto ho messo e a staccare quando e il momento. Se vi interessa vedere come si impostano queste tabelle, io mi appoggio a [url=zona-bellezza.com]https://zona-bellezza.com/[/url] che tiene lo storico aggiornato senza troppi fronzoli. Prendetelo come uno strumento di lettura, non come una formula.

    Le bonus game sono il motivo per cui il gioco regge. Cash Hunt con i 108 moltiplicatori coperti e un casino totale e li il fattore fortuna e assoluto, Pachinko ha quel DOUBLE che puo allungare la giocata, Coin Flip e la piu rapida. La cosa che mi infastidisce un po’ sono i tempi morti: tra un giro e l’altro passa tanto tempo e in mobile, con la connessione dei treni italiani, lo streaming scatta proprio sul bonus. A me e capitato piu di una volta e non e piacevole.

    Chiudo con la parte noiosa ma importante: giocate solo su operatori con licenza ADM. Qui in Italia i tavoli di Crazy Time sono gli stessi di Evolution, pero la differenza la fa l’operatore. Ho visto gente finire su siti.com senza concessione e poi ci sono i problemi. Il croupier dall’altra parte e reale e la ruota gira davvero, su questo nulla da dire, pero il banco mantiene il suo vantaggio sempre. Tenete basso, segnatevi quanto spendete, e se vi accorgete che state rincorrendo, spegnete.

    # novembro 13, 2026

Deixe um comentário

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