Hello,
A few days ago my friend need a Visual Basic Script to verify if a process is running and if it is send an e-mail. He asked me for help to code it, and I helped him.
Visual Basic Script to verify if a process is running and notify via e-mail.
Verify if a process is running with Visual Basic Script and shows a window if it is.
[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]
Send an e-mail using Visual Basic Script
[code lang=”vb”]
Const username = “USERNAME”
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]
This two scripts are changed to work together to do what we want and have a config section.
Best Regards,
Matheus
References:
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 using Tenobet since maybe six months now, mainly the slots during the week and a bit of Premier League betting come Saturday. To be fair, I got there via someone on another thread wouldn’t shut up about it, and I half expected it to be rubbish.\n\nThe slots side is genuinely big — they claim over 3,000 titles last time I scrolled. The usual suspects are there: Pragmatic Play, Play’n GO, Microgaming, Big Time Gaming. I live on Book of Dead and Gates of Olympus, although the Megaways stuff eats my balance faster. Live side is Evolution, which is basically the gold standard — actual dealers, roulette round the clock, and Crazy Time if you fancy something daft.\n\nThe welcome thing with Tenobet goes to ?125 matched with some bonus spins, and the wagering was 35x on the bonus which is fair enough. There’s no free-money thing unless I missed it, min deposit was ?10 or ?20 to kick it off. To check what’s live right now have a look at [url=https://clock-desktop.com/en-gb]tenobet casino online[/url] rather than trusting my memory. My gripe: the spins expire in 7 days and I lost half of mine to being busy.\n\nCashouts have been fine. Skrill came back in under 24 hours the two times I tried, debit card was three working days, which is normal for UK banking. They do Neteller, Mastercard and crypto, though I haven’t bothered with Bitcoin. Verification was a bit of a faff — passport and a utility bill, done in a day.\n\nThere’s no standalone app that I found, but a browser version which honestly works — I use it more than desktop now. Support at Tenobet took a few minutes both times, actual person, decent English. Licensed and regulated for UK players, which is why I stuck around.
Привет всем!
Дорогие препараты, приобретённые впрок, часто так и остаются лежать в аптечке, хотя могли бы вернуть часть потраченных средств. Взаимодействие строится на основе официального договора, что защищает интересы обеих сторон. Профессиональный выкуп препаратов предполагает оценку по фотографии и оплату в день обращения. Специалисты всегда на связи и готовы помочь с любыми вопросами, возникающими в процессе.
Более подробная информация по ссылке – https://скупкалекарствмосква.рф
выкуп препаратов Акситиниб 5, продать Полайви, Пикрэй 250 продать лекарства
Осимертиниб скупка лекарств, [url=https://скупкалекарствмосква.рф]скупка лекарств в Симферополе[/url], скупка лекарств в Тюмени
Всего наилучшего и успехов Фонд выкупа препаратов!
Been playing at Tenobet for roughly six months on and off, mostly spins during the week and the odd accumulator betting on Saturdays. To be fair, I only signed up because someone on another thread sent me a link, and I half expected it to be rubbish.\n\nGame selection is better than I expected — I reckon about 2,500 titles last time I scrolled. The usual suspects are there: Pragmatic Play, NetEnt, Play’n GO, Yggdrasil. I live on Sweet Bonanza and Book of Dead, though Bonanza Megaways eats my balance faster. Live side is Evolution, which is basically the gold standard — real croupiers, blackjack tables at all hours, plus Crazy Time and Lightning Roulette.\n\nThe sign-up offer on Tenobet is up to ?125 matched plus some bonus spins, wagering sits at 35x on the bonus , so about standard. No no deposit thing that I found, min deposit was ?10 or ?20 minimum. If you want the current terms they’re listed on [url=https://clock-desktop.com/sport]tenobet sports[/url] before you deposit. My gripe: bonus expiry is tight and I lost half of mine to being busy.\n\nPayouts are the bit I actually care about. E-wallet took roughly 18 hours the two times I tried, card took 2-3 days, which is normal for UK banking. You also get Neteller, Mastercard and crypto, though I haven’t bothered with Bitcoin. Verification was painless enough — passport and a utility bill, done in a day.\n\nThere’s no standalone app that I found, but a browser version which honestly works — I use it more than desktop now. Live chat on Tenobet answered in about five minutes both times, human, not a bot loop. Licensed and regulated for UK players, which is the first thing I check these days.
app Handicap basketball wetten mit freunden