Vbs İle Parola Koruması

Option Explicit

Dim returnvalue, pass, Shell

pass=”test”

returnvalue=inputbox(“Sifrenizi Giriniz”)

If returnvalue=pass then

msgbox(“Sifre Dogru!”)

set Call=createobject(“wscript.shell”)

Call.run “Caglararli.bat”

set Call=Nothing

Else

do

msgbox(“Sifre Yanlıs!”)

loop

End If

Yardiminiz İcin. Tesekkurler!