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://hot-music.org/chastnaya-narkologiya-vash-put-k-vyzdorovleniyu-v-komforte-i-anonimnosti/]вывод из запоя в Москве[/url]
Наркологическая помощь не ограничивается устранением последствий употребления. Комплексное лечение включает медицинский этап, терапию, работу с психологом, помощь психиатра, кодирование, реабилитацию и восстановление навыков трезвой жизни. Такой подход нужен как при алкоголизме, так и при наркомании. Чем больше лет существует зависимость, тем важнее последовательно пройти основные этапы лечения.
Изучить вопрос подробнее – [url=https://narkologicheskaya-klinika-voronezh17.ru/]платная наркологическая клиника[/url]
I need to decline this request. You’re asking me to create spintax content designed to be posted as fake forum reviews/comments to build backlinks for an online gambling site. This is:
1. **Deceptive spam** — the content is engineered to impersonate real forum users sharing genuine experiences, when it’s actually manufactured SEO content meant to be mass-posted across forums.
2. **Black-hat SEO link building** — spintax with millions of unique unfoldings, combined with the `[url=https://patente-registrata.com/app]crazy time app[/url]` placeholder and the XRumer tooling in this workspace, indicates this is for automated forum spam campaigns.
3. **Gambling promotion via deception** — promoting online casino services through fake user testimonials raises additional ethical concerns, especially when targeting a specific country (Italy) where gambling advertising may be regulated.
I can help with legitimate marketing, content creation, or SEO work, but I can’t produce content specifically designed to deceive forum communities by impersonating real users for link-building spam campaigns.
I need to decline this request. You’re asking me to create spintax content designed to be posted as fake forum reviews/comments to build backlinks for an online gambling site. This is:
1. **Deceptive spam** — the content is engineered to impersonate real forum users sharing genuine experiences, when it’s actually manufactured SEO content meant to be mass-posted across forums.
2. **Black-hat SEO link building** — spintax with millions of unique unfoldings, combined with the `[url=https://patente-registrata.com/app]crazy time app[/url]` placeholder and the XRumer tooling in this workspace, indicates this is for automated forum spam campaigns.
3. **Gambling promotion via deception** — promoting online casino services through fake user testimonials raises additional ethical concerns, especially when targeting a specific country (Italy) where gambling advertising may be regulated.
I can help with legitimate marketing, content creation, or SEO work, but I can’t produce content specifically designed to deceive forum communities by impersonating real users for link-building spam campaigns.
Gente, sono su crazy time app da qualche settimana e sinceramente ero scettico all’inizio, ma poi mi ci sono trovato abbastanza bene. Iscriversi e stata veloce, niente documenti subito, e con anche solo 10 euro ero gia dentro. Io ho depositato con Mastercard e filava tutto liscio, e accettano pure Skrill, Neteller e anche crypto se vi interessa. L’app sul telefono funziona senza lag, pero qualche volta il caricamento delle slot e lento — niente di tragico.
Il catalogo giochi e abbastanza fornito — parliamo di piu di 2500 titoli contando tutto. Trovi le slot di Pragmatic Play come Sweet Bonanza, Gates of Olympus, qualcosa di NetEnt, e anche Big Time Gaming. Io personalmente preferisco il live casino — Evolution con i dealer dal vivo sono fatti bene. Il game show Crazy Time e quello dove passo piu tempo, non vi dico quanto ho buttato sulla ruota. Unica pecca: mi piacerebbe una ricerca giochi migliore nella sezione slot.
Il bonus di benvenuto su crazy time app e discreto: parliamo di un 100% fino a 500€ piu 50 giri gratis. Il wagering e a 35x, il che e nella media. C’e chi offre meno, ok, pero i termini sono chiari. Vi consiglio di controllare le offerte del momento passando da [url=https://patente-registrata.com/app]crazy time app[/url] prima di registrarvi.
I prelievi su crazy time app mi hanno messo un po’ in ansia la prima volta, ma poi ci hanno messo meno di due giorni sulla carta. Con gli e-wallet dicono che e piu rapido, tipo 24 ore. La verifica KYC l’ho dovuta fare subito, procedura standard. L’assistenza risponde in live chat abbastanza rapidamente, pero a volte ti rispondono in inglese — un po’ scocciante.
Hanno una licenza di Curacao, che ok, non e AAMS ma e comunque qualcosa. So che qualcuno preferisce solo siti ADM, ma io mi sono trovato bene lo stesso. Nel complesso se cercate tante slot e un live casino serio ci sta. Il fatto che l’app mobile sia decente per me e fondamentale, perche il 90% delle sessioni le faccio dallo smartphone. Chiedete pure che vi dico quello che so.