Çağlar Arlı/ Ekim 16, 2020/ Savaşan Teknoloji/ 0 comments

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!

Share this Post

About Çağlar Arlı

Küçükken çocukluğumda bilim adamı olmak isterdim. Büyük ve yeni bir şeyler bulup insanlara faydalı olup onların mutlu olmasını isterdim. Yüzlerindeki gülümseme ve tebessüm bana yeterdi. Ama şimdi sadece bir IT yöneticisi ve satış pazarlamacı oldum. Fakat bu gayemi asla kaybetmedim. Ben yaptığım işe yüreğimi ve sevgimi koyarak insanları nasıl mutlu ederim ve gülümsetebilirim diye düşünüyorum.

Leave a Comment

E-posta hesabınız yayımlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir

*
*