Windows VBS pop-up script
Miloš | 15.02.2006 @ 22:38 | 
Komentarji: 1
Nekoč sem potreboval nekaj preprostega, da bi samo opomnilo, da moram pognati določen program. V bistvu sem potreboval neko zadevo, ki bi me spomnila naj na ta dan poženem backup mojega računalnika na “server” računalnik. Ker nisem hotel po nepotrebnem komplicirati s kakšnimi dodatnimi programi stila reminder, sem po nekaj navodilih gospoda Googla, spisal preprost VBS script, ki sem ga ob določenem času pognal s pomočjo scheduled tasks. Bom demonstriral nekaj primerov.
Spodnjo kodo shranite kot “nekaj.vbs”. Ko boste dvokliknili na datoteko se bo odprlo okence z vpisanim tekstom in možnostjo “OK”.
Dim Msg
Msg = msgbox("Danes poženi backup.", vbOKOnly+vbInformation, "Backup opomnik")
Set WShell = CreateObject("WScript.Shell")
If Msg = vbOK Then
WShell.Run "pot_do_nekega_programa"
End If
V tem primeru imata na voljo tri gumbke, in sicer “Yes”, “No” in “Cancel”. S klikom na yes oz. no lahko poženemo različna programa.
Dim Msg
Msg = msgbox("Kopiranje iz 'milos-laptop' v 'milos-compbackup' Poženem?", vbyesnocancel+vbquestion, "Backup - Kopiranje")
Set WShell = CreateObject("WScript.Shell")
If Msg = vbyes Then
WShell.Run "pot_do_nekega_programa"
ElseIf Msg = vbno Then
WShell.Run "pot_do_nekega_programa"
End If
V tem primeru se nam pa odpre okno v katerega lahko recimo vpišemo parametre pri poganjanju programov. Jaz sem uporabil spodnji script za izdelovanje MySql dump-ov.
Dim usrName
usrName = Inputbox("Vnesi bazo","MySql dump")
Set WShell = CreateObject("WScript.Shell")
If usrName <> "" Then
WShell.Run "pot_do_programa" & usrName
End If
Upam, da se bo kodo dalo kopirati, da je ni pri obdelavi kakorkoli spremenilo.
Tagi:
nekatere pravice pridržane