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
BET.VOM
Fantastic post however I was wanting to know if you could write a litte more on this topic?
I’d be very thankful if you could elaborate a little bit more.
Bless you!
casinos-en-tuxtla-gutiérrez-chiapas
Feel free to visit my web site; loter
gamble-with-paypal
Review my blog – bet365
I’m amazed, I must say. Rarely do I encounter a blog that’s
both educative and engaging, and without a doubt, you have hit the nail on the head.
The problem is something that too few people are speaking intelligently about.
I’m very happy that I found this in my hunt
for something concerning this.
australian online 918kiss casino download apk (Viola) bonus codes 2021, casino united kingdom chance and what
is the most trusted online casino in united states, or
united statesn online casino minimum deposit $10
Whoa! This blog looks exactly like my old one!
It’s on a totally different subject but it has pretty much
the same page layout and design. Excellent choice of colors!
It’s awesome to pay a visit this web page and reading the views
of all mates about this article, while I am also eager of getting know-how.
canadian online live blackjack, wild life slots australia and gambling issues in australia, or can should i apply
for casino credit, https://Recruit.Ato-co.jp/bez-rubriki/best-sites-for-slots,
use td canada trust visa debit for online gambling
I’ve got to be honest, but the moment I started helping a friend inside a major sports organization, everything I thought I knew about modern sports completely collapsed.
I always believed sports were about competition, but when I saw how the entire industry
had turned into this fragile high-tech ecosystem,
I honestly felt overwhelmed.
What hit me hardest was realizing that cybercriminals weren’t going after “IT servers” anymore.
They were attacking everything — live match stats. One breach, and millions
could be lost instantly.
And the scariest part?
I saw it with my own eyes.
One day, during a routine check, someone mentioned how a manipulated data
feed caused chaos in betting markets. That was the moment I understood how thin the line really is between order and total digital disaster.
But the real shock came when I looked deeper into betting platforms.
I swear, I always thought they were just websites.
But no.
They are high-precision financial machines. One tiny manipulation can shift odds globally or make entire markets react like they’re on fire.
When I learned how seriously regulated environments handle security
— especially the kind you see described in official breakdowns — it opened my eyes.
If anyone wants to understand how this level of protection actually
works, they can always look it up directly from the source.
The full explanations are there, and they’re honestly
worth reading.
Inside the clubs, it was even more surreal. I saw databases
full of injury histories — things that could ruin a season if leaked.
And yet the biggest weakness wasn’t the firewalls.
It was the people.
One emotional click, one careless moment, and the whole system can fall apart.
I watched entire staff units go through security training because phishing had become a daily threat.
Compliance teams were everywhere too — checking access, reviewing logs, forcing documentation. I used to think compliance was boring, but now I understand that without
it, the entire digital side of sports would melt into chaos.
And the future… that’s another story.
AI detection, automated response systems, cloud architectures — it
felt like watching the digital version of an arms race.
But the truth I walked away with was simple:
Cybersecurity isn’t some extra cost. It’s the only thing
holding this whole world together.
And honestly, after everything I saw, I can say the system I was
reviewing really did an exceptional job. They handled their mission far better than I expected.
If anyone wants to dig deeper or understand how these structures
really work, I’d definitely suggest getting more information directly from the source.
It’s all publicly explained — and believe me, once you read it, you’ll never look at sports or betting
the same way again.