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
каталог [url=https://trip75at.us/]трипскан вход[/url]
посмотреть на этом сайте [url=https://trip75at.us]трипскан вход[/url]
apuestas campeón mundial
Stop by my site … Basketball-Wetten.com
consejos apuestas deportivas (Brooks) de ufc
Real Madrid Barcelona Apuestas en linea chile
casa pronóstico de apuestas deportivas (Jere) apuestas sin minimo de ingreso
lastschrift casino bonus ohne einzahlung (Everette) 2 euro startguthaben
betsson tu sitio de apuestas trucos (Israel) online
Нарколог на дом в Казани — это срочная медицинская помощь пациенту при запое, похмелья, интоксикации, абстинентного синдрома, наркотической ломки и других ситуациях, когда человеку сложно самостоятельно обратиться в клинику. Врач приезжает на дом, проводит осмотр, диагностику состояния, подбирает препараты, ставит капельница и дает рекомендации по дальнейшему лечению зависимости.
Получить дополнительные сведения – [url=https://narkolog-na-dom-kazan24.ru/]нарколог на дом анонимно казань[/url]
[url=https://888stars-egy.com]888starz الموقع الرسمي[/url] هي منصة مراهنات عبر الإنترنت تقدم ألعاب كازينو وخيارات رهان متنوعة للمستخدمين العرب.
888starz هي منصة ترفيهية تقدم تجارب لعب متميزة.
القسم الثاني:
تضم 888starz مكتبة ألعاب متنوعة تشمل السلاسل الكلاسيكية والجديدة.
القسم الثالث:
تدعم 888starz أنظمة دفع متعددة لتسهيل المعاملات المالية.
القسم الرابع:
تسهم برامج الولاء في تقديم مزايا مخصصة للمستخدمين النشطين.
https://www.liveinternet.ru/users/omnivatic/ – лучший сайт для астрологии
legales Online Casino Mit Google Pay Einzahlung ohne sperrdatei
neue spielbank
Feel free to surf to my site; Online Glücksspiel schleswig-holstein (https://Bajkowyswiatwitkowo.pl/)
Echtes Online Casino casino 4 euro einzahlung paypal
bonus buy slots mit bonus
Here is my blog post 4 euro freispiele (Wilda)
spielbank berlin online spielen
my web blog keno Gewinntabelle
estrategias apuestas con handicap asiatico tenis
online casino deutschland nur in schleswig holstein
my website … slots mit paypal
online casino cashback bonus casino 250 prozent bonus
К каждому развлечению прилагаются пояснения и диапазоны ставок, позволяющие ориентироваться и выбирать оптимальные условия игры.
888starz скачать на айфон testflight [url=888starz-uzb4.com/apk]https://888starz-uzb4.com/apk/[/url]
[url=https://888starzs6.com]استار 888[/url] هو موقع للمراهنات والألعاب الإلكترونية يقدم خدمات تسجيل الدخول والدعم بلغات متعددة.
تتميز واجهة 888starz بالبساطة والوضوح للمستخدمين الجدد.
القسم الثاني:
تقدم 888starz مجموعات من الألعاب تشمل السلوتس والبث الحي والرياضات الافتراضية.
القسم الثالث:
تقدم 888starz بونصات وعروض ترحيبية ومكافآت للاعبين الحاليين والجدد.
القسم الرابع:
تطبق 888starz إجراءات أمان متقدمة لحماية الحسابات والتعاملات المالية.
[url=https://888starzs6.com]8888 website[/url] هو موقع للمراهنات والألعاب الإلكترونية يقدم خدمات تسجيل الدخول والدعم بلغات متعددة.
تُصمم واجهة 888starz بعناية لتسهيل تجربة اللاعب.
القسم الثاني:
التنوع في الألعاب يمنح المستخدمين خيارات تناسب تفضيلاتهم المختلفة.
القسم الثالث:
توفر 888starz عروضًا ترويجية ومكافآت للمستخدمين الجدد والمستمرين.
القسم الرابع:
تولي 888starz اهتمامًا لحماية بيانات المستخدمين وسلامة المعاملات.
[url=https://888starzs7.com]888starz africa[/url]
تقدم المنصة دعمًا فنيًا مستمرًا لمساعدة المستخدمين في استكشاف المنصة والاستفادة منها.
القسم الثاني:
تدعم الألعاب نظامًا عادلاً وشفافًا يراعي قواعد اللعب النزيه.
القسم الثالث:
توفر المنصة أدوات معلوماتية مثل جداول المباريات وإحصاءات اللاعبين لتسهيل الاختيار.
القسم الرابع:
تلتزم 888starz بالامتثال للقوانين واللوائح المعمول بها في الأسواق التي تعمل فيها.
[url=https://888stars-egy.com]starz888[/url] هي منصة مراهنات عبر الإنترنت تقدم ألعاب كازينو وخيارات رهان متنوعة للمستخدمين العرب.
تسعى 888starz للحفاظ على بيئة لعب مسؤولة ومحافظة على خصوصية المستخدمين.
القسم الثاني:
تحتوي المكتبة على ألعاب رياضية وحظ وألعاب بطاقات متطورة.
القسم الثالث:
تدعم 888starz أنظمة دفع متعددة لتسهيل المعاملات المالية.
القسم الرابع:
تستضيف المنصة حملات ومكافآت دورية لتحفيز اللاعبين على المشاركة.
[url=https://888stars-egy.com]888satrz[/url] هي منصة مراهنات عبر الإنترنت تقدم ألعاب كازينو وخيارات رهان متنوعة للمستخدمين العرب.
تُعتبر 888starz منصة متكاملة تقدم مجموعة واسعة من الألعاب.
القسم الثاني:
تُحدّث القائمة باستمرار لتشمل إصدارات جديدة وعروض موسمية.
القسم الثالث:
توفّر المنصة خيارات دفع متنوعة تراعي احتياجات المستخدمين المختلفة.
القسم الرابع:
تقدم 888starz عروضًا ترويجية ومكافآت لزيادة تفاعل المستخدمين.
Платформа уделяет большое внимание безопасности пользователей, применяя передовые методы шифрования и защиты данных.
88starz [url=https://888starz-uzb6.com/]https://888starz-uzb6.com[/url]
Мобильное приложение и адаптивный сайт обеспечивают комфортную игру с любого устройства.
888starz apk download [url=http://www.888starz-uzb6.com/apk]https://888starz-uzb6.com/apk/[/url]
app de apuestas futbol
Here is my blog :: basketball-wetten.com
Раздел с играми включает слоты, настолки и live-румы с живыми дилерами для тех, кто предпочитает реалистичный игровой процесс.
888starz demo [url=http://www.888starz-uzb4.com/]https://888starz-uzb4.com[/url]
888starz — это современная онлайн-платформа, предлагающая развлекательные игры и свежие бонусы для новых и постоянных игроков.
888старс [url=http://888starz-uzb4.com/]https://888starz-uzb4.com[/url]
[url=https://888starzs6.com]موقع 8888[/url] هو موقع للمراهنات والألعاب الإلكترونية يقدم خدمات تسجيل الدخول والدعم بلغات متعددة.
تُعرف 888starz كمنصة رائدة تقدم تجارب ترفيهية ومراهنات مبتكرة.
القسم الثاني:
توفر الألعاب المتنوعة فرصًا للترفيه لكل فئات اللاعبين.
القسم الثالث:
يفضل الاطلاع على قواعد العروض لتحقق الاستفادة القصوى دون مشكلات.
القسم الرابع:
تولي 888starz اهتمامًا لحماية بيانات المستخدمين وسلامة المعاملات.
[url=https://888starzs6.com]88sta[/url] هو موقع للمراهنات والألعاب الإلكترونية يقدم خدمات تسجيل الدخول والدعم بلغات متعددة.
منصة 888starz تعتبر من أبرز منصات الألعاب والترفيه في العصر الرقمي.
القسم الثاني:
التنوع في الألعاب يمنح المستخدمين خيارات تناسب تفضيلاتهم المختلفة.
القسم الثالث:
تُسهم المكافآت في منح اللاعبين موارد إضافية لتجربة أوسع.
القسم الرابع:
تتوفر في 888starz أنظمة تشفير وبروتوكولات أمنية للحفاظ على البيانات.
Публикация охватывает основные направления развития современной медицины. Мы обсудим значимость научных исследований, инноваций в лечении и роли общественного участия в формировании системы здравоохранения.
Посмотреть подробности – [url=https://diabet12.ru/%d0%b1%d0%b5%d0%b7-%d1%80%d1%83%d0%b1%d1%80%d0%b8%d0%ba%d0%b8/saharnyj-diabet-i-alkogol-skrytaya-ugroza-v-kazhdoj-ryumke/]выведение из запоя на дому в екатеринбурге[/url]
[url=https://888starzs8.com]888straz[/url]
تُعد 888starz خدمة متكاملة تركز على الألعاب الإلكترونية والترفيه وتستهدف المستخدمين الباحثين عن تجربة ألعاب آمنة وممتعة.
[url=https://888starzs7.com]888sta[/url]
تجمع المنصة بين واجهة مستخدم سهلة ووصول سريع إلى الخيارات المتاحة.
القسم الثاني:
تُحدّث المكتبة بانتظام لتضيف ألعابًا جديدة ومثيرة لتحقيق تجدد مستمر.
القسم الثالث:
تشمل خدمات 888starz سوقًا واسعًا للمراهنات الرياضية مع تنوع في أنواع الرهانات المتاحة.
القسم الرابع:
تسعى المنصة للحفاظ على بيئة تشريعية سليمة عبر الالتزام بالمعايير المحلية والدولية.
Для защиты пользовательской информации применяются современные протоколы шифрования и партнерские платежные системы с высокой репутацией.
888stars [url=https://www.888starz-uzb4.com]https://888starz-uzb4.com[/url]
Пользовательский интерфейс продуман: найти нужную игру или событие легко и быстро.
888starz official website [url=https://www.888starz-uzb6.com]https://888starz-uzb6.com[/url]
[url=https://888starzs8.com]استار 888[/url]
يقدّم الدعم الفني في 888starz استجابة سريعة وفعّالة لاستفسارات اللاعبين.
Интерфейс сервиса интуитивно понятен и оптимизирован под разные экраны.
888 apk [url=http://www.888-uz10.com/apk]https://888-uz10.com/apk/[/url]
Игровое предложение охватывает классические слоты, настольные дисциплины и трансляции с живыми дилерами для разнообразия игрового опыта.
888satrz [url=https://888starz-uzb4.com/]https://888starz-uzb4.com[/url]
Платформа уделяет большое внимание безопасности пользователей, применяя передовые методы шифрования и защиты данных.
888 skachat [url=https://888starz-uzb6.com/apk/]https://888starz-uzb6.com/apk/[/url]
[url=https://888starzs7.com]تسجيل دخول برنامج 888[/url]
تقدم 888starz تجربة شاملة للمستخدمين الباحثين عن الترفيه والمراهنات وألعاب الكازينو.
القسم الثاني:
تعتمد المنصة سياسات صارمة لضمان نزاهة النتائج وحماية المستخدمين.
القسم الثالث:
توفر المنصة أدوات معلوماتية مثل جداول المباريات وإحصاءات اللاعبين لتسهيل الاختيار.
القسم الرابع:
تلتزم 888starz بالامتثال للقوانين واللوائح المعمول بها في الأسواق التي تعمل فيها.
[url=https://888stars-egy.com]وكيل سحب وايداع 888starz[/url] هي منصة مراهنات عبر الإنترنت تقدم ألعاب كازينو وخيارات رهان متنوعة للمستخدمين العرب.
يستفيد اللاعبون من واجهة منظمة تساعدهم على العثور بسرعة على ما يرغبون به.
القسم الثاني:
تُحدّث القائمة باستمرار لتشمل إصدارات جديدة وعروض موسمية.
القسم الثالث:
تولي المنصة اهتمامًا كبيرًا بأمن المعاملات والبيانات الشخصية.
القسم الرابع:
تخطط 888starz لتطوير خدماتها وتقديم تجربة أكثر ابتكارًا للمستخدمين.
[url=https://888starzs6.com]ستار مرهنات[/url] هو موقع للمراهنات والألعاب الإلكترونية يقدم خدمات تسجيل الدخول والدعم بلغات متعددة.
تُعد 888starz واحدة من أشهر منصات المراهنات والترفيه عبر الإنترنت.
القسم الثاني:
تنوع الألعاب يساعد على تلبية أذواق اللاعبين المتباينة.
القسم الثالث:
تقدم 888starz بونصات وعروض ترحيبية ومكافآت للاعبين الحاليين والجدد.
القسم الرابع:
بالرغم من المزايا يجب على المستخدمين اللعب بمسؤولية وتحديد حدود ميزانيتهم.
[url=https://888starzs7.com]stars 888[/url]
تعرّف منصة 888starz على نفسها كموقع رائد في عالم الألعاب والترفيه عبر الإنترنت.
القسم الثاني:
تعتمد المنصة سياسات صارمة لضمان نزاهة النتائج وحماية المستخدمين.
القسم الثالث:
تقدم 888starz عروضًا ترحيبية وبونصات دورية لزيادة فرص الربح وتحفيز الاستخدام.
القسم الرابع:
تتوفر في المنصة طرق دفع متعددة تلبي احتياجات المستخدمين في مناطق مختلفة.
[url=https://888starzs7.com]888starz.com[/url]
تجمع المنصة بين واجهة مستخدم سهلة ووصول سريع إلى الخيارات المتاحة.
القسم الثاني:
تعتمد المنصة سياسات صارمة لضمان نزاهة النتائج وحماية المستخدمين.
القسم الثالث:
تعتمد سياسة مكافآت مرنة تجذب اللاعبين وتكافئ نشاطهم على المنصة.
القسم الرابع:
تدعم 888starz وسائل إيداع وسحب متنوعة بما يشمل بطاقات الدفع الإلكتروني والمحافظ الرقمية وخيارات محلية.
интернет https://trip75-at.cc
После создания аккаунта игроки получают возможность внести средства и воспользоваться бонусными предложениями.
888 stars [url=https://888starz-uzb6.com]888 stars[/url].
[url=https://888starzs8.com]8888starz[/url]
يركز هذا القسم على تجارب اللاعبين وآرائهم في المنصة وتطور جودة الخدمات.
At this time I am going away to do my breakfast, later than having my breakfast coming
yet again to read more news.