[1] -دورة الملفات الدفعيه ( السكربتات ) :::: اوامر + شروحات + دروس

تفضل اخي
hatem-ghouthi

واعتذر عن التاخير

 

تفضل اخي
hatem-ghouthi

واعتذر عن التاخير

 

لا اخي . اسمحلي انا لاني تعبتك معي . والله لا اعرف كيف اشكرك . بارك الله فيك .. وجزاك الله خيرا .

 

موضوع قيم ويحتوي على معلومات جوهرية الله يعطيك العافية بارك الله فيك

 

مشكور على هذا الابداع

 

رابط الاسطوانة والكتاب لا يعملان ... ( هل يمكن تحديثهم ) ؟

وشكراً لكم على الدروة الرائعة ...

 

رابط الاسطوانة والكتاب لايعملان .بانتظار التحديث
جزاكم الله خيرا

 

السلام عليكم

احبتي هذا رابط الاسطوانه واعتذرعن التاخير

http://www.mediafire.com/?gx4uvo6y0y117rb

بالتوفيق

 

جزاك الله خيرا مشكور

 

السلام عليكم
لي طلب صغير عندي ملفات لعبة معينه اسمائهما (1 و 2 )مضغوطة ببرنامج 7z
اريد ملف دفعي لفكهما بنفس المجلد وحذفهما بعد الفك واريد انشاء اختصار لتشغيل اللعبة على سطح المكتب
والشكر موصول لكم جميعا

 

وعليكم السلام ورحمة الله وبركاته
اهلا بك اخي الكريم
فكرتك هي عبارة عن برنامج تنصيب للعبة
يقوم اولا باستخراج الملفات من ملف مظغوط ثم بعدها يقوم بعمل اختصار للعبة على سطح المكتب
الجزء الاول وهو استخراج الملفات يمكنك عمله بملف دفعي بالاستعانة ببرنامج ظغط ملفات مثل winrar
اما انشاء اختصار فهو يتطلب لغة برمجية اخرى
انا بحثت في النت ووجدت مايمكن ان يفيدك في هذه الحالة وهي مجموعة من اوامر vbscript لانشاء اختصار على سطح المكتب
لذا بدمجها معا تصبح هكذا

كود:

# هنا عملية استخراج الملفات
7z.exe e file -o path-to-extact -aoa

# ثم هنا عمل اختصار للملف على سطح المكتب

%systemdrive%
cd %appdata%
cd..
if exist "Bureau" cd Bureau
if exist "desktop" cd desktop
if exist "سطح المكتب" cd "سطح المكتب"

for %%f in (مسار الملف) do set name=%%~nf
if exist %name%.lnk set name=%name%-%random%

echo Set oWS = WScript.CreateObject("WScript.Shell") > CreateShortcut.vbs
echo sLinkFile = "%name%.lnk" >> CreateShortcut.vbs
echo Set oLink = oWS.CreateShortcut(sLinkFile) >> CreateShortcut.vbs
echo oLink.TargetPath = %مسار الملف% >> CreateShortcut.vbs
echo oLink.Save >> CreateShortcut.vbs
cscript CreateShortcut.vbs
del CreateShortcut.vbs

اذا وجدت صعوبة في فهم هذه الاوامر راح اعملك برنامج تنصيب بسيط

 

اشكرك اخي hatem-ghouthi
بصراحة لم افهم بصورة كاملة
لكن ياريت برنامج تنصيب بسيط واكون لك ممنون

 

انا عملتلك برنامج تنصيب
حمل الملف المظغوط وفك الظغط
تجد ملف دفعي اسمه
setup
شغله
راح يستخرج الملفات على قرص النظام في مجلد اسمه sc2
ويظع لك اختصار على سطح المكتب

 

الاوامر المستعملة داخل البرنامج

كود:

@ECHO OFF
title setup SuperCopier2 2016
COLOR 0e
set des=%systemdrive%\Sc2
md %des%
7z.txt e files.7z -o%des% -aoa >nul
set file=%des%\SuperCopier2.exe
%systemdrive%
cd %appdata%
cd..
if exist "Bureau" cd "Bureau"
if exist "desktop" cd "desktop"
if exist "سطح المكتب" cd "سطح المكتب"

for %%f in (%file%) do set name=%%~nf
if exist %name%.lnk set name=%name%-%random%
:sta
echo Set oWS = WScript.CreateObject("WScript.Shell") > CreateShortcut.vbs
echo sLinkFile = "%name%.lnk">> CreateShortcut.vbs
echo Set oLink = oWS.CreateShortcut(sLinkFile) >> CreateShortcut.vbs
echo oLink.TargetPath = "%file%">> CreateShortcut.vbs
echo oLink.Save >> CreateShortcut.vbs
cscript CreateShortcut.vbs
del CreateShortcut.vbs
cls
echo mission complete
pause>nul

 

شكرا جزيلا لك اخي وبارك الله فيك

 

وفيك بارك الله
العفو

 

ما شاء الله موضوع ضخم ومميز
بوركت جهودك اخي العزيز