LINEZERO
زيزوومى محترف
غير متصل
قم بمتابعة الفيديو أدناه لمعرفة كيفية تثبيت موقعنا كتطبيق ويب على الشاشة الرئيسية.
ملاحظة: قد لا تكون هذه الميزة متاحة في بعض المتصفحات.
تفضل اخي
hatem-ghouthi
واعتذر عن التاخير
السلام عليكم
لي طلب صغير عندي ملفات لعبة معينه اسمائهما (1 و 2 )مضغوطة ببرنامج 7z
اريد ملف دفعي لفكهما بنفس المجلد وحذفهما بعد الفك واريد انشاء اختصار لتشغيل اللعبة على سطح المكتب
والشكر موصول لكم جميعا
# هنا عملية استخراج الملفات
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
اشكرك اخييجب عليك تسجيل الدخول او تسجيل لمشاهدة الرابط المخفي
بصراحة لم افهم بصورة كاملة
لكن ياريت برنامج تنصيب بسيط واكون لك ممنون
@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
اخي العزيز فوزان
اعجز عن شكرك ووصف جمال موضوعك ولكن أخاف ان تشوه حروفي جمال ما خطته اناملك
واخاف ان تقصر حروفي بوصف إبداعك
وان لاتفي تميزك حقه ... فساكتفي بـ شكراً لكـ من القلب
فبعد ان كنت احد اهم اسباب نجاح الدوره بعد الله تجدد الابداع وتصدر هذه الاسطوانه التي
مهما وصفت لن اعطيها حقها ..
اساال الله العلي العظيم ان يجعل عملك هذا خالصاً لوجهه الكريم
وان يجعلها في ميزان حسناتك
:b::b:
الاسطوانه علىيجب عليك تسجيل الدخول او تسجيل لمشاهدة الرابط المخفي