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

[LINEZERO]

تفضل اخي
hatem-ghouthi

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

 

[LINEZERO]

تفضل اخي
hatem-ghouthi

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

 

[hatem-ghouthi]

تفضل اخي
hatem-ghouthi

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

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

 

[prooonet]

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

 

[محمد الجادري]

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

 

[عبدالله]

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

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

 

[BlackOps]

 

[isknder]

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

 

[العبد الفقير إلى اللهالعبد الفقير إلى الله is verified member.]

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

 

[LINEZERO]

السلام عليكم

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

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

بالتوفيق

 

[isknder]

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

 

[ماجد مفتن]

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

 

[hatem-ghouthi]

السلام عليكم
لي طلب صغير عندي ملفات لعبة معينه اسمائهما (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
بصراحة لم افهم بصورة كاملة
لكن ياريت برنامج تنصيب بسيط واكون لك ممنون

 

[hatem-ghouthi]

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

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

 

[hatem-ghouthi]

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

@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

 

[ماجد مفتن]

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

 

[hatem-ghouthi]

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

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

 

[mohamed7799]

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

 

[MesterPerfectMesterPerfect is verified member.]

اخي العزيز فوزان
اعجز عن شكرك ووصف جمال موضوعك ولكن أخاف ان تشوه حروفي جمال ما خطته اناملك
واخاف ان تقصر حروفي بوصف إبداعك
وان لاتفي تميزك حقه ... فساكتفي بـ شكراً لكـ من القلب

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

اساال الله العلي العظيم ان يجعل عملك هذا خالصاً لوجهه الكريم
وان يجعلها في ميزان حسناتك

:b::b:
الاسطوانه على rapidshare​