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
Siedze na tej stronie od jakichs czterech miesiecy i prawde mowiac troche mnie zaskoczyli in plus. Zakladanie konta zajela mi doslownie dwie minuty, weryfikacja zeszla dopiero jak chcialem wyplacic, co dla mnie bylo ok. Minimalna wplata to cos kolo 80 zl w przeliczeniu, wiec prog wejscia niski.
Co do gier jest masa — gdzies w okolicach 4000 pozycji, glownie Pragmatic, NetEnt, Play’n GO, wpadlo tez Big Time Gaming i Betsoft. Osobiscie najwiecej gram w Gates of Olympus, czasem odpale Gates of Olympus. Live to Evolution — Crazy Time i ruletka, krupierzy realni, kilka stolow jest po polsku.
Bonus na start wyglada tak: do 4000 zl i 200 darmowych spinow rozlozonych na kilka dni. Obrot x35, czyli jak wszedzie — da sie wyrobic, ale bez przesady. Biezace promocje warto sprawdzic w [url=https://vox-casino11.com]vox casino kod promocyjny bez depozytu forum[/url] przed sama wplata. Krazy tez sporo wersji bez wplaty ale polowa z tego co widze na grupach to sciema, wiec bym uwazal.
Wyplaty — tu bez fajerwerkow. Blik i karty schodzily mi w 12-24h, Skrill i Neteller szybciej, jakies 2-6 godzin, krypto zeszlo w niecala godzine. Ale raz wyplata wisiala trzy dni bo dorzucili weryfikacje a support mielil godzinami. To mnie najbardziej wkurzylo.
Support jest calodobowy, po polsku — czasem od razu, czasem 10 minut. Dedykowanej apki brak, ale strona na telefonie chodzi plynnie na Androidzie. Licencja Curacao, czyli nie jest to MGA, ale u mnie nic nie zginelo. Dla kogos z PL — jest przyzwoicie, tylko czytajcie warunki obrotu zanim klikniecie bonus.
Люди помогите советом Близкий человек уже несколько дней в запое Соседи стучат в стену Таблетки не помогают Короче, врачи приехали и поставили систему — вывод из запоя Санкт Петербург круглосуточно Приехали через 40 минут В общем, телефон и цены тут — спб нарколог вывод из запоя [url=https://kodirovanie.vyvod-iz-zapoya-na-domu-sankt-peterburg-rpl.ru]https://kodirovanie.vyvod-iz-zapoya-na-domu-sankt-peterburg-rpl.ru[/url] Вывод из запоя на дому — это реальный выход Перешлите тем кто в такой же ситуации
Taxminan yarim yildan beri shu kontorada o’tiribman, shu bois fikrimni aytib qo’yay. Rostini aytsam, avvaliga unchalik ishonmagandim — tanishim aytdi, keyin ro’yxatdan o’tdim. Akkaunt ochish juda tez kechdi, minimal depozit ham katta emas — men kichik summa bilan boshlagandim.
Katalogni hisoblab bo’lmaydi — 7000 ga yaqin degan gap bor. Shaxsan menga Pragmatic Play slotlari yoqadi: Gates of Olympus meni tortadi, Sweet Bonanza ni ham tez-tez ochaman. Play’n GO ning Book of Dead ni ham unutmagan ekanlar, NetEnt bilan Yggdrasil tomondan ham kam emas. Jonli kazino alohida gap — Evolution ta’minlaydi, haqiqiy krupyelar ishlaydi, Crazy Time ni ko’pchilik yaxshi ko’radi.
Bonus tomoni desangiz: xush kelibsiz paketiga to’ldirgan summamni ikkiladilar, plyus frispinlar tushdi. Lekin wager talabi 40x — shoshilmasangiz bo’ldi, kichik harflarga e’tibor bering. Ba’zan depozitsiz spinlar ham tashlab turishadi, aktsiyaga qarab. Aktual shartlarni ko’rmoqchi bo’lsangiz [url=https://888starz-apk2.com]888starz скачать ios[/url] ga kirib ko’ring, har hafta yangilanib turadi.
Pul yechish masalasi ham muhim: Karta orqali muammosiz, Skrill ham bor, USDT va Bitcoin ham ishlaydi — men ko’proq shuni ishlataman. O’tgan hafta chiqarib oldim, 40 daqiqacha kutdim. Bir marta hujjat so’rab qolishdi, o’shanda biroz asabiylashdim — mana shu meni bezovta qildi.
Telefonda o’ynash haqida: 888starz apk ni to’g’ridan-to’g’ri yuklab olsa bo’ladi, Play Marketda yo’q — bukmeykerlarda odatiy. iOS egalari uchun ham yo’l bor. Ilova o’zi yengil ishlaydi, ammo bir-ikki marta update dan so’ng kichik lagi bor edi.
Texnik yordam chatda 5-10 daqiqada javob qaytaradi, ba’zan robot kabi gapirishadi. Litsenziyasi Kyurasao, ko’p saytlar shu bilan yuradi. Umuman, hozircha qolganman — har kim o’zi hal qilsin.
Люди помогите советом Ситуация критическая Жена в истерике Нужна срочная помощь на дому Короче, единственное что вытащило из запоя — вывод из запоя на дому спб цены адекватные Через пару часов человек пришёл в себя В общем, жмите чтобы сохранить — выведение из запоя спб [url=https://kodirovanie.vyvod-iz-zapoya-na-domu-sankt-peterburg-rpl.ru]выведение из запоя спб[/url] Вывод из запоя на дому — это реальный выход Перешлите тем кто в такой же ситуации
casino juegos de casino top alta complejidad