السلام عليكم
كلنا نعرف المفكرة او note pad هذه الاداة رغم بسطتها فليست لتدوين افكار او معلومات بل لها استعمالات رائعة وعجيبة ومفيدة جداااا الاستعمال الاول في هذا الدرس هي ساشرح لكم صنع برميجصغير بهذه المفكرة للنطق جميع الكلمات الانجليزية التي يصعب عليك نطقها يعتبر هذا البريمج الصغير بمثابة معلم الكتروني
والاستعمال الثاني هي حماية ملفاتك الشخصية والمهمة ب كلمة سر خوفا وحماية من المطتفلين اذن ساترك لكم الاكواد المستعملة في الشرح والفيديو وفرجة ممتعة
-الكود الاول :cls@ECHO OFF
title Folder Private
if EXIST "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}" goto UNLOCK
if NOT EXIST Private goto MDLOCKER
:CONFIRM
echo Are you sure you want to lock the folder(Y/N)
set/p "cho=>"
if %cho%==Y goto LOCK
if %cho%==y goto LOCK
if %cho%==n goto END
if %cho%==N goto END
echo Invalid choice.
goto CONFIRM
:LOCK
ren Private "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}"
attrib +h +s "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}"
echo Folder locked
goto End
:UNLOCK
echo Enter password to unlock folder
set/p "pass=>"
if NOT %pass%== ضع كلمة السر هنا goto FAIL
attrib -h -s "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}"
ren "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}" Private
echo Folder Unlocked successfully
goto End
:FAIL
echo Invalid password
goto end
:MDLOCKER
md Private
echo Private created successfully
goto End
End
-الكود الثاني :
Dim msg, sapimsg=InputBox("Enter your text for conversion–"," Text-To-Audio Converter")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak msg
كلنا نعرف المفكرة او note pad هذه الاداة رغم بسطتها فليست لتدوين افكار او معلومات بل لها استعمالات رائعة وعجيبة ومفيدة جداااا الاستعمال الاول في هذا الدرس هي ساشرح لكم صنع برميجصغير بهذه المفكرة للنطق جميع الكلمات الانجليزية التي يصعب عليك نطقها يعتبر هذا البريمج الصغير بمثابة معلم الكتروني
والاستعمال الثاني هي حماية ملفاتك الشخصية والمهمة ب كلمة سر خوفا وحماية من المطتفلين اذن ساترك لكم الاكواد المستعملة في الشرح والفيديو وفرجة ممتعة
-الكود الاول :cls@ECHO OFF
title Folder Private
if EXIST "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}" goto UNLOCK
if NOT EXIST Private goto MDLOCKER
:CONFIRM
echo Are you sure you want to lock the folder(Y/N)
set/p "cho=>"
if %cho%==Y goto LOCK
if %cho%==y goto LOCK
if %cho%==n goto END
if %cho%==N goto END
echo Invalid choice.
goto CONFIRM
:LOCK
ren Private "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}"
attrib +h +s "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}"
echo Folder locked
goto End
:UNLOCK
echo Enter password to unlock folder
set/p "pass=>"
if NOT %pass%== ضع كلمة السر هنا goto FAIL
attrib -h -s "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}"
ren "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}" Private
echo Folder Unlocked successfully
goto End
:FAIL
echo Invalid password
goto end
:MDLOCKER
md Private
echo Private created successfully
goto End
End
-الكود الثاني :
Dim msg, sapimsg=InputBox("Enter your text for conversion–"," Text-To-Audio Converter")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak msg
تعليقات: 0
إرسال تعليق