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
you may have an ideal blog here! would you prefer to make some invite posts on my blog?
Also ich spiele jetzt seit ein paar Monaten und ganz ehrlich, am Anfang war ich echt skeptisch, ob so ein Laden mit Krypto uberhaupt was taugt. Durch nen Bekannten aus dem Forum dort gelandet, der seit uber einem Jahr online Poker mit Bitcoin spielt, und tja – hangen geblieben bin ich dann irgendwie. Als Spieler aus Deutschland ist das ohnehin manchmal echt zah, was Ein- und Auszahlungen angeht, dazu spater.
Beim Angebot wird einem nicht langweilig – ich schatze mal uber 1500 Titel, wenn man alles zusammenzahlt. Die ublichen Verdachtigen sind naturlich vertreten: NetEnt mit Gates of Olympus und Sweet Bonanza, plus Betsoft und Yggdrasil, ruckelt nichts. Der Live-Kram ist von Evolution, echte Dealer und Shows wie Crazy Time, da bleib ich hangen gerne mal zu lange. Und klar, das eigentliche Ding ist fur mich ganz klar das Poker – Poker in Bitcoin eben, dafur bin ich da.
Was den Willkommensbonus angeht: ich hab die ublichen 100% obendrauf plus 200 Freispiele, gestuckelt uber paar Tage. Das Wagering liegt bei 35x, was ok ist ehrlich gesagt, schaut euch die AGB genau an. Es gibt sogar Freeroll-Turniere und mal was ohne Einzahlung, da holt man sich ganz entspannt ein paar Hande. Was gerade an Promos lauft schaut euch am besten direkt bei [url=https://onlinebitcoinpoker.de/de-de]bitcoin poker bitcoin gambling[/url] bevor ihr einzahlt, die halten das ganz gut aktuell.
Nicht alles ist Gold – das Auszahlen. Uber Bitcoin lief es richtig schnell, top. Aber als ich mal die Karte nutzen wollte, hats zwei Tage gedauert und der KYC-Kram hat genervt. Visa, Mastercard, Skrill, Neteller gehen alle, aber ganz ehrlich der Vorteil von Bitcoin beim Poker ist ja, dass keiner gro? mitliest. Min-Deposit so um die 20 Euro, Konto anlegen schnell erledigt.
Am Handy laufts sauber – es gibt ne App fur beide Systeme, und im Browser geht auch alles. Der Kundendienst 24/7 uber Live-Chat, die deutschsprachige Hilfe war mal besser mal schlechter, englisch ging aber immer. Lizenztechnisch ist es transparent, darauf achte ich. Fur alle hier aus Deutschland, die bitcoin poker spielen ausprobieren wollen – ich zock weiter, mal sehen wie lange.
online golf wedden promotiecode (John) 3d
Люди помогите советом Ситуация критическая Жена в истерике Таблетки не помогают Короче, единственный кто реально помог — нарколог на дом в воронеже недорого Дал рекомендации и успокоил семью В общем, телефон и цены тут — вызов нарколога на дом недорого [url=https://kodirovanie.narkolog-na-dom-voronezh17.ru]https://kodirovanie.narkolog-na-dom-voronezh17.ru[/url] Звоните прямо сейчас Перешлите тем кто в такой же ситуации
Bei mir lauft das Ganze schon seit ein paar Monaten und ganz ehrlich, am Anfang war ich echt skeptisch, ob so ein Laden mit Bitcoin uberhaupt was taugt. Uber nen Kumpel drauf gekommen, der schon langer online Poker mit Bitcoin spielt, und was soll ich sagen – hangen geblieben bin ich am Ende doch. Fur uns hier in Deutschland ist das sowieso nicht immer easy, was Ein- und Auszahlungen angeht, dazu spater.
Was die Auswahl angeht wird einem nicht langweilig – wurde sagen so 1800 bis 2000 Spiele, wenn man alles zusammenzahlt. Die ublichen Verdachtigen sind naturlich vertreten: Play’n GO mit Gates of Olympus und Sweet Bonanza, dazu Book of Dead, ruckelt nichts. Der Live-Bereich kommt von Evolution, richtige Croupiers und Kram wie Crazy Time, da bleib ich hangen gerne mal zu lange. Was mich eigentlich halt, das Herz ist fur mich halt der Pokertisch – bitcoin poker eben, deswegen bin ich hier.
Beim Bonus: ich hab einen 100%-Bonus bis 500€ und dazu Freispiele, verteilt uber mehrere Tage. Der Umsatz liegt bei 35x, was ok ist ehrlich gesagt, schaut euch die Bedingungen wirklich durch. Immer wieder gibts Freeroll-Turniere und mal nen No-Deposit-Kracher, so kann man antesten risikofrei paar Runden. Die aktuellen Aktionen und Codes schaut euch am besten uber [url=https://onlinebitcoinpoker.de/apk]bitcoin poker sites for mac[/url] an, bevor ihr euch anmeldet, die halten das ganz gut aktuell.
Kommen wir zum Kritikpunkt – das Auszahlen. Per Bitcoin gings bei mir fix, echt sauber. Als ich einmal Neteller probierte, hats zwei Tage gedauert und der KYC-Kram hat genervt. Visa, Mastercard, Skrill, Neteller sind alle da, aber ganz ehrlich der Vorteil von Bitcoin beim Poker ist ja, dass es eben schneller und anonymer geht. Kleinster Einsatz so um die 20 Euro, Konto anlegen ging in funf Minuten.
Unterwegs laufts sauber – ne eigene App gibts furs Handy, sonst uber die Seite klappt es problemlos. Der Chat ist rund um die Uhr erreichbar, auf Deutsch war er manchmal etwas holprig, zur Not auf Englisch. Lizenztechnisch passt es, das check ich immer. Fur deutsche Spieler, die bitcoin poker spielen antesten mochten – fur mich passts gerade, schaun wir mal.
Ich zocke jetzt seit gut vier Monaten und ganz ehrlich, zu Beginn hatte ich meine Zweifel, ob so ein Laden mit Bitcoin uberhaupt was taugt. Uber nen Kumpel drauf gekommen, der schon langer online Poker mit Bitcoin spielt, und was soll ich sagen – hangen geblieben bin ich am Ende doch. Grade fur deutsche Spieler ist das ohnehin ne halbe Wissenschaft, was Ein- und Auszahlungen angeht, aber gut.
Beim Angebot wird einem nicht langweilig – so grob so 1800 bis 2000 Spiele, inklusive Tische. Die bekannten Studios sind naturlich vertreten: Pragmatic Play mit dem ganzen Kram, plus Betsoft und Yggdrasil, lauft flussig. Der Live-Kram ist von Evolution, mit echten Croupiers und Kram wie Crazy Time, da hab ich abends ofter mal. Und klar, das Kernstuck ist fur mich nun mal der Pokerbereich – Poker in Bitcoin eben, dafur bin ich da.
Zum Bonus: ich hab die ublichen 100% obendrauf plus 200 Freispiele, gestuckelt uber paar Tage. Die Umsatzbedingung liegt bei 35x, was ok ist fur die Branche, lest euch besser die AGB genau an. Immer wieder gibts kostenlose Turniere fur lau, so kann man antesten ganz entspannt das Ganze. Was gerade an Promos lauft findet ihr am besten druben bei [url=https://online-bitcoin-poker.de/de-de]play poker online with bitcoin[/url] bevor ihr einzahlt, lohnt sich.
Jetzt zum Nervigen – die Auszahlung. Uber Bitcoin lief es richtig schnell, da kann ich nicht meckern. Beim Versuch mit uber Skrill wollte, hats zwei Tage gedauert und das Ausweis-Hochladen war nervig. Visa, Mastercard, Skrill, Neteller gehen alle, unterm Strich der Witz an der Sache ist, dass man schnell und ohne Gedons ein- und auszahlt. Kleinster Einsatz so um die 20 Euro, Konto anlegen schnell erledigt.
Mobil lauft es uberraschend gut – ne eigene App gibts fur beide Systeme, und im Browser klappt es problemlos. Der Support ist rund um die Uhr per Chat, Deutsch ging etwas holprig, zur Not auf Englisch. Was die Regulierung angeht ist alles sauber dokumentiert, das check ich immer. Wer aus DE kommt, die mal Poker mit Bitcoin ausprobieren wollen – ich bleib erstmal dabei, mal sehen wie lange.
I found your blog through google and I must say, this is probably one of the best well prepared articles I have come across in a long time. I have bookmarked your site for more posts.