VBScript hogyan? -> hibás jelszóra msgbox illetve előlrőlkezdés, windows funkció (művelet) parancsok.
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!
Ha ez így nem "érthető" akkor itt az MSN címem: marcim10@citromail.hu
Itt részletesebben leírom ha kell!
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
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ó
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
Ha kifogással szeretne élni valamely tartalommal kapcsolatban, kérjük jelezze e-mailes elérhetőségünkön!