[es] - VBS poruke - kreiranje

pcpopovic
PC_Popović
Srbija

Član broj: 226882
Poruke: 206
*.dynamic.isp.telekom.rs.

+9 Profil

^{08.08.2015. u 13:52 - pre 105 meseci}

Poštovanje. Odmah da se "ogradim": U ovome sam (napredniji) početnik i, ukoliko, sam na pogrešnom delu foruma neka me moderator "prebaci". Treba da uradim jednu malo složeniju poruku (upozorenje) u obliku VBS prozora. Do sad sam postavljao jednostavne poruke i naučio ponešto o njihovom kreiranju, a sada mi treba nekoliko naprednijih "stvarčica". Prvo mi treba da na code:

lol=msgbox ("Poštovanje i dobro došli!",25,"Važno")
dim speechobject
set speechobject=createobject("sapi.spvoice")
pw=inputbox("Enter your password.")
if pw="Miroslav" then msgbox ("Correct password.") else msgbox ("Incorrect password")
if pw="Miroslav" then speechobject.speak "Correct password" else speechobject.speak "Incorrect password"

nadogradim sledeće (na primer):

lol=msgbox ("Molim Vas da prilikom rada s računarom imate u vidu sledeće sugestije i informacije;",25,"Važno")
lol=msgbox ("Nemojte ništa pamtiti (‘save’), niti instalirati, niti podešavati na ‘C disku’ - jer će sve biti poništeno nakon narednog uključivanja računara.",20,"Upozorenje broj jedan")
lol=msgbox ("Sve Vaše dokumente, multimedijalne sadržaje i ostale neophodne fajlove pamtite (‘save’) na svojim prenosivim memorijama ili na ‘D disku’, odnosno, u nekom od postoječih direktorijuma ili, ukoliko je potrebno, sami kreirajte direktorijum na navedenom disku.",20,"Upozorenje broj dva")
lol=msgbox ("Stare fajlove, ukoliko ste ih imali na ‘C disku’ (u direktorijumima: ‘Desktop’, ‘My Documennts’ i drugima), pronaći čete na ‘D disku’ u direktorijumu ‘Old_14-15’.",20,"Upuzorenje broj tri")

Ali tako da, ukoliko je password u redu, da se nastavljaju navedene poruke; A ako password nije u redu, da se sve vrati na ponovno upisivanje password-a ili, recimo, da se počne sa gašenjem računara. Hvala!

Odgovor na temu

Shon3i
Beograd

Član broj: 85406
Poruke: 1173
*.dynamic.sbb.rs.

+56 Profil

Re: VBS poruke - kreiranje

^{10.08.2015. u 07:51 - pre 105 meseci}

Mislim da ces to najbolje resiti sa Goto naredbom

tako sto ces staviti label ispred komande

pw=inputbox("Enter your password.")

a posle kad proveris sa if-om vracas preko goto na predhodnu liniju koda ili pustas da kod ide dalje...

Odgovor na temu

pcpopovic
PC_Popović
Srbija

Član broj: 226882
Poruke: 206
*.dynamic.isp.telekom.rs.

+9 Profil

Re: VBS poruke - kreiranje

^{10.08.2015. u 11:58 - pre 105 meseci}

Pozdrav i hvala.
Meni ovo (što ste napisali) treba malo detaljnije pojasniti. "Napisao" sam ovako:

lol=msgbox ("Poštovanje i dobro došli!",25,"Važno")
dim speechobject
set speechobject=createobject("sapi.spvoice")
pw=inputbox("Enter your password.")
if pw="Miroslav" then msgbox ("Correct password.") else msgbox ("Incorrect password")
if pw="Miroslav" then speechobject.speak ("Correct password") else speechobject.speak ("Incorrect password")
if pw="Miroslav" then msgbox "Molim Vas da prilikom rada s računarom imate u vidu sledeće sugestije i informacije;",25,"Važno"
lol=msgbox ("Nemojte ništa pamtiti (‘save’), niti instalirati, niti podešavati na ‘C disku’ - jer će sve biti poništeno nakon narednog uključivanja računara.",20,"Upozorenje broj jedan")
lol=msgbox ("Isljučite računar nakon završetka rada.",20, "Upozorenje broj šest")
lol=msgbox ("Srećan rad!",25,"Autor")

