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
wettbüro ludwigshafen
my web page – wetten basketball nba – Jonathon –
österreich türkei basketball über unter Wetten
Помощь врача нужна, если запой длится несколько дней, больному становится сложно самостоятельно отказаться от алкоголя, а попытки выйти из запоя сопровождаются выраженным похмельем. Чем дольше сохраняется запой, тем выше нагрузка на организм пациента. При алкоголизме нередко обостряются хронические заболевания, возникают нарушения сердечного ритма, сна, пищеварения, деятельности печени и нервной системы. В таком случае лечение лучше проводить под контролем нарколога.
Узнать больше – [url=https://a.vivod-iz-zapoya-v-sankt-peterburge16.ru/]вывод из запоя вызов в Санкт-Петербурге[/url]
Gram tu jakies czterech miesiecy, przewaznie jak mam wolne pol godziny. Trafilem na to z jakiegos watku na forum, szukalem wtedy czegos, co ogarnia wplaty w PLN bez kombinowania. Nie ukrywam — z poczatku nie mialem zaufania, bo w sieci pelno podobnych budek.
Automaty to jest moj glowny powod. Wisi tam kilka tysiecy gier, tylko ze polowy nikt nigdy nie odpali. Ja gram glownie na Play’n GO — Sweet Bonanza umie niezle zaskoczyc, a poza tym lubie Book of Dead. Znajdziesz tez Yggdrasil i NetEnt, wiec naprawde jest w czym grzebac. Ostatnio coraz czesciej wchodze na stoly na zywo — Evolution robi to porzadnie, prowadzacy po angielsku, ale czasem trafiaja sie polskie stoly, a Crazy Time to juz w ogole cyrk, ale wciaga.
Pakiet na start to 100% do pierwszego depozytu plus jakies jakies 30 darmowych spinow, tylko obrot x40 to nie jest bajka i bez cierpliwosci tego nie wyciagniesz. Byl tez bonus bez depozytu, ale to sie zmienia co chwile, wiec najlepiej sprawdzic aktualne warunki u nich na [url=https://888starz-casino13.pl]888starz pl[/url] zanim sie w cos wpakujesz. Minimalna wplata nie zabija — wchodzilem od jakichs 20 zl.
Zakladanie konta zajela mi doslownie minute, gorzej z doslaniem dokumentow — zeszlo ze dwa dni, ale przy pierwszej wyplacie i tak trzeba to zrobic wszedzie. Kase wyciagalem kilka razy: Skrill byl w kilka godzin, przelew na Vise mielil sie prawie trzy dni, a BTC leci najsprawniej — praktycznie od reki. Maja tez Neteller, Mastercard i kilka lokalnych opcji.
Minus, ktory musze wypomniec: support na czacie odpisuje szybko, ale po polsku bywa roznie i trzeba czasem powtorzyc pytanie. Apka na Androida dziala calkiem sprawnie, tylko ze wazy swoje. Licencja sa z Curacao, wiec kazdy niech sobie sam ten temat przemysli, bo to nie jest lokalna licencja. Poki co zostaje, choc nie wrzucam tam wiecej niz moge stracic.
Obstawiam u nich juz z czterech miesiecy, przewaznie jak mam wolne pol godziny. Wpadlem na nich przypadkiem, bo szukalem czegos, co ogarnia normalne platnosci w zlotowkach. Nie ukrywam — z poczatku nie mialem zaufania, bo w sieci pelno podobnych budek.
Automaty to jest to, po co tam siedze. Wisi tam cos kolo 6-7 tysiecy tytulow, choc umowmy sie dobra polowa to zapychacze. Ja siedze przewaznie na Play’n GO — Gates of Olympus potrafi zrobic dzien, a poza tym lubie Book of Dead. Maja tez NetEnt, Yggdrasil i Big Time Gaming, wiec naprawde jest w czym grzebac. Ostatnio coraz czesciej wchodze na stoly na zywo — Evolution ogarnia to i widac roznice, krupierzy po angielsku, ale czasem trafiaja sie polskie stoly, a Crazy Time to juz w ogole cyrk, ale wciaga.
Bonus powitalny to 100% do pierwszego depozytu plus jakies 30 free spinow, tylko wymog obrotu x40 boli i bez cierpliwosci tego nie wyciagniesz. Byl tez jakis kod bez depozytu, ale to sie zmienia co chwile, dlatego najlepiej sprawdzic obecne promki na [url=https://888starz-casino13.pl]888starz pl[/url] zanim sie w cos wpakujesz. Minimalna wplata jest niska — dalo sie wejsc za kilkanascie zlotych.
Rejestracja zajela mi doslownie minute, schody zaczely sie przy doslaniem dokumentow — zeszlo ze dwa dni, ale przy pierwszej wyplacie i tak trzeba to zrobic wszedzie. Kase wyciagalem kilka razy: e-portfel byl w kilka godzin, karta szla prawie trzy dni, a przez krypto leci najsprawniej — praktycznie od reki. Neteller i Mastercard tez sa.
To, co mnie realnie wkurza: support reaguje w miare szybko, ale po polsku bywa roznie i potrafia odbic temat do maila. Apka na Androida dziala bez zarzutu, tylko ze wazy swoje. Papiery sa z Curacao, wiec bez cudow — to nie jest polski operator z ministerialnym zezwoleniem. Ogolnie gram dalej, ale nie wrzucam tam wiecej niz moge stracic.
Obstawiam u nich jakies czterech miesiecy, przewaznie po pracy. Wpadlem tam z polecenia kumpla, bo szukalem miejsca, ktore przyjmuje wplaty w PLN bez kombinowania. Nie ukrywam — z poczatku nie mialem zaufania, bo w sieci pelno podobnych budek.
Automaty to w sumie moj glowny powod. Siedzi tam kilka tysiecy gier, choc umowmy sie dobra polowa to zapychacze. Ja krece glownie na Play’n GO — Gates of Olympus potrafi zrobic dzien, a poza tym lubie Book of Deada. Maja tez Yggdrasil i NetEnt, wiec naprawde jest w czym grzebac. Od jakiegos czasu coraz czesciej wchodze na live — Evolution ogarnia to i widac roznice, krupierzy po angielsku, ale czasem trafiaja sie polskie stoly, a Crazy Time jest wciagajace, choc bardziej show niz gra.
Pakiet na start to 100% do pierwszego depozytu oraz 30 free spinow, z tym ze wymog obrotu x40 boli i bez cierpliwosci tego nie wyciagniesz. Widzialem tez jakis kod bez depozytu, ale to sie zmienia co chwile, wiec najlepiej sprawdzic obecne promki u nich na [url=https://888starz-casino12.pl]888starz[/url] zanim klikniesz cokolwiek. Minimalny depozyt jest niska — u mnie wyszlo z 20 zl.
Zakladanie konta zajela mi doslownie minute, schody zaczely sie przy weryfikacja — zeszlo ze dwa dni, to standard w kazdym miejscu. Wyplacalem trzy razy: e-portfel byl w kilka godzin, karta mielil sie dwa dni robocze, a BTC leci najsprawniej — praktycznie od reki. Neteller i Mastercard tez sa.
Minus, ktory musze wypomniec: obsluga reaguje w miare szybko, tyle ze polska wersja odpowiedzi to czasem kalka z tlumacza i potrafia odbic temat do maila. Aplikacja dziala calkiem sprawnie, tylko ze czasem lubi sie zaciac przy live. Licencja sa z Curacao, wiec bez cudow — to nie jest polski operator z ministerialnym zezwoleniem. Ogolnie gram dalej, choc nie wrzucam tam wiecej niz moge stracic.
подробнее здесь https://vodka-bet-casino.com
Gram tu od jakichs czterech miechow, glownie po pracy. Trafilem tam z polecenia kumpla, bo szukalem czegos, co ogarnia wplaty w PLN bez kombinowania. Szczerze mowiac — na start bylem sceptyczny, bo w sieci pelno podobnych budek.
Gierki to w sumie to, po co tam siedze. Wisi tam kilka tysiecy gier, tylko ze polowy nikt nigdy nie odpali. Ja krece glownie na Play’n GO — Sweet Bonanza umie niezle zaskoczyc, a poza tym lubie Book of Deada. Znajdziesz tez NetEnt, Yggdrasil i Big Time Gaming, wiec naprawde jest w czym grzebac. Od jakiegos czasu wciagnalem sie w stoly na zywo — Evolution ogarnia to i widac roznice, krupierzy po angielsku, ale czasem trafiaja sie polskie stoly, a takie Crazy Time jest wciagajace, choc bardziej show niz gra.
Bonus powitalny to 100% do pierwszego depozytu i do tego 30 free spinow, ale wymog obrotu x40 boli i bez cierpliwosci tego nie wyciagniesz. Widzialem tez bonus bez depozytu, ale to leci rotacyjnie, dlatego lepiej podejrzec obecne promki na [url=https://888starz-casino15.pl]888starz link[/url] zanim sie w cos wpakujesz. Minimalna wplata to grosze — u mnie wyszlo z 20 zl.
Rejestracja zajela mi jakies dwie minuty, schody zaczely sie przy weryfikacja — czekalem dwa dni, to standard w kazdym miejscu. Kase wyciagalem trzy razy: e-portfel byl w kilka godzin, karta mielil sie dwa dni robocze, a przez krypto najszybciej — praktycznie od reki. Maja tez Neteller, Mastercard i kilka lokalnych opcji.
Rzecz, ktora mnie drazni: support na czacie odpisuje szybko, ale po polsku bywa roznie i potrafia odbic temat do maila. Apka na Androida smiga calkiem sprawnie, tylko ze wazy swoje. Papiery to Curacao, wiec bez cudow — to nie jest polski operator z ministerialnym zezwoleniem. Ogolnie gram dalej, choc nie wrzucam tam wiecej niz moge stracic.
Obstawiam u nich juz z szesciu miesiecy, w sumie najczesciej jak mam wolne pol godziny. Trafilem na to z jakiegos watku na forum, szukalem wtedy czegos, co ogarnia normalne platnosci w zlotowkach. Szczerze mowiac — na start bylem sceptyczny, bo w sieci pelno podobnych budek.
Gierki to w sumie moj glowny powod. Siedzi tam kilka tysiecy gier, choc umowmy sie polowy nikt nigdy nie odpali. Ja siedze przewaznie na Pragmatic Play — Gates of Olympus umie zrobic dzien, a z klasyki lece w Book of Dead. Jest tez Yggdrasil i NetEnt, wiec naprawde jest w czym grzebac. Ostatnio wciagnalem sie w stoly na zywo — Evolution ogarnia to i widac roznice, krupierzy sa ogarnieci, a takie Crazy Time to juz w ogole cyrk, ale wciaga.
Bonus powitalny daje 100% od wplaty plus jakies 30 free spinow, z tym ze wymog obrotu x40 boli i trzeba sie w to wkrecic na spokojnie. Krazy tez bonus bez depozytu, ale to sie zmienia co chwile, dlatego lepiej podejrzec obecne promki u nich na [url=https://888starz-casino14.pl]888starz bet[/url] zanim klikniesz cokolwiek. Minimalny depozyt to grosze — wchodzilem od jakichs 20 zl.
Zakladanie konta zajela mi jakies dwie minuty, gorzej z doslaniem dokumentow — zeszlo ze dwa dni, ale przy pierwszej wyplacie i tak trzeba to zrobic wszedzie. Kase wyciagalem kilka razy: Skrill wpadl tego samego dnia, karta mielil sie dwa dni robocze, a BTC leci najsprawniej — doslownie kilkanascie minut. Maja tez Neteller, Mastercard i kilka lokalnych opcji.
Minus, ktory musze wypomniec: obsluga na czacie odpisuje szybko, ale po polsku bywa roznie i potrafia odbic temat do maila. Aplikacja smiga calkiem sprawnie, choc czasem lubi sie zaciac przy live. Papiery to Curacao, wiec bez cudow — to nie jest polski operator z ministerialnym zezwoleniem. Poki co zostaje, ale trzymam to na zdrowy rozsadek.