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!