Ovo radi, ali delimično. Jer mi se poruke nastavljaju i u slučaju ispravnog i u slučaju neispravnog "password"-a. A, ukoliko, na kraj dodam i ovo:

else
if pw=Not "Miroslav" then msgbox "Pokušajte ponovo",25,"Važno"

Javlja mi se greška - "Must be first statement on the line". I, u tom slučaju (kada bi to funkcionisalo) trebalo bi sve da se "vrati" na ponovno upisivanje "password"-a. Hvala.

Odgovor na temu

Shon3i
Beograd

Član broj: 85406
Poruke: 1173
*.dynamic.sbb.rs.

+56 Profil

Re: VBS poruke - kreiranje

^{12.08.2015. u 08:59 - pre 105 meseci}

tek sam sad shvatio da vbscript nema goto naredbu... :P

u tom slucaju morace da se odradi nesto ovako...

lol=msgbox ("Poštovanje i dobro došli!",25,"Važno")
dim speechobject
set speechobject=createobject("sapi.spvoice")
do
pw=inputbox("Enter your password.")
if pw="Miroslav" then
exit do
else
msgbox ("Incorrect password")
speechobject.speak ("Incorrect password")
lol=msgbox ("Nemojte ništa pamtiti (‘save’), niti instalirati, niti podešavati na ‘C disku’ - jer će sve biti poništeno nakon narednog uključivanja računara.",20,"Upozorenje broj jedan")
lol=msgbox ("Isljučite računar nakon završetka rada.",20, "Upozorenje broj šest")
lol=msgbox ("Srećan rad!",25,"Autor")
end if
loop

'nastavak ako je sifra tacna
msgbox ("Correct password.")
speechobject.speak ("Correct password")
msgbox "Molim Vas da prilikom rada s računarom imate u vidu sledeće sugestije i informacije;",25,"Važno"

Odgovor na temu

pcpopovic
PC_Popović
Srbija

Član broj: 226882
Poruke: 206
*.dynamic.isp.telekom.rs.

+9 Profil

Re: VBS poruke - kreiranje

^{12.08.2015. u 13:50 - pre 105 meseci}

Hvala. Napredujem - biće nešto od ovoga, a biće još i pitanja. Pozdrav!

Odgovor na temu

Shadowed
Vojvodina

Član broj: 649
Poruke: 12848

+4784 Profil

Re: VBS poruke - kreiranje

^{12.08.2015. u 14:13 - pre 105 meseci}

Predlazem vam koriscenje [code][/code] tagova za kod, citljivije je.

Nebojsa Milanovic: Što se tiče Trumpa, smatram ga vrhunskim predsednikom i voleo bih da živim u državi na čijem je on čelu.
Nebojsa Milanovic: Rusija ne laže, ne vodi osvajačke ratove
Nebojsa Milanovic: Trump je svetla tačka u USA blatu.

Odgovor na temu

pcpopovic
PC_Popović
Srbija

Član broj: 226882
Poruke: 206
*.dynamic.isp.telekom.rs.

+9 Profil

Re: VBS poruke - kreiranje

^{13.08.2015. u 11:16 - pre 105 meseci}

@Shadowed: "Predlazem vam koriscenje

Code:

tagova za kod, citljivije je."

Može li objašnjenje značenja ovog saveta. Pozdrav.

Odgovor na temu

Shadowed
Vojvodina

Član broj: 649
Poruke: 12848

+4784 Profil

Re: VBS poruke - kreiranje

^{13.08.2015. u 11:47 - pre 105 meseci}

Moze, naravno. Ako kod obuhvatis tim tagovima dobices ovako nesto:

Code:

lol=msgbox ("Poštovanje i dobro došli!",25,"Važno")
dim speechobject
set speechobject=createobject("sapi.spvoice")
do
    pw=inputbox("Enter your password.")
    if pw="Miroslav" then
      exit do
    else
        msgbox ("Incorrect password")
    speechobject.speak ("Incorrect password")
    lol=msgbox ("Nemojte ništa pamtiti (‘save’), niti instalirati, niti podešavati na ‘C disku’ - jer će sve biti poništeno nakon narednog uključivanja računara.",20,"Upozorenje broj jedan")
    lol=msgbox ("Isljučite računar nakon završetka rada.",20, "Upozorenje broj šest")
    lol=msgbox ("Srećan rad!",25,"Autor")
    end if
loop

