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

  33. 888starz apk_gnOr 888starz apk_gnOr

    888starz تحميل [url=https://theracingbicycle.com/daleel-tahmeel-888starz-mobile/]888starz تحميل[/url]
    يمثل 888starz apk الطريقة الأسرع للحصول على التطبيق على أجهزة أندرويد في مصر.

    لا تستغرق عملية التنزيل سوى ثوانٍ معدودة نظرًا لصغر حجم الملف.

    تنتهي عملية التثبيت خلال دقيقة تقريبًا ليظهر أيقونة التطبيق على الشاشة الرئيسية.

    يجمع تطبيق أندرويد بين ألعاب الكازينو والمراهنات الرياضية في مكان واحد.

    يعمل التطبيق على معظم إصدارات أندرويد الحديثة ولا يحتاج جهازًا قويًا.

    تتوفر جميع العروض والبونصات داخل تطبيق أندرويد من دون استثناء.

    # julho 15, 2026
  35. true fortune casino_qbol true fortune casino_qbol

    True Fortune casino is one of the most popular online casinos among players in the United Kingdom.
    A dedicated live casino streams real-dealer roulette, blackjack and baccarat around the clock.
    New players in the United Kingdom can claim a generous welcome bonus with free spins on their first deposit.
    true casino [url=true-fortune.com]true casino[/url]
    Verified players enjoy speedy payouts through their preferred method.
    Players in the United Kingdom can use built-in tools to keep their gambling under control.
    The site is fully responsive, adapting to any screen size on the go.

    # julho 15, 2026
  37. 888starz apk_fjOr 888starz apk_fjOr

    888starz apk download [url=https://theracingbicycle.com/daleel-tahmeel-888starz-mobile/]888starz apk download[/url]
    يقدم التطبيق واجهة عربية واضحة تسهّل الاستخدام على لاعبي مصر.

    يبدأ تحميل ملف apk فور اختيار نسخة أندرويد من الموقع الرسمي.

    لا يستغرق التثبيت وقتًا طويلًا ويمكن تسجيل الدخول مباشرة بعده.

    تتم عمليات الإيداع والسحب داخل التطبيق بالطرق نفسها المتاحة على الموقع.

    يحمي التحميل من المصدر الموثوق بيانات الحساب وأموال اللاعب.

    يمكن التواصل مع خدمة العملاء مباشرة من التطبيق عبر الدردشة الحية.

    # julho 15, 2026
  39. 888starz_etkn 888starz_etkn

    888Starz rasmiy sayti O’zbekistonda kazino o’yinlari va sport tikishlari uchun asosiy maydon hisoblanadi.

    888Starz rasmiy saytining kazino bo’limida minglab slot va stol o’yinlari mavjud.

    888starz скачать iphone [url=888stars9.com/apk]888starz скачать iphone[/url]

    888Starz rasmiy saytining sport bo’limi 50 dan ortiq sport turiga tikish imkonini beradi.

    Rasmiy sayt barcha aksiyalarni topish oson bo’lgan aniq bo’limda namoyish etadi.

    Rasmiy saytda ro’yxatdan o’tish telefon, email yoki bir bosishda bir necha daqiqada amalga oshiriladi.

    # julho 15, 2026
  40. 888starz_oimt 888starz_oimt

    888Starz rasmiy platformasi o’zbek tilini qo’llab-quvvatlaydi va sodda dizaynga ega.

    Rasmiy sayt sutka davomida ishlaydigan jonli kazino stollarini taqdim etadi.

    Rasmiy sayt raqobatbardosh koeffitsiyentlar bilan jonli tikish rejimini taklif etadi.

    888 старз бэт [url=https://888stars5.com/]888 старз бэт[/url]

    Foydalanuvchilar uchun haftalik keshbek va promo aksiyalar doimiy ravishda mavjud.

    888Starz yangi hisobni bir necha usulda, atigi bir necha daqiqada yaratish imkonini beradi.

    # julho 15, 2026
  41. true_efOt true_efOt

    true fortune bonus codes [url=http://www.true-fortune-casino14.com/bonus/]true fortune bonus codes[/url]
    Everything from slots to live tables is available on the official True Fortune site.

    Live blackjack, roulette and game shows are available at any time of day.

    Every wager earns loyalty points that can be exchanged for bonus credit.

    Topping up an account is instant with no fees on most payment methods.

    The casino is licensed and applies strong security to keep accounts and funds safe.

    The mobile casino runs smoothly in any browser with no download required.

    # julho 15, 2026
  44. 888starz apk_xrOr 888starz apk_xrOr

    888starz download [url=https://theracingbicycle.com/daleel-tahmeel-888starz-mobile/]888starz download[/url]
    يمنح 888starz apk إمكانية التثبيت المباشر على الجهاز بعيدًا عن المتاجر الرسمية.

    يتم تنزيل التطبيق خلال وقت قصير حتى مع اتصال إنترنت متوسط السرعة.

    تنتهي عملية التثبيت خلال دقيقة تقريبًا ليظهر أيقونة التطبيق على الشاشة الرئيسية.

    تتم عمليات الإيداع والسحب داخل التطبيق بالطرق نفسها المتاحة على الموقع.

    يضمن التنزيل من الموقع الرسمي حصول المستخدم على نسخة آمنة وسليمة.

    يعمل الدعم الفني داخل التطبيق على مدار الساعة بالعربية والإنجليزية.

    # julho 15, 2026

Deixe um comentário

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