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
I’ve been playing at Tenobet since maybe five months now, mostly weekends, mostly spins during the week and the odd accumulator action come Saturday. Honestly, I got there via a lad from my local sent me a link, and I half expected it to be rubbish.\n\nGame selection is better than I expected — they claim over 3,000 games across all the categories. All the big studios are in: Pragmatic, Play’n GO, Play’n GO, Betsoft. I live on Gates of Olympus and Sweet Bonanza, though the BTG titles eats my balance faster. Live side is Evolution, so no complaints there — actual dealers, roulette round the clock, and Crazy Time if you fancy something daft.\n\nThe welcome thing on Tenobet is up to ?125 plus a chunk of bonus spins, the playthrough is 35x on the bonus , so about standard. No free-money thing as far as I could see, min deposit was ?10 or ?20 minimum. To check what’s live right now see [url=https://clock-desktop.com/sport]tenobet sport[/url] before you deposit. The one thing that annoyed me: bonus expiry is tight and I lost half of mine to being busy.\n\nWithdrawals are the bit I actually care about. Skrill came back in about a day for me, card took 2-3 days, which is normal for UK banking. Tenobet also takes Neteller, Visa and some crypto options, but I’ve never used crypto on a bookie. The ID check was a bit of a faff — driving licence and a bank statement, sorted same evening.\n\nThere’s no standalone app that I found, but the mobile site which honestly works — I’ve placed bets on it on the train plenty. Support at Tenobet took about five minutes both times, human, not a bot loop. It’s UKGC licensed, which is the first thing I check these days.
Been betting with Tenobet for about five months now, mostly slots during the week and a bit of Premier League action come Saturday. Not gonna lie, I only signed up because a lad from my local mentioned it, and I half expected it to be rubbish.\n\nThe lobby’s genuinely big — I reckon about 2,000 games if you count everything. The usual suspects are there: Pragmatic Play, Play’n GO, Play’n GO, Yggdrasil. I live on Book of Dead and Gates of Olympus, though Bonanza Megaways eats my balance faster. Live side is Evolution, which is what you want — real croupiers, blackjack tables at all hours, and Crazy Time if you fancy something daft.\n\nThe welcome thing with Tenobet is up to ?125 with some free spins, wagering sits at 35x , so nothing scandalous but read it properly. No free-money freebie unless I missed it, you need a tenner minimum. For the up-to-date codes have a look at [url=https://clock-desktop.com/en-gb]teno bet casino[/url] since these change. My gripe: bonus expiry is tight and I wasted a load.\n\nPayouts have been fine. Skrill came back in about a day the two times I tried, card took closer to three days, which is normal for UK banking. You also get Bitcoin and the usual e-wallets, though I haven’t bothered with Bitcoin. KYC was painless enough — driving licence and a bank statement, sorted same evening.\n\nNo app on the Play Store, but the mobile site and it’s fine — I’ve placed bets on it on the train plenty. Support at Tenobet took under ten minutes both times, human, not a bot loop. Licensed and regulated for UK players, which is the first thing I check these days.
Been using Tenobet for roughly four months on and off, usually the slots plus some Premier League betting come Saturday. To be fair, I only signed up because someone on another thread sent me a link, so I went in fairly sceptical.\n\nThe slots side is better than I expected — I reckon about 3,000 titles if you count everything. All the big studios are in: Pragmatic Play, NetEnt, Play’n GO, Big Time Gaming. I live on Sweet Bonanza and Book of Dead, although Bonanza Megaways eats my balance faster. The live dealer rooms are Evolution, which is what you want — real croupiers, blackjack tables at all hours, plus Crazy Time and Lightning Roulette.\n\nThe sign-up offer with Tenobet maxes at ?125 matched and some bonus spins, the playthrough is 35x — that’s fair enough. There’s no no deposit freebie unless I missed it, you need a tenner to kick it off. For the up-to-date codes have a look at [url=https://clock-desktop.com/sport]teno bet[/url] before you deposit. My gripe: bonus expiry is tight and I wasted a load.\n\nCashouts have been fine. Skrill came back in about a day the two times I tried, Visa took 2-3 days, which is normal for UK banking. Tenobet also takes Neteller, Mastercard and crypto, but I’ve never used crypto on a bookie. Verification was a bit of a faff — driving licence and a bank statement, done in a day.\n\nThere’s no standalone app that I found, it’s a browser version and loads quick enough on my phone — I’ve placed bets on it on the train plenty. Live chat on Tenobet answered in under ten minutes both times, human, not a bot loop. Licensed and regulated for UK players, which is why I stuck around.