'nastavak ako je sifra tacna
msgbox ("Correct password.")
speechobject.speak ("Correct password")
msgbox "Molim Vas da prilikom rada s računarom imate u vidu sledeće sugestije i informacije;",25,"Važno"

a ako prvi tag napravis ovako [code:vb] onda dobijes:

Code (vb):

lol=msgbox ("Poštovanje i dobro došli!",25,"Važno")

dim speechobject

set speechobject=createobject("sapi.spvoice")

do

    pw=inputbox("Enter your password.")

    if pw="Miroslav" then

      exit do

    else

        msgbox ("Incorrect password")

    speechobject.speak ("Incorrect password")

    lol=msgbox ("Nemojte ništa pamtiti (‘save’), niti instalirati, niti podešavati na ‘C disku’ - jer će sve biti poništeno nakon narednog uključivanja računara.",20,"Upozorenje broj jedan")

    lol=msgbox ("Isljučite računar nakon završetka rada.",20, "Upozorenje broj šest")

    lol=msgbox ("Srećan rad!",25,"Autor")

    end if

loop

'nastavak ako je sifra tacna

msgbox ("Correct password.")

speechobject.speak ("Correct password")

msgbox "Molim Vas da prilikom rada s računarom imate u vidu sledeće sugestije i informacije;",25,"Važno"

Odgovor na temu

pcpopovic
PC_Popović
Srbija

Član broj: 226882
Poruke: 206
*.dynamic.isp.telekom.rs.

+9 Profil

Re: VBS poruke - kreiranje

^{13.08.2015. u 14:49 - pre 105 meseci}

Malo mi je teško razumeti (i pratiti) ovakav redosled zapisa, ali svejedno - funkcioniše. Nisam još završio moj scenario, tako da se čujemo uskoro (kad negde "zapnem"). Pozdrav.

Odgovor na temu

pcpopovic
PC_Popović
Srbija

Član broj: 226882
Poruke: 206
*.dynamic.isp.telekom.rs.

+9 Profil

Re: VBS poruke - kreiranje

^{13.08.2015. u 16:16 - pre 105 meseci}

Dva pitanja.
Prvo: Kako da "namestim" da mi na određenu (ili svaku) poruku (msgbox) mora se odgovoriti sa (recimo) YES, a ukoliko se odgovori sa nekim drugim "dugmetom" prikaže poruka upozorenja i proces "vrati korak nazad"?
Drugo: Kako da iskoristim "16384", konstantu (ako je to) za HELP dugme i kako da navedem putanju do HELP fajla (koji ću kreirati)? To znam da ""napravim", ali samo uz YES dugme - u svakom drugom slučaju mi se ono (HELP) gubi. Hvala.

_{[Ovu poruku je menjao pcpopovic dana 13.08.2015. u 19:43 GMT+1]}

Odgovor na temu

pcpopovic
PC_Popović
Srbija

Član broj: 226882
Poruke: 206
*.dynamic.isp.telekom.rs.

+9 Profil

Re: VBS poruke - kreiranje

^{17.08.2015. u 16:17 - pre 105 meseci}

Pošto nema odgovora prinuđen sam da idem putem učenja iz primera, što je mnogo teže - ali vredi.
Dok, još uvek, čekam odgovor na prethodni post - evo i narednog problema.

Zašto mi se prilikom rada sa sledećom vbscript-om "gubi" (ne vidi) InputBox "name", a nemam nikakvu poruku o greški u napravljenom kodu?

Evo koda koji je radio do juče. U međuvremenu sam samo menjao neke msgbox-ove ubacio deo sa "wscript.sleep 10000".

Do
x=msgbox ("Molim Vas da u narednih deset sekundi uključite zvučnike kako bi poruka, koja sledi, bila
potpuna.",0+51+4096,"Preporuka")
if x = vbYes Then
exit do
else
msgbox "Uklučivanje zvučnika je preporučljivo!",0+16+4096,"Greška"
end if
Loop

wscript.sleep 10000
MsgBox "Hvala!",48+4096,"Dobar izbor"

Set Sapi = Wscript.CreateObject("SAPI.SpVoice")
dim str
if hour(time) < 12 then
Sapi.speak "Dobro jutro "
else
if hour(time) < 18 then
Sapi.speak "Dobar dan "
else
if hour(time) > 18 then
Sapi.speak "Dobro vece "
end if
end if
end if
Do While X = 0
name=inputbox ("Molim Vas da se predstavite radi evidencije korisnika računara. Kako glasi Vaše ime i prezime?", "Evidencija korisnika")
if name="" Then
msgbox "Izvinite, ali neophodno ja da unesete Vaše podatke",0+17+4096,"Greška"
else
Wscript.Echo name + ("?")
exit do
end if
loop

msgbox "Poštovanje i dobro došli " & name & ("!"), vbOKOnly + vbInformation,_
"Važno"
Dim WshShell, BtnCode
Set WshShell = WScript.CreateObject("WScript.Shell")
BtnCode = WshShell.Popup ("Molim Vas da odvojite nekoliko trenutaka kako bi se upoznali sa savetima u vezi rada računara.",5, "Važno",0+48+4096+16384)
Help = "C:\Proba\Demo.hlp"
Select Case BtnCode
case 1 WScript.Echo "Ispravan izbor."
case 7 WScript.Echo "Neisparavan izbor."
case -1 WScript.Echo "Nema odgovora?"
End Select

msgbox "Ukoliko želite - pritisnite ‘OK’, u protivnom - biće Vam onemogućen dalji rad, a računar će biti
isključen." ,0+52+0+4096, "Važno"

Odgovor na temu

pcpopovic
PC_Popović
Srbija

Član broj: 226882
Poruke: 206
*.dynamic.isp.telekom.rs.

+9 Profil

Re: VBS poruke - kreiranje

^{17.08.2015. u 16:20 - pre 105 meseci}

Inače, kada taj deo - InputBox name, proverim sam da li radi; Radi u potpunosti i kako sam zamislio.

Odgovor na temu

pcpopovic
PC_Popović
Srbija

Član broj: 226882
Poruke: 206
*.dynamic.isp.telekom.rs.

+9 Profil

Re: VBS poruke - kreiranje

^{17.08.2015. u 22:13 - pre 105 meseci}

Gorenavedeni problem sam rešio. Ostaje mi, za sada, problem sa "Help" fajlovima. Pozdrav.

Toliko pregleda, a tako malo odgovora!? - Ovo je samo moje razmišljanje.

Odgovor na temu

pcpopovic
PC_Popović
Srbija

Član broj: 226882
Poruke: 206
*.dynamic.isp.telekom.rs.

+9 Profil

Re: VBS poruke - kreiranje

^{25.08.2015. u 20:38 - pre 105 meseci}

Evo jedno konkretno pitanje za kraj script-e koju sam (skoro) završio:

dim speechobject
set speechobject=createobject("sapi.spvoice")

pw=inputbox("Unesite naziv škole u kojoj ste zaposleni i pritisnite dugme ‘OK’." & vbCr & "" & vbCr & "Savet: Obratite pažnju na velika i mala slova!", "Evidencija korisnika 3")
if pw="Mika Alas" then
msgbox ("Podatak je validan.")
speechobject.speak "The information is valid"

Do
m = msgbox ("Isljučite računar nakon završetka rada.",0+49+0+4096, "Preporuka")
if m = vbOk Then
exit do
else
msgbox "Morate nastaviti!",0+16+4096,"Greška"
end if
Loop

Do
n = msgbox ("Srećan rad i početak školske godine!",0+1+0+4096,"Doktor Vašeg računara")
if n = vbOk Then
exit do
else
msgbox "Preporuka je da završite čitanje ovih poruka sa pritiskom na ‘U redu’!",0+16+4096,"Greška"
end if
Loop

else
msgbox ("Podatak nije validan.")
speechobject.speak ("The information is not valid")

Dim objShell
Set objShell = WScript.CreateObject ("WScript.shell")
objShell.run "shutdown -f -s -t 30"
wscript.echo ("Žao nam je. Računar će biti ugašen za 30 sekundi.")

end if

Hteo bih da korisniku omogućim da može (recimo) tri puta da pokuša unos traženog Password-a ("Mika Alas") i da se, tek nakon, trećeg pogrešnog unosa "aktivira" gašenje računara. Pokušao sam sa "Do" i "Loop", ali se onda negde pogubim u tim silnim ponavljanjima. U najboljem slučaju "napravim" da mi se skripta vrati uvek na početak. Da li treba upotrebiti "Counter" i kako, ili već - šta? Hvala i pozdrav.

_{[Ovu poruku je menjao pcpopovic dana 25.08.2015. u 22:53 GMT+1]}

Odgovor na temu