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
Obstawiam tu od jakichs pol roku, mysle ze mam prawo wrzucic pare slow. Zapisalem sie przypadkiem, przez reklame na Telegramie, bez wiekszych oczekiwan. To co uderza na starcie to rozmiar biblioteki — jakies 5-6 tysiecy pozycji, liczba robi wrazenie, ale realnie krecisz w kolko to samo.
Nic odkrywczego: Sweet Bonanza oraz Big Bass, standard — Pragmatic. Znajdziesz tez Yggdrasil oraz Play’n GO, wiec pod tym wzgledem sa normalni. Aviator tez maja, mnie to jakos nie kreci. W dziale live obsluguje Evolution — Lightning Roulette jest po angielsku, polskich stolow jakos nie uswiadczylem, to akurat szkoda.
Powitalny jest w okolicach 100% do jakichs 1500 zl i do tego paczka free spinow, rozbite na kilka wplat. Wager jest x40, standardowo, wiec nie ma cudow — radze doczytac, serio. Widzialem tez bonus bez depozytu za sama rejestracje, tylko ze to zmienia sie co chwile — aktualne kody sa wypisane na [url=https://888starz-casino21.pl/app-android]888starz odrzuca wyplate na karte[/url] przed rejestracja.
Wyplaty — tu akurat nie narzekam. Blikiem przelew leci w sekunde, prog wejscia to niecale 30 zl. Zlecalem wyplate na Skrilla i szlo do godziny, karta to juz inna bajka, dwa dni. KYC to jednak trwala cztery dni — dowod wrzucalem dwa razy, support na czacie reaguje w pare minut, tylko czasem czujesz bota.
Apka na Androida dziala i jest lzejsza od strony, jedyne ze instalujesz apk recznie, co czesc ludzi odstrasza. Na iOS bywa roznie. Licencja Curacao, nie polska, zatem 888starz dziala u nas w szarej strefie i kwestie podatku musisz rozwazyc samodzielnie. Wiem, ze dla wielu to killer — ja tylko pisze jak jest. Ogolnie siedze dalej, na spokojnie.
Слушайте кто сталкивался Муж просто потерял себя Соседи стучат в стену Таблетки не помогают Короче, врач приехал и поставил систему — вызвать анонимного нарколога с препаратами Приехал через 40 минут В общем, телефон и цены тут — анонимный вызов врача нарколога [url=https://kodirovanie.narkolog-na-dom-krasnodar23.ru]анонимный вызов врача нарколога[/url] Звоните прямо сейчас Перешлите тем кто в такой же ситуации
Siedze na tym jakies trzech miesiecy, wiec chyba mam prawo cos napisac. Zapisalem sie przypadkiem, przez reklame na Telegramie, raczej sceptycznie. Od razu widac ze ilosc slotow — cos kolo 5-6 tysiecy pozycji, co na papierze brzmi ladnie, choc umowmy sie czlowiek i tak siedzi na trzech ulubionych.
U mnie to Book of Dead oraz Sweet Bonanza, czyli Pragmatic Play. Jest tez NetEnt i Microgaming, wiec providerzy to nie jakies podrobki. Crash gry typu Aviator tez maja, ja osobiscie do tego jakos nie kreci. Na zywo obsluguje Evolution — Crazy Time jest po angielsku, polskich stolow nie widzialem, i to troche boli.
Powitalny wynosi 100% pierwszego depozytu plus 150 darmowych spinow, rozlozone na raty. Wager wynosi x40, standardowo, wiec nie ma cudow — przeczytaj regulamin zanim klikniesz. Bywa tez cos bez depozytu po weryfikacji, tylko ze to akcje czasowe — aktualne kody sa wypisane na [url=https://888starz-casino20.pl/app-android]888starz mirror[/url] zanim wplacisz.
Kasa to dla mnie plus. Blikiem wplata wchodzi od reki, minimalny depozyt niecale 30 zl. Zlecalem wyplate na Skrilla — schodzilo w kilka godzin, przelew na karte to juz inna bajka, dwa dni. KYC to jednak byla upierdliwa — pierwszy skan im nie pasowal, support na czacie reaguje w pare minut, tylko czasem czujesz bota.
Apka dziala i chodzi lepiej niz przegladarka, jedyne ze instalujesz apk recznie, bo w sklepie jej nie ma. Na iOS jest przez TestFlight. Licencja to Curacao, zatem 888starz dziala u nas w szarej strefie i rozliczenie trzeba ogarnac na wlasna reke. Dla czesci to dyskwalifikuje — ja tylko pisze jak jest. Gram dalej, ale malymi stawkami, choc bez zachwytu.
В Санкт-Петербурге работают различные частные клиники, поэтому необходимо внимательно выбирать учреждение. Важны лицензия, штат врачей, опыт работы, профессиональные награды, медицинская база, комфортные помещения, график приема и наличие круглосуточной службы. Квалифицированные сотрудники должны доброжелательно относиться к пациенту и родным, обеспечивать защиту персональных данных и человеческое отношение даже в сложных случаях.
Получить больше информации – https://v.narkologicheskaya-klinika-sankt-peterburg14.ru/
horse betting bonus
Look into my webpage … racing tip from ascot bet on it (https://stiftung-sankt-elisabeth-eisenach.de/saisonale-trends-bei-pferdewetten-fruhjahr-vs-herbst/)
betting strategy for best uk horse racing betting sites
(Indira) racing