ashalshaikh
زيزوومى فضى
غير متصل
من فضلك قم بتحديث الصفحة لمشاهدة المحتوى المخفي
قم بمتابعة الفيديو أدناه لمعرفة كيفية تثبيت موقعنا كتطبيق ويب على الشاشة الرئيسية.
ملاحظة: قد لا تكون هذه الميزة متاحة في بعض المتصفحات.
حبيبي أحمد مو إذا البرنامج معروف لدينا نستخدم أمر أقفال مهمه بالقوه مع الشرط عن طريق إدارة المهام
أنا أبدأ بـ البداية
كود:[COLOR=navy]ProcessClose[/COLOR][COLOR=red]([/COLOR]"[COLOR=slategray]realplay.exe[/COLOR]"[COLOR=red])[/COLOR]
كود:[CENTER][COLOR=sienna]$PID[/COLOR] = [COLOR=navy]ProcessExists[/COLOR][COLOR=red]([/COLOR]"realplay.exe"[COLOR=red])[/COLOR] [CENTER][COLOR=blue]If[/COLOR][COLOR=sienna] $PID[/COLOR] [COLOR=blue]Then[/COLOR] [COLOR=navy]ProcessClose[/COLOR][COLOR=sienna]($PID)[/COLOR][/CENTER]
الأمر يقفل برنامج الريل بلير بالقووووة وإذا مش شغال البرنامج يكمل عمله :d:
الحين نبي نركب أوامر الحذف
ولا موووو :?:
نعم هذا صحيح ,,
بارك الله فيك ,,
ولكن يبغى حذف الملف بالقوة ,, مع بقاء الملف نكرة<<< يعني أكواد معرفة إذا كان مشغول من البروسس ثم إطفاؤها ثم حذفه ,,
على كل حال تم وضع موضوع في منتدى الأوتيت :d: <<< عاد بالإنجليزي الله لا يوريك :hh: <---- أسكت لا تفضحنا !!!
الله يخلي لنا قوقل :hh::q:
بارك الله فيك ,,معلومة ممكن تسهل لكم البحث
انا احتاج تعلم الامر لحذف ملفات التجسس النشطة
مثلاا بقسم الصيانة في اعضاء مبتدئين
فبدل ما اقوله روح المجلد الفلاني واحذف واذا ما حذف جرب الوضع الامن ..... وتطول الشغلة
اسوي سكربت واقوله دبل كلك ويسلم راسك
انتم عارفين ادوات الحذف المستعصية
يجب عليك تسجيل الدخول او تسجيل لمشاهدة الرابط المخفي
فيه منها يستخدم طريقة الحذف بعد اعادة التشغيل
والهدف من اعادة التشغيل هو حذف الملف قبل ان يبدأ بالعمل مع الوندوز
دورو لنا على السكربت ، كود تنفع المسلمين :d:
[/CENTER]
$TryCount = 5
$Process = "Process"
$File = "File"
;==================================
For $x = 1 To $TryCount
ProcessClose ($Process)
Sleep (1000)
If Not ProcessExists ($Process) Then ExitLoop
Next
For $x = 1 To $TryCount
FileDelete ($File)
Sleep (1000)
If Not FileExists ($File) Then ExitLoop
Next
If FileExists ($File) Then
Msgbox (0,"","فشلت العملية")
Else
Msgbox (0,"","تم بنجاح")
EndIf
الله يجزاك خير أخي ,,اخى الفاضل جزاكم الله خيرا ولكل من شارك فى هذا العمل الرائع
باذن الله عندما اشعر بانتهاء هذة الاستفسارات سوف اصتع كتاب الكترونى شامل لهذة الدورة من الالف الى الياء يحتوى على جميع هذة المشاركات وان كنت اعتقد ان هذة الدورة لن تنتهى باذن الله طالما يوجد اناس محبون لمساعدة غيرهم بما اتاهم الله من علم
الله يجزاك خير أخي ,,
ما بتقصر إن شاء الله ,,
بخصوص الدروة هي انتهت وهذا فقط درس تابع !!
بارك الله فيك ,,,
بيض الله وجهكبارك الله فيك ,,
جزاك الله خير على التوضيح
إذا كذا ,,
بإذن الله مسهلة ,,
يعني إنت تقول :: العملية معروفة والملف معروف صح ؟
جرب هالكود ,,
غير في الثلاث الأسطر الأولى ,,كود:$TryCount = 5 $Process = "Process" $File = "File" ;================================== For $x = 1 To $TryCount ProcessClose ($Process) Sleep (1000) If Not ProcessExists ($Process) Then ExitLoop Next For $x = 1 To $TryCount FileDelete ($File) Sleep (1000) If Not FileExists ($File) Then ExitLoop Next If FileExists ($File) Then Msgbox (0,"","فشلت العملية") Else Msgbox (0,"","تم بنجاح") EndIf
بالتوضيح التالي ::
ضع بعد $TryCount = عدد المحاولات التي تريد يحاولها للحذف ولإطفاء العملية يفصلها ثانية
ضع بعد $Process = اسم العملية بين تنصيص :bleh:
ضع بعد $File = مسار الملف بين تنصيص ,,
يعني فقط استبدل الكلام الموجود الخمسة والProcess و File اللي بين تنصيصk:
على فكرة ,, يظهر رسالة بأنه نجح أول لا ,,
بارك الله فيك ,,
على فكرة ,, أولا جربه على ملف عادي ,, بعدين شوف ,, تراني ما جربته !!
تحياتي ,,
الله يسلمك ,,نعم اخى الفاضل اعلم ذلك ولكن انا اريد تجميع كل الدروس والاكواد الاضافية والاوامر حتى تكون مرجع كامل ان شاء الله
الله يسلمك !! :d::d::d:بيض الله وجهك
نجحت العمليةk:
جربتها مرة وحدة ونجحت
وان شاء الله لي تجارب ثانية واي تعديل نحتاجه نبلغك فيه
لا هنتم جميع
حطه بالفهرس خل المسلمين يستفيدون :q:الله يسلمك !! :d::d::d:
الحمد لله ,,
إن شاء الله ,,حطه بالفهرس خل المسلمين يستفيدون :q:
ولا ترفع الموضوع الا بعد 24 ساعة عشان لا تنطرد :d:
إن شاء الله ,,
بس كل شي في وقته حلو :d: ,, بعد شرح For أحطه عشان الناس تفهمه :d::bleh::bleh::bleh:
تصدق والله هذا Jos مستقعدلي ,,رفعته بعد 24 ساعة ,, يقولي أغلق موضوعك لأني لا أرى أي جهد من جانبكم
يعني إنت ما بحثت ,,
وحطلي خطأ عند إسمي
المنتدى غبي جدا ,, له شروط غبييييييييية ,, جدا ,, اللي ما يشارك ينطرد :d: وكمان المراقبين تحسهم عبيطيييييييييييين ,, !!! بس الشكوى لله ,,
بارك الله فيك ,,
جزاك الله خير على التوضيح
إذا كذا ,,
بإذن الله مسهلة ,,
يعني إنت تقول :: العملية معروفة والملف معروف صح ؟
جرب هالكود ,,
غير في الثلاث الأسطر الأولى ,,كود:$TryCount = 5 $Process = "Process" $File = "File" ;================================== For $x = 1 To $TryCount ProcessClose ($Process) Sleep (1000) If Not ProcessExists ($Process) Then ExitLoop Next For $x = 1 To $TryCount FileDelete ($File) Sleep (1000) If Not FileExists ($File) Then ExitLoop Next If FileExists ($File) Then Msgbox (0,"","فشلت العملية") Else Msgbox (0,"","تم بنجاح") EndIf
بالتوضيح التالي ::
ضع بعد $TryCount = عدد المحاولات التي تريد يحاولها للحذف ولإطفاء العملية يفصلها ثانية
ضع بعد $Process = اسم العملية بين تنصيص :bleh:
ضع بعد $File = مسار الملف بين تنصيص ,,
يعني فقط استبدل الكلام الموجود الخمسة والProcess و File اللي بين تنصيصk:
على فكرة ,, يظهر رسالة بأنه نجح أول لا ,,
بارك الله فيك ,,
على فكرة ,, أولا جربه على ملف عادي ,, بعدين شوف ,, تراني ما جربته !!
تحياتي ,,
[COLOR=Magenta]#include [/COLOR][COLOR=SlateGray]<File.au3>[/COLOR]
[COLOR=Magenta]#include[/COLOR] [COLOR=SlateGray]<ScreenCapture.au3>[/COLOR]
[COLOR=Sienna]$FilePath[/COLOR][COLOR=Red] =[/COLOR] [COLOR=Magenta]@DesktopDir[/COLOR]
[COLOR=Sienna]$FileName[/COLOR] [COLOR=Red]=[/COLOR][COLOR=SlateGray] 'Problem'[/COLOR]
[COLOR=Sienna]$FileList[/COLOR] [COLOR=Red]=[/COLOR] [COLOR=RoyalBlue]_FileListToArray[/COLOR][COLOR=Red]([/COLOR][COLOR=Sienna]$FilePath[/COLOR][COLOR=Red],[/COLOR] [COLOR=Sienna]$FileName[/COLOR] [COLOR=Red]&[/COLOR] [COLOR=SlateGray]'*.jpg'[/COLOR][COLOR=Red],[/COLOR] [COLOR=DarkOrchid]1[/COLOR][COLOR=Red])[/COLOR]
[COLOR=Blue]If Not[/COLOR] [COLOR=DarkRed]IsArray[/COLOR][COLOR=Red]([/COLOR][COLOR=Sienna]$FileList[/COLOR][COLOR=Red])[/COLOR] [COLOR=Blue]Then[/COLOR]
[COLOR=Sienna] $FileName[/COLOR][COLOR=Red]&=[/COLOR] [COLOR=SlateGray]'1.jpg'[/COLOR]
[COLOR=Blue]Else[/COLOR][INDENT][INDENT] [COLOR=Sienna]$FileName[/COLOR] [COLOR=Red]&=[/COLOR] [COLOR=Sienna]$FileList[/COLOR][COLOR=Red][[/COLOR][COLOR=DarkOrchid]0[/COLOR][COLOR=Red]][/COLOR] [COLOR=Red]+[/COLOR][COLOR=DarkOrchid] 1[/COLOR] [COLOR=Red]&[/COLOR] [COLOR=SlateGray]'.jpg'[/COLOR]
[/INDENT][/INDENT][COLOR=Blue]EndIf[/COLOR]
[COLOR=RoyalBlue]_ScreenCapture_Capture[/COLOR][COLOR=Red]([/COLOR][COLOR=Sienna]$FilePath [/COLOR][COLOR=Red]&[/COLOR] [COLOR=SlateGray]"\"[/COLOR] [COLOR=Red]&[/COLOR] [COLOR=Sienna]$FileName[/COLOR][COLOR=Red])[/COLOR]
[COLOR=Sienna]$FilePath[/COLOR][COLOR=Red] =[/COLOR] [COLOR=Magenta]@DesktopDir[/COLOR]
[COLOR=Sienna]$FileName[/COLOR] [COLOR=Red]=[/COLOR][COLOR=SlateGray] 'Problem'[/COLOR]
[COLOR=Sienna]$FileList[/COLOR] [COLOR=Red]=[/COLOR] [COLOR=RoyalBlue]_FileListToArray[/COLOR][COLOR=Red]([/COLOR][COLOR=Sienna]$FilePath[/COLOR][COLOR=Red],[/COLOR] [COLOR=Sienna]$FileName[/COLOR] [COLOR=Red]&[/COLOR] [COLOR=SlateGray]'*.jpg'[/COLOR][COLOR=Red],[/COLOR] [COLOR=DarkOrchid]1[/COLOR][COLOR=Red])[/COLOR]
#Include <File.au3>
[COLOR=RoyalBlue]_FileListToArray[/COLOR]($sPath[, $sFilter = "*"[, $iFlag = 0]])
$iFlag=[COLOR=Red]0[/COLOR](Default) Return both files and folders [COLOR=Blue]يرجع للملف والمجلد[/COLOR]
$iFlag=[COLOR=Red]1[/COLOR] Return files only[COLOR=Blue] يرجع للملف فقط[/COLOR]
$iFlag=[COLOR=Red]2[/COLOR] Return Folders only [COLOR=Blue]يرجع للمجلد فقط[/COLOR]
[COLOR=Navy]IsArray[/COLOR] [COLOR=Red]([/COLOR] [COLOR=Magenta]variable[/COLOR] [COLOR=Red])[/COLOR]
[COLOR=Sienna]$FileName[/COLOR] [COLOR=Red]&=[/COLOR] [COLOR=Sienna]$FileList[/COLOR][COLOR=Red][[/COLOR][COLOR=DarkOrchid]0[/COLOR][COLOR=Red]][/COLOR] [COLOR=Red]+[/COLOR][COLOR=DarkOrchid] 1[/COLOR] [COLOR=Red]&[/COLOR] [COLOR=SlateGray]'.jpg'[/COLOR]
:hh::hh::hh::hh:هههههههههه الله يعينك عليه
شفت النقطه الحمراء ,, وشكله بيعطيك ترقيه هههههه
أما أنا أتنشبت مع واحد وأعطاني الماسنجر حقه :bleh:
وأشتغلته أسئله وأبشرك في الرد القادم بضع كود التصوير بالترقيم :y:
الله يعطيك الف عافيه ,, ماحدلها إلى أنت يالغاليk:
شغل نظيف وياكثر اللوبات :q:
فن يالغالي ,,((كود تصوير سطح المكتب وحفظ الصور بالتسلسل من 1 إلى مالانهاية))
>> تقدرو تقولون الإصدار الثاني لأداة الشيبان :bleh: <<
الجديد في الكودكود:[COLOR=Magenta]#include [/COLOR][COLOR=SlateGray]<File.au3>[/COLOR] [COLOR=Magenta]#include[/COLOR] [COLOR=SlateGray]<ScreenCapture.au3>[/COLOR] [COLOR=Sienna]$FilePath[/COLOR][COLOR=Red] =[/COLOR] [COLOR=Magenta]@DesktopDir[/COLOR] [COLOR=Sienna]$FileName[/COLOR] [COLOR=Red]=[/COLOR][COLOR=SlateGray] 'Problem'[/COLOR] [COLOR=Sienna]$FileList[/COLOR] [COLOR=Red]=[/COLOR] [COLOR=RoyalBlue]_FileListToArray[/COLOR][COLOR=Red]([/COLOR][COLOR=Sienna]$FilePath[/COLOR][COLOR=Red],[/COLOR] [COLOR=Sienna]$FileName[/COLOR] [COLOR=Red]&[/COLOR] [COLOR=SlateGray]'*.jpg'[/COLOR][COLOR=Red],[/COLOR] [COLOR=DarkOrchid]1[/COLOR][COLOR=Red])[/COLOR] [COLOR=Blue]If Not[/COLOR] [COLOR=DarkRed]IsArray[/COLOR][COLOR=Red]([/COLOR][COLOR=Sienna]$FileList[/COLOR][COLOR=Red])[/COLOR] [COLOR=Blue]Then[/COLOR] [COLOR=Sienna] $FileName[/COLOR][COLOR=Red]&=[/COLOR] [COLOR=SlateGray]'1.jpg'[/COLOR] [COLOR=Blue]Else[/COLOR][INDENT][INDENT] [COLOR=Sienna]$FileName[/COLOR] [COLOR=Red]&=[/COLOR] [COLOR=Sienna]$FileList[/COLOR][COLOR=Red][[/COLOR][COLOR=DarkOrchid]0[/COLOR][COLOR=Red]][/COLOR] [COLOR=Red]+[/COLOR][COLOR=DarkOrchid] 1[/COLOR] [COLOR=Red]&[/COLOR] [COLOR=SlateGray]'.jpg'[/COLOR] [/INDENT][/INDENT][COLOR=Blue]EndIf[/COLOR] [COLOR=RoyalBlue]_ScreenCapture_Capture[/COLOR][COLOR=Red]([/COLOR][COLOR=Sienna]$FilePath [/COLOR][COLOR=Red]&[/COLOR] [COLOR=SlateGray]"\"[/COLOR] [COLOR=Red]&[/COLOR] [COLOR=Sienna]$FileName[/COLOR][COLOR=Red])[/COLOR]
عرفناه بموقع الحفط وهو سطح المكتبكود:[COLOR=Sienna]$FilePath[/COLOR][COLOR=Red] =[/COLOR] [COLOR=Magenta]@DesktopDir[/COLOR]
إسم الملف عرفنا بـ Problemكود:[COLOR=Sienna]$FileName[/COLOR] [COLOR=Red]=[/COLOR][COLOR=SlateGray] 'Problem'[/COLOR]
أمر جديد علينا وهوكود:[COLOR=Sienna]$FileList[/COLOR] [COLOR=Red]=[/COLOR] [COLOR=RoyalBlue]_FileListToArray[/COLOR][COLOR=Red]([/COLOR][COLOR=Sienna]$FilePath[/COLOR][COLOR=Red],[/COLOR] [COLOR=Sienna]$FileName[/COLOR] [COLOR=Red]&[/COLOR] [COLOR=SlateGray]'*.jpg'[/COLOR][COLOR=Red],[/COLOR] [COLOR=DarkOrchid]1[/COLOR][COLOR=Red])[/COLOR]
سكربت التحقق من وجود الملف أو المجلد مسبقاً في المكان الذي نحدده
الصورة العامه للمعادله هي
الـ path و filter معروفه وهي مكان الملف وإسم الملفكود:#Include <File.au3> [COLOR=RoyalBlue]_FileListToArray[/COLOR]($sPath[, $sFilter = "*"[, $iFlag = 0]])
الجديد هو تعريفات الـ flag للمعادلة وأشكاله هي
وفي معادلتنا السابقه أخترنا 1 لأنه يتعامل مع ملف (الصورة)كود:$iFlag=[COLOR=Red]0[/COLOR](Default) Return both files and folders [COLOR=Blue]يرجع للملف والمجلد[/COLOR] $iFlag=[COLOR=Red]1[/COLOR] Return files only[COLOR=Blue] يرجع للملف فقط[/COLOR] $iFlag=[COLOR=Red]2[/COLOR] Return Folders only [COLOR=Blue]يرجع للمجلد فقط[/COLOR]
والجديد أيضاً في المعادلة هو
كود:[COLOR=Navy]IsArray[/COLOR] [COLOR=Red]([/COLOR] [COLOR=Magenta]variable[/COLOR] [COLOR=Red])[/COLOR]
وهو أمر للتأكد أن المتغير موجود مسبقاً في الصف
وبعد ذلك أستخدمت دالة If للتحقق من وجود الملف مسبقاً وإضافة + 1 للملف الجديد :d:كود:[COLOR=Sienna]$FileName[/COLOR] [COLOR=Red]&=[/COLOR] [COLOR=Sienna]$FileList[/COLOR][COLOR=Red][[/COLOR][COLOR=DarkOrchid]0[/COLOR][COLOR=Red]][/COLOR] [COLOR=Red]+[/COLOR][COLOR=DarkOrchid] 1[/COLOR] [COLOR=Red]&[/COLOR] [COLOR=SlateGray]'.jpg'[/COLOR]
وباقي الأكواد تم توضيحها مسبقاً في الإصدار الأول :d:
تقصد مثلا حفظ الإعدادات وما إلى ذلك !!!ما شاء الله عليكم
انا كان عندي سؤال
إزاي نحفظ متغيرات في ملف خارجي و إزاي نقرأها