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
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
casas valencia barcelona apuestas (http://www.gonzalonicuesa.es) ingreso minimo 5 euros