قم بمتابعة الفيديو أدناه لمعرفة كيفية تثبيت موقعنا كتطبيق ويب على الشاشة الرئيسية.
ملاحظة: قد لا تكون هذه الميزة متاحة في بعض المتصفحات.
$r = MsgBox(3,"","ramay")
If $r =6 Then
$r = DirCopy(@UserProfileDir&"\444",@DesktopDir&"\rayy\",1)
MsgBox(0,""," تم نسخ مجلد الى سطح مكتب")
ElseIf $r = 7 Then
MsgBox(0,"","تم أنشاء مجلد على سطح مكتبك")
$r = DirCreate(@DesktopDir&"\ramay12\")
ElseIf $r = 2 Then
MsgBox(0,"","لم تختار شيئ")
EndIf
$r = MsgBox(3,"","[هل تريد انشاء مجلد على سطح المكتب؟ اضغط نعم] !! [هل تريد عمليه النسخ اضغط لا]")
If $r =7 Then
$r = DirCopy(@UserProfileDir&"\444",@DesktopDir&"\rayy\",1)
MsgBox(0,""," تم نسخ مجلد الى سطح مكتب")
ElseIf $r = 6 Then
MsgBox(0,"","تم أنشاء مجلد على سطح مكتبك")
$r = DirCreate(@DesktopDir&"\ramay12\")
ElseIf $r = 2 Then
MsgBox(0,"","لم تختار شيئ")
Else
MsgBox(0,"","لم يتحقق الشروط")
EndIf
الى waget
درس الشرط 2 بارك الله فيك
كود:$r = MsgBox(3,"","ramay") If $r =6 Then $r = DirCopy(@UserProfileDir&"\444",@DesktopDir&"\rayy\",1) MsgBox(0,""," تم نسخ مجلد الى سطح مكتب") ElseIf $r = 7 Then MsgBox(0,"","تم أنشاء مجلد على سطح مكتبك") $r = DirCreate(@DesktopDir&"\ramay12\") ElseIf $r = 2 Then MsgBox(0,"","لم تختار شيئ") EndIf
$r = MsgBox(3,"","ramay")
If $r = 6 Then
DirCopy(@UserProfileDir&"\444",@DesktopDir&"\rayy\",1)
ElseIf $r = 7 Then
DirCreate(@DesktopDir&"\ramay12\")
ElseIf $r = 2 Then
MsgBox(0,"","لم تختار شيئ")
EndIf
$r = MsgBox(3,"","ramay")
If $r = 6 Then
$r = DirCopy(@UserProfileDir&"\444",@DesktopDir&"\rayy\",1)
if $r = 0 Then
MsgBox(16,"","Error")
Else
MsgBox(0,"","Success")
endif
ElseIf $r = 7 Then
$r = DirCreate(@DesktopDir&"\ramay12\")
if $r = 0 Then
MsgBox(16,"","Error")
Else
MsgBox(0,"","Success")
endif
ElseIf $r = 2 Then
MsgBox(0,"","لم تختار شيئ")
EndIf
رامي قصدك هكذا أنت
PHP:$r = MsgBox(3,"","[هل تريد انشاء مجلد على سطح المكتب؟ اضغط نعم] !! [هل تريد عمليه النسخ اضغط لا]") If $r =7 Then $r = DirCopy(@UserProfileDir&"\444",@DesktopDir&"\rayy\",1) MsgBox(0,""," تم نسخ مجلد الى سطح مكتب") ElseIf $r = 6 Then MsgBox(0,"","تم أنشاء مجلد على سطح مكتبك") $r = DirCreate(@DesktopDir&"\ramay12\") ElseIf $r = 2 Then MsgBox(0,"","لم تختار شيئ") Else MsgBox(0,"","لم يتحقق الشروط") EndIf
$r = MsgBox(3,"","ramay")
If $r = 7 Then
$r = DirCopy(@UserProfileDir&"\444",@DesktopDir&"\rayy\",1)
if $r = 0 Then
MsgBox(16,"","Error")
Else
MsgBox(0,"","Success")
endif
ElseIf $r = 6 Then
$r = DirCreate(@DesktopDir&"\ramay12\")
if $r = 0 Then
MsgBox(16,"","Error")
Else
MsgBox(0,"","Success")
endif
ElseIf $r = 2 Then
MsgBox(0,"","لم تختار شيئ")
EndIf
بارك الله فيك هذا كلام لأنا مش فهم ياريت توضيح أكثرأخ رامي
ماسبب حفظك للقيمة الراجعه للدالة DirCreate/DirCopy
هذه مش ع بفهمه
في متغير... ماراح أقول خطأ إستخدامك لنفس متغير msgbox
ولا هذا
لأنه عند تحقق أي شرط ينتهي دورة وتقدر تسند له قيم اخرى زي ماعملت إنت
لاكن شو الفايدة منه في الكود ؟؟ وأيضاً على أي أساس وضعت msgbox تخبر المستخدم بصحة العملية ..
وأيضاً الmsgbox الثانية الخاصه DirCreate سبقت عملية إنشاء المجلد فكيف تخبر المستخدم
عن شيء لم يحدث بالاصل..
:d::d:
بارك الله فيك هذا كلام لأنا مش فهم ياريت توضيح أكثر
يعني متى يرجع ومتى ما يرجع في القيمة ومتى لا
في متغير... ماراح أقول خطأ إستخدامك لنفس متغير msgbox
وهذا كيف يعني كيف يعني نفس متغير
ثقلات عليك يا الغالي بس أستحماني
لأن دروس الاوله مهم وصعب في نفس وقت بنسبة للمبتدأ
يعني كلام الذي وضعته في الاقتباس مش عبفهم أحسه صعب
في أنتظرك ملاحظاتك:king:
DirCreate(@DesktopDir & "\test")
$var = DirCreate(@DesktopDir & "\test")
$var = DirCreate(@DesktopDir & "\test")
if $var = 1 then
MsgBox(0,"","Success")
else
MsgBox(0,"","Error")
endif
$msg = msgbox(35,"سؤال","فى مجلد اللعبة ؟ Darksiders هل تريد حفظ تخزين اللعبه ")
if $msg =7 then ; اذا ضغط المستخدم زر نو يخرج السكربت
exit
elseif $msg = 6 Then ; اذا ضغط المستخدم زر يس سيتم نسخ ملف التخزين الى مسار اللعبه
$msg2 = DirCopy(@MyDocumentsDir & "\My Games\Darksiders" _ ; لضبط العمل $msg2 تعريف المتغير
,"D:\future game\my save\Darksiders",1);موجود فى اللعبه سيتم انشائه my save اذا لم يكن المجلد
; التى قمنا بتعريف متغير جديد لها dircopy الاستفاده من القيم الراجعه للداله
if $msg2 = 0 Then
; طول المسج بوكس لتظبيط عرض اللغه العربيه فقط لتحسين شكل المسج
msgbox(16,"خطأ"," حدث خطأ اثناء نقل مجلد التخزين" _
& @crlf & " يمكنك نسخ التخزين يدويا من المسار" _
& @crlf & @MyDocumentsDir & "\My Games\Darksiders\" )
Else
msgbox (64,"تمت العمليه بنجاح"," فى مجلد اللعبة Darksiders تم بنجاح حفظ تخزين اللعة")
endif
; انتهت الاستفاده
; يعمل الاسكربت اذا حزفت ايلس اف فهى اضافيه هنا فقط للتوضيح لااكثر
else
$msg = 2
exit
endif
$1 = MsgBox(36," اختار أحد الخيارات التاليه"," هل تريد أنشاء مجلد على سطح المكتب ؟")
If $1 <> 6 then
Exit
Else
$2 = DirCreate(@DesktopDir&"\Corporation")
If $2 <> 1 Then
MsgBox(64,""," Error")
Else
MsgBox(64,"عمليه الانشاء ..."," تم أنشاء المجلد .. ستراه على سطح مكتبك")
$3 = MsgBox(68," عمليه النقـل"," هل تريد نقل المجلد من على سطح المكتب إلى القرص سيّ ؟")
If $3 = 6 Then
DirMove(@DesktopDir&"\Corporation",@WindowsDir&"\Corporation",9)
MsgBox(64,"تم نقل المجلد ..."," C:\WINDOWS ستجده المجلد بالمسار التالي")
Else
Exit
EndIf
EndIf
EndIf
$ramay = MsgBox(3,"","")
If $ramay = 6 Then
$ramay = FileCopy(@HomeDrive&"\ramay22.txt",@DesktopDir&"\ram3ay\",9)
MsgBox(0,"","تم")
ElseIf $ramay = 7 Then
$ramay =DirCopy(@UserProfileDir&"\444",@DesktopDir&"\UU\",1)
If $ramay = 0 Then
MsgBox(0,"","ERROR")
MsgBox(0,"","تم")
EndIf
ElseIf $ramay = 2 Then
MsgBox(0,"","NO")
EndIf
السلام عليكم احبتى فى الله
الاستفاده من أداه الشرط الجزئ الثانى
فى نسخ تخزينات الالعاب وهذا هو تطبيقى
بأفتراض انك مهتم بالالعاب واغلب الالعاب الحديثه تقوم بوضع التخزين الخاص My Documents
وعند تغيير نسخه الويندوز ربما تضيع كل تخزيناتك الخاصه بالألعاب
فتعالوا بنا نأخذ هذا المثال وهو احضار تخزين اللعبه الشهيره (دارك سيدرز) الى مجلد اللعبه الرئيسى حتى تضمن التخزين حتى بعد الفورمات :d:
معلومات [/FONT]
مسار تخزين الللعبه [/FONT]
C:\Users\HimoScript\Documents\My Games\Darksiders\
مسار اللعبه على جهازك مثلا[/FONT]
D:\future game
التطبيق
بأنتظار التحليل والمناقشه :q:PHP:$msg = msgbox(35,"سؤال","فى مجلد اللعبة ؟ Darksiders هل تريد حفظ تخزين اللعبه ") if $msg =7 then ; اذا ضغط المستخدم زر نو يخرج السكربت exit elseif $msg = 6 Then ; اذا ضغط المستخدم زر يس سيتم نسخ ملف التخزين الى مسار اللعبه $msg2 = DirCopy(@MyDocumentsDir & "\My Games\Darksiders" _ ; لضبط العمل $msg2 تعريف المتغير ,"D:\future game\my save\Darksiders",1);موجود فى اللعبه سيتم انشائه my save اذا لم يكن المجلد ; التى قمنا بتعريف متغير جديد لها dircopy الاستفاده من القيم الراجعه للداله if $msg2 = 0 Then ; طول المسج بوكس لتظبيط عرض اللغه العربيه فقط لتحسين شكل المسج msgbox(16,"خطأ"," حدث خطأ اثناء نقل مجلد التخزين" _ & @crlf & " يمكنك نسخ التخزين يدويا من المسار" _ & @crlf & @MyDocumentsDir & "\My Games\Darksiders\" ) Else msgbox (64,"تمت العمليه بنجاح"," فى مجلد اللعبة Darksiders تم بنجاح حفظ تخزين اللعة") endif ; انتهت الاستفاده ; يعمل الاسكربت اذا حزفت ايلس اف فهى اضافيه هنا فقط للتوضيح لااكثر else $msg = 2 exit endif
$Text = "www.zyzoom.org/vb" &@CRLF
$Text &= "AutoIt v3 Script " &@CRLF
$Text &= "----------------" &@CRLF
MsgBox(0,"",$text)
MsgBox(0,"","www.zyzoom.org/vb" & @CRLF & _
"AutoIt v3 Script " & @CRLF & _
"----------------")
في الكود ألي فوق الرسالة سبقت العملية (دالة النسخ).. وهذا خطأ ووضحت لك سابقاُ..راح أراجع معك الان أكوادك وأعلق عليها
في ما أنا أنسخ مجلد لماذا سوف أضع كود أنشاء مجلد أن لم يكن موجودكود:$m =MsgBox(4,"ramay"," سيتم عملية نسخ الى قرص نظام",10) If $m = 6 Then [COLOR=Red] MsgBox(0,"ramay", "تم عملية نسخ")[/COLOR] $m = DirCopy(@DesktopDir&"\ramay",@HomeDrive&"\ramay",1) Else MsgBox(0,"ramay","فشلت عملية نسخ ") EndIf
مفروض ينسخ مجلد ومحتوياته دون انشاء مجلد
جربت لكن لم أجد طريقة
$m =MsgBox(4,"ramay"," سيتم عملية نسخ الى قرص نظام",10)
If $m = 6 Then
$copy = DirCopy(@DesktopDir&"\ramay",@HomeDrive&"\ramay",1)
if $copy = 1 then
MsgBox(0,"ramay", "تم عملية نسخ")
Else
MsgBox(0,"ramay","فشلت عملية نسخ ")
endif
Else
MsgBox(0,"","End")
EndIf
ضع لكل مجلد دالة ...كود:$f =DirCreate (@HomeDrive&"\ramay1\ramay2\ramay3") If $f = 1 Then MsgBox(0,"","don") Else MsgBox(0,"","erro") EndIf
لكن لي أستفسار حيث لو أردت أنشاء مجلدين أو أكثر داخل مجلد واحد ماذا سوف أَضيف
$ramay = MsgBox(3,"","")
If $ramay = 6 Then
$ramay = FileCopy(@HomeDrive&"\ramay22.txt",@DesktopDir&"\ram3ay\",9)
MsgBox(0,"","تم")
ElseIf $ramay = 7 Then
$ramay =DirCopy(@UserProfileDir&"\444",@DesktopDir&"\UU\",1)
If $ramay = 0 Then
MsgBox(0,"","ERROR")
MsgBox(0,"","تم")
EndIf
ElseIf $ramay = 2 Then
MsgBox(0,"","NO")
EndIf
طيب يا الغالي فرق بين دالة ودلتك
هو أنا سبقت عملية دالة نسخ ثم وضعت قيمة راجع له وهذا قد علمته عندما وضحت لي
وأنت وضع الدالة ثم وضعت قيمة راجعه
ووضعت قيك أذا تم نسخ يظهر رسالة في تخبرها وأذا لم يتم نسخ تظهر رسالة تخبرها في فشل
طيب هذا كود الاخير الذي وضعته هل يوجد فيه الاخطاء وهو في مشاركة التى قبل هذه
كود:$ramay = MsgBox(3,"","") If $ramay = 6 Then $ramay = FileCopy(@HomeDrive&"\ramay22.txt",@DesktopDir&"\ram3ay\",9) [COLOR=Red]MsgBox(0,"","تم")[/COLOR] ElseIf $ramay = 7 Then $ramay =DirCopy(@UserProfileDir&"\444",@DesktopDir&"\UU\",1) If $ramay = 0 Then [COLOR=Red]MsgBox(0,"","ERROR") MsgBox(0,"","تم")[/COLOR] EndIf ElseIf $ramay = 2 Then MsgBox(0,"","NO") EndIf
حياك الله أخوي :d:..
إضافه جمالية فقط وهي إضافة الرقم 524288 إلي Flag
الmsgbox ليغير إتجاه الكتابة .. بدل وضع المسافات..
أضفت الماكرو @crlf في السكريبت لم يتم التطرق له من قبل :d:
في المشاركة القادمه لي أمثله علية إن شاء الله..
:king::king:
; طول المسج بوكس لتظبيط عرض اللغه العربيه فقط لتحسين شكل المسج
msgbox(16,"خطأ"," حدث خطأ اثناء نقل مجلد التخزين" _
& @crlf & " يمكنك نسخ التخزين يدويا من المسار" _
& @crlf & @MyDocumentsDir & "\My Games\Darksiders\" )