Kezdőoldal » Számítástechnika » Programozás » VBScript hogyan? -> hibás...

VBScript hogyan? -> hibás jelszóra msgbox illetve előlrőlkezdés, windows funkció (művelet) parancsok.

Figyelt kérdés

Sziasztok! Írtam egy VBS-t ami jelszót kér és ha megfelel a jelszó azt kiírja és utánna henger-t számít.

Az lenne a kérdésem hogy hogy csináljam meg azt a jelszónál hogy ha rossz jelszót írok be akkor kijöjjön egy msgbox és utánna visszadobjon arra az inputboxra ahol azt a jelszót kérte? Így néz ke ez a része:

if inputbox (szoveg2, fejlec,uzenet2) = "pass" then

msgbox ("A jelszó elfogadva!")

A 2. kérdésem pedig: mien parancsok vannak ara hogy Pl. a windows-t a program ujraindítsa, megynyisson fájlokat vagy ilyesmik és hogy hpgy tudom azt megcsinálni hogy a inputboxba Pl. beírom hogy /restart és a megfelelő parancsra kapcsolva a program ujraindítsa a gépet?

Előre is köszi a segítséget!


2010. aug. 3. 18:09
 1/4 A kérdező kommentje:

Ha ez így nem "érthető" akkor itt az MSN címem: marcim10@citromail.hu

Itt részletesebben leírom ha kell!

2010. aug. 3. 18:18
 2/4 anonim válasza:

kerdes= "Add meg a jelszót:"

kod= 36

vmi="Újra?"

Uzenet= inputbox (kerdes,kod)



If Uzenet= "jelszó" Then


set shell = createobject("wscript.shell")

shell.run "calc.exe"



else

a="Helytelen jelszó.Újra?"

b="Helytelen!"

c="4"

Mondjad= msgbox (a,c,b)


If Mondjad=6 Then

set shell = createobject("wscript.shell")

shell.run "munka.vbs"



End if

End if



itt a jelszó= jelszó és ha beírod megnyitja a számológépt ha nem megkérdezi hogy újra??? ha nem akk kikapcsol ha igen újraa indul a program FONTOS egy "munka.vbs" nevű fájlba kell beteni vagy át kell nevezni a programba hogy mit indítson azt hogy minden másra ami nem a jelszó viszadojon az "else" parancsal tudod megcsinálni az újraindításhoz :


és az újraindítás ha jólemlékszem :


kerdes="Újraindítsam?"

kod=""

fejlec="Restart"

Uzenet= inputbox (kerdes,fejlec,kod)


If Uzenet="restart" Then


set shell= createobject (Wscript.shell)

Set objExec = Shell.Exec("restart -s -t")


End if


és azt kell beírni újraindításhoz hogy restart ha mást írsz kikapcsol

bocs a hibákért :D

2010. okt. 31. 10:42
Hasznos számodra ez a válasz?
 3/4 anonim válasza:
mármint nem a gép kapcsol ki ha nem a progi :D
2010. okt. 31. 10:43
Hasznos számodra ez a válasz?
 4/4 anonim válasza:

még mindig én :D

kijavítottam a restartot :D


kerdes="Újraindítsam?"

kod=""

fejlec="Restart"

Uzenet= inputbox (kerdes,fejlec,kod)


If Uzenet="restart" Then


set shell= createobject (Wscript.shell)

Set objExec = Shell.Exec("restart -r")


End if


így a jó

2010. okt. 31. 11:19
Hasznos számodra ez a válasz?

Kapcsolódó kérdések:




Minden jog fenntartva © 2024, www.gyakorikerdesek.hu
GYIK | Szabályzat | Jogi nyilatkozat | Adatvédelem | Cookie beállítások | WebMinute Kft. | Facebook | Kapcsolat: info(kukac)gyakorikerdesek.hu

A weboldalon megjelenő anyagok nem minősülnek szerkesztői tartalomnak, előzetes ellenőrzésen nem esnek át, az üzemeltető véleményét nem tükrözik.
Ha kifogással szeretne élni valamely tartalommal kapcsolatban, kérjük jelezze e-mailes elérhetőségünkön!