• بادئ الموضوع بادئ الموضوع ashalshaikh
  • تاريخ البدء تاريخ البدء
  • المشاهدات 114,207
لو سمحتوا الي قراء الرساله حقي يرد علي لاتبخلوا بردكم الي راح يريحني ويرجع برامجي ضروري
بليز يالغالين

السلام عليكم ورحمة الله وبركاته

اختي هذا الموضوع لـسكربات الاوتو 3

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


لتتلقي الدعم الكامل
 

توقيع : Future Tank X-1
السلام عليكم كيف حال الشيخ
انا ياشيخ ابغى انقل كراك برنامج الى مجلد البرنامج تلقائى الامر المستخدم
PHP:
FileCopy("USBGuard.exe",@ProgramFilesDir&"\USB Disk Security")

ولكن العملية لاتتم ؟؟؟؟؟ هل لان هناك ملف بنفس الاسم فى المجلد ام ماذا
منتظر ردكم الكريم
 
توقيع : فدى الرسول
((كود تصوير سطح المكتب وحفظ الصور بالتسلسل من 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]
عرفناه بموقع الحفط وهو سطح المكتب

كود:
[color=sienna]$filename[/color] [color=red]=[/color][color=slategray] 'problem'[/color]
إسم الملف عرفنا بـ problem

كود:
[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]])
الـ path و filter معروفه وهي مكان الملف وإسم الملف
الجديد هو تعريفات الـ flag للمعادلة وأشكاله هي
كود:
$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]
وفي معادلتنا السابقه أخترنا 1 لأنه يتعامل مع ملف (الصورة)

والجديد أيضاً في المعادلة هو

كود:
[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]
وبعد ذلك أستخدمت دالة if للتحقق من وجود الملف مسبقاً وإضافة + 1 للملف الجديد :d:

وباقي الأكواد تم توضيحها مسبقاً في الإصدار الأول :d:


اخى الكريم انا اريد كود لتصوير الشاشة مرة واحده واحفظها فى سطح المكتب باسم معين ؟؟؟
 
توقيع : فدى الرسول
السلام عليكم كيف حال الشيخ
انا ياشيخ ابغى انقل كراك برنامج الى مجلد البرنامج تلقائى الامر المستخدم
PHP:
FileCopy("USBGuard.exe",@ProgramFilesDir&"\USB Disk Security")
ولكن العملية لاتتم ؟؟؟؟؟ هل لان هناك ملف بنفس الاسم فى المجلد ام ماذا
منتظر ردكم الكريم

جربي هالكود
كود:
  FileCopy("USBGuard.exe",@ProgramFilesDir&"\USB Disk Security", 1)

بس هذا ما ينفع اذا كان البرنامج شغال
 
السلام عليكم كيف حال الشيخ
انا ياشيخ ابغى انقل كراك برنامج الى مجلد البرنامج تلقائى الامر المستخدم
PHP:
FileCopy("USBGuard.exe",@ProgramFilesDir&"\USB Disk Security")
ولكن العملية لاتتم ؟؟؟؟؟ هل لان هناك ملف بنفس الاسم فى المجلد ام ماذا
منتظر ردكم الكريم
نعم ,,
راجع درس التعامل مع الملفات ,, فيه طريقة الإستبدال :bleh::bleh::bleh::bleh::bleh:
أو اعمل سطرين الأول يحذف الأصلي والثاني ينسخه ,,
ولكن أظن الأولى أفضل !! :ok:
اخى الكريم انا اريد كود لتصوير الشاشة مرة واحده واحفظها فى سطح المكتب باسم معين ؟؟؟
راجع الفهرس ,, الأكواد الجاهزة لأخي HaMuDi الجزء الأول أو الثاني أو الثالث :bleh:
 
من زمــأان مادخلت الدوره هذي مع آني حبيت هاللغه والله وصرت مهوجس فيها​


اليوم بعد ماخلصت الاختبـار وارتحت شــوي قلت ادخل النت اشوف اخر تطورات مبرمجين المبدعين في منتدى زيزوووم​


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


وجتني فكره على هذ ا البرنامج​

قلت ليش ماخلي المستخدم يحفظ الصـوره بالاسم الي هو يبغـاه​

وسويت الكود هذا تقدرون تجربوونه <--- انشالله مافي احد سبقني بالفكره لاني من زمان ماخشيت​


PHP:
#include <ScreenCapture.au3>


; ننشاء متغير يدخل المستخدم قيمة هذا المتغير وقيمة هذ ا المتغير  سوف تصبح اسم الصـوره


$NameIamge= InputBox("تم تصـوير سطح المكتب","ادخل اسم الصـوره  ")
_ScreenCapture_Capture(@DesktopDir & "\"&$NameIamge&".jpg")

msgbox(0,"تم حفظ الصوره",$NameIamge&".jpg"&"    "&"تم تصوير سطح المكتب وحفظها باسم" &@crlf&@crlf& "مع تحيات لك عيوني",2)
 
من زمــأان مادخلت الدوره هذي مع آني حبيت هاللغه والله وصرت مهوجس فيها​



اليوم بعد ماخلصت الاختبـار وارتحت شــوي قلت ادخل النت اشوف اخر تطورات مبرمجين المبدعين في منتدى زيزوووم​


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


وجتني فكره على هذ ا البرنامج​

قلت ليش ماخلي المستخدم يحفظ الصـوره بالاسم الي هو يبغـاه​

وسويت الكود هذا تقدرون تجربوونه <--- انشالله مافي احد سبقني بالفكره لاني من زمان ماخشيت​



PHP:
#include <ScreenCapture.au3>
PHP:
[CENTER]

; ننشاء متغير يدخل المستخدم قيمة هذا المتغير وقيمة هذ ا المتغير  سوف تصبح اسم الصـوره


$NameIamge= InputBox("تم تصـوير سطح المكتب","ادخل اسم الصـوره  ")
_ScreenCapture_Capture(@DesktopDir & "\"&$NameIamge&".jpg")

msgbox(0,"تم حفظ الصوره",$NameIamge&".jpg"&"    "&"تم تصوير سطح المكتب وحفظها باسم" &@crlf&@crlf& "مع تحيات لك عيوني",2)[/CENTER]
الله يسلمك ,,
ربي يوفقك في دراستك
ماشاء فكرة الكود رهيييييييييييييييييييييييييييييييييييييييييييييييييييييييييييبة ,,
وأعجبتني بشددددددددددددددددددددددة ,,
أحسنت ,,
استغلال InputBox في وضع اسم للملف ,, فكرة جميلة !!!!
بإنتظار إبداعاتك القادمة !!
ولا تحرمنا من طلتك ,,
 
الله يسلمك ,,
ربي يوفقط في دراستك
ماشاء فكرة الكود رهيييييييييييييييييييييييييييييييييييييييييييييييييييييييييييبة ,,
وأعجبتني بشددددددددددددددددددددددة ,,
أحسنت ,,
استغلال InputBox في وضع اسم للملف ,, فكرة جميلة !!!!
بإنتظار إبداعاتك القادمة !!
ولا تحرمنا من طلتك ,,
:d::d::d::d::d::d::d::d::d::d::d::d:
 
دروس GUI :er: :?:
ودروس WinAPI :cr: :?:
ashalshaikh
ممكن تكتب سكربت المشروع هذا
مثبــت:
يجب عليك تسجيل الدخول او تسجيل لمشاهدة الرابط المخفي


:p::p:
 
توقيع : eXample_X
دروس GUI :er: :?:

ودروس WinAPI :cr: :?:
ashalshaikh
ممكن تكتب سكربت المشروع هذا
مثبــت:
يجب عليك تسجيل الدخول او تسجيل لمشاهدة الرابط المخفي
‏​

:p::p:​
ليش مستعجل يالغلا !!! :smile:
كل شي في وقته حلو ,,
يعني مثلا هل من الصحيح أحط دروس GUI وأوامر الدوران ما أكتملت :mad: ,,, يعني أن شيء أساسي جدا مثل أوامر الدوران ,, وقبلها أحط GUI !!! :d:
أما WinAPI مالي تعامل كثير معها ,,
وهي شبه جديدة بالنسبة لي :bleh:

بالنسبة للسورس أقول لا :mad::bleh: ليس لأني أبخل عليه لكم ,, لا لا ,, بل لأنه سيخرب اشياء كثيرة ,,
ولما تدخله رح تدووووووووووووووووووووووووووووووووووووووووووخ !!!
إذا كنت أنا اللي كاتبه أدوخ كيف إنتم !! :d:

ولكن انتظروا سورسات خفيفة كذا بإذن الله ,,
بس الصبر طيب !! :smile:
 
:d::d::d::d::d::d::d::d::d::d::d::d:
ما مامسكت علي إلا هذي :cr:
طيييييييييييييييب :mad: ,,, صرت على القائمة السوداء :d: ,, وسيتم فحص كل كلمة تكتبها بحثا عن أي أخطاء !!! :bleh::bleh::bleh:
 
ليش مستعجل يالغلا !!! :smile:
كل شي في وقته حلو ,,
يعني مثلا هل من الصحيح أحط دروس GUI وأوامر الدوران ما أكتملت :mad: ,,, يعني أن شيء أساسي جدا مثل أوامر الدوران ,, وقبلها أحط GUI !!! :d:
أما WinAPI مالي تعامل كثير معها ,,
وهي شبه جديدة بالنسبة لي :bleh:

بالنسبة للسورس أقول لا :mad::bleh: ليس لأني أبخل عليه لكم ,, لا لا ,, بل لأنه سيخرب اشياء كثيرة ,,
ولما تدخله رح تدووووووووووووووووووووووووووووووووووووووووووخ !!!
إذا كنت أنا اللي كاتبه أدوخ كيف إنتم !! :d:

ولكن انتظروا سورسات خفيفة كذا بإذن الله ,,
بس الصبر طيب !! :smile:

شكراً لك وجزاك الله الحوريات يوم النعيم "" انتظر دروسك
في أداه تصمم GUI ممكن تطرحها :p:


 
توقيع : eXample_X
شكراً لك وجزاك الله الحوريات يوم النعيم "" انتظر دروسك
في أداه تصمم GUI ممكن تطرحها :p:


عفوا أخي ,, مشكور ,, :smile:
جزاك الله خير على كلماتك العطرة ,,
كنت حاس إنك تلمح لهذا :bleh:
إذا كنت تقصد Koda فلن أطرحها أبدا إلا إلى أجل غير مسمى ,, :d:
تعرف ليش ؟
ما هو تصعيب عليكم لالا ,,
أنا أعطيك مثال ,,
لو أعطيت طالب في سنة رابعة ابتدائي آلة حاسبة !! :d:
تخرج بدرجة كاااااااملة في الرياضيات بسبب الآلة الحاسبة ,,
لو تعطلت الآلة الحاسبة هل يقدر يعمل شي ؟ ,, لا ,,
ورح يظل كأنه ما تعلم شي !!!
وهذا هو ما أقصده ,, Koda تكتب الأكواد تلقائي يعني إنت مصمم مو مبرمج :mad: وأيضا فيه أشياء اكثر مما تتخيل أو أنا أيضا ,, تعمله في النوافذ ,, وKoda هو تضييق جدا ,,
إضافة إلى أن الكود يكون غير مفهوم !!
وأيضا لو خرج خطأ ,, هل تقدر تصلحه !!! ؟؟؟ وانت في الاساس منت فاهم الكود !! :bleh:


تحياتي ,,
 
قسم بالله إنك رجل وافي :ok:
بارك الله فيك ومتابعين بصمت معكم في الدروس

أعرف koda وصحيح لاتسطيع تصليح الأخطاء :cr:
طيب هل في غيرها , ولو الإسم فقط !
 
توقيع : eXample_X
قسم بالله إنك رجل وافي :ok:
بارك الله فيك ومتابعين بصمت معكم في الدروس

أعرف koda وصحيح لاتسطيع تصليح الأخطاء :cr:
طيب هل في غيرها , ولو الإسم فقط !
الله يسلمك يالغالي ,,
جزاك الله خير ,
كودا أفضل أداة على الإطلاق لعمل هذا (شاهدتها) كما إنها معتمدة من نفس الموقع !!!
ولكن لا أنصح بها ,, فعلا ممكن تعمل الواجهة وبعضا المعالم ,, لكن الإعتماد عليها 100% خطأ كبير ,,
والآن استخدامها رح يخرب عليك ,,
بارك الله فيك يالغالي ما قصرت ,,
 
من زمــأان مادخلت الدوره هذي مع آني حبيت هاللغه والله وصرت مهوجس فيها​



اليوم بعد ماخلصت الاختبـار وارتحت شــوي قلت ادخل النت اشوف اخر تطورات مبرمجين المبدعين في منتدى زيزوووم​


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


وجتني فكره على هذ ا البرنامج​

قلت ليش ماخلي المستخدم يحفظ الصـوره بالاسم الي هو يبغـاه​

وسويت الكود هذا تقدرون تجربوونه <--- انشالله مافي احد سبقني بالفكره لاني من زمان ماخشيت​



PHP:
#include <ScreenCapture.au3>
PHP:
[CENTER]

; ننشاء متغير يدخل المستخدم قيمة هذا المتغير وقيمة هذ ا المتغير  سوف تصبح اسم الصـوره


$NameIamge= InputBox("تم تصـوير سطح المكتب","ادخل اسم الصـوره  ")
_ScreenCapture_Capture(@DesktopDir & "\"&$NameIamge&".jpg")

msgbox(0,"تم حفظ الصوره",$NameIamge&".jpg"&"    "&"تم تصوير سطح المكتب وحفظها باسم" &@crlf&@crlf& "مع تحيات لك عيوني",2)[/CENTER]

:ok::ok:

الحمد لله حسيت إن درسي نفع احد :q:
 
توقيع : Future Tank X-1
ما هي وظيفة
SciTE4AutoIt3.exe
 
ما هي وظيفة
SciTE4AutoIt3.exe
أولا آسف على التأخير ,,
هذا محرر للأوتيت ,, ولكن عليه شوية إضافات :q:
 
تابع
سلسلة أوامر الدوران
اصنع حلقة أوامر


إعداد : Ashalshaikh

خامسا :: أمر لطيب ظريف :d: For .. To
الأمر جميل جدا ,, ينفذ شيء معين بعدد معين ,,

ملاحظة :: أمر For له قسمان واحد مختص للتعامل مع Array والثاني مع هو الآن معنا ,,

أمرنا على الصيغة التالية ::
كود:
[COLOR=Blue]For[/COLOR] [COLOR=DarkRed]<variable>[/COLOR] = [COLOR=Purple]<start>[/COLOR] [COLOR=Blue]To[/COLOR] [COLOR=Purple]<stop>[/COLOR] [COLOR=Red][[/COLOR][COLOR=Blue]Step[/COLOR] [COLOR=Purple]<stepval>[/COLOR][COLOR=Red]][/COLOR]
    [COLOR=Navy]statements
    ...[/COLOR]
[COLOR=Blue]Next[/COLOR]
:eek:
بسيط جدا ,, لا تخافون من شكله طويل :D
حيث ::
<variable> أي متغير
<start> نقطة البداية (( رقم))
<stop> نقطة النهاية (( رقم ))
<stepval> مقدار الزيادة (( رقم ))
statements أي أوامر تريدها ,,

لا تخافون رح نمشي شوي شوي ,,
بسم الله ,,

كالعادة العد من 1 إلى 5
كود:
[COLOR=Blue]For[/COLOR] [COLOR=DarkRed]$x[/COLOR] = 1 [COLOR=Blue]To[/COLOR] 5
    [COLOR=Navy]Msgbox[/COLOR][COLOR=RoyalBlue] (0,"",[COLOR=DarkRed]$x[/COLOR])[/COLOR]
[COLOR=Blue]Next[/COLOR]
لاحظ أن المتغير $x يزيد في كل دورة حتى يصل إلى نقطة النهاية ويخرج ,, :d:

طيب الآن رح نستعبط :d:نبي نعم من 8 إلى 15
:d:
كود:
[COLOR=Blue]For[/COLOR] [COLOR=DarkRed]$x[/COLOR] = 8[COLOR=Blue] To[/COLOR] 15
    [COLOR=Navy]Msgbox[/COLOR] [COLOR=RoyalBlue](0,"",[COLOR=DarkRed]$x[/COLOR])[/COLOR]
[COLOR=Blue]Next[/COLOR]
الآن هل توضح !!!:)
طيب عشان زيادة للتوضيح لأنه أمر مهم جدا ورح يفيد في التطبيقات الكبيرة !! :d:
ناخذ الآن مثال لـ ExitLoop ومثال لـ ContinueLoop وانتوا إفهموا المغزى ,, :d:
مو كل شي يجي سهل:d::hh:

كود:
[COLOR=Blue]For[/COLOR][COLOR=DarkRed] $x[/COLOR] = [COLOR=Navy]8[/COLOR] [COLOR=Blue]To[/COLOR] 15
    [COLOR=Blue]If[/COLOR][COLOR=DarkRed] $x [/COLOR]= [COLOR=Navy]10 [/COLOR][COLOR=Blue]Then ContinueLoop [/COLOR]
    [COLOR=Navy]Msgbox [COLOR=RoyalBlue](0,"",[COLOR=DarkRed]$x[/COLOR])[/COLOR][/COLOR]
[COLOR=Blue]Next[/COLOR]
كود:
[COLOR=Blue]For[/COLOR] [COLOR=DarkRed]$x[/COLOR] = 8 [COLOR=Blue]To[/COLOR] 15
    [COLOR=Blue]If[/COLOR] [COLOR=DarkRed]$x[/COLOR] = 10 [COLOR=Blue]Then[/COLOR] [COLOR=Blue]ExitLoop [/COLOR]
    [COLOR=Navy]Msgbox[/COLOR][COLOR=RoyalBlue] (0,"",[COLOR=DarkRed]$x[/COLOR])[/COLOR]
[COLOR=Blue]Next[/COLOR]
الآن نتطور شوي ,, :)
ناخذ الصيغة الطويييييييلة ,,
وهي بسيطة بإذن الله ,,
نفس المثال السابق العد :D

كود:
[COLOR=Blue]For[/COLOR] [COLOR=DarkRed]$x[/COLOR] = [COLOR=Purple]1[/COLOR] [COLOR=Blue]To[/COLOR] [COLOR=Purple]5[/COLOR] [COLOR=Blue]Step[/COLOR] [COLOR=Purple]1[/COLOR]
    [COLOR=Navy]Msgbox[/COLOR] [COLOR=RoyalBlue]([COLOR=Purple]0[/COLOR],"",[COLOR=DarkRed]$x[/COLOR])[/COLOR]
[COLOR=Blue]Next[/COLOR]
يزيد واحد في كل دوران ,,
وهذا هو الإفتراضي

الآن نريده يعد بس يزيد اثنين اثنين !!! :d:

كود:
[COLOR=Blue]For[/COLOR] [COLOR=DarkRed]$x[/COLOR] = [COLOR=Purple]1[/COLOR] [COLOR=Blue]To[/COLOR] [COLOR=Purple]10 [/COLOR][COLOR=Blue]Step[/COLOR] [COLOR=Purple]2[/COLOR]
    [COLOR=Navy]Msgbox[/COLOR] [COLOR=RoyalBlue]([COLOR=Purple]0[/COLOR],"",[COLOR=DarkRed]$x[/COLOR])[/COLOR]
[COLOR=Blue]Next[/COLOR]
طيب الآن كالعادة ,, نستعبط ههههههههههههه:d:
نريد نرجع ورى ,, يعني ينقص واحد واحد ,,
بس تذكر البداية أكبر من النهاية :d:

كود:
[COLOR=Blue]For[/COLOR] [COLOR=darkRed]$x[/COLOR] =[COLOR=Purple]10[COLOR=Blue] To [/COLOR]1[/COLOR] [COLOR=Blue]Step[/COLOR] [COLOR=Purple]-1[/COLOR]
    [COLOR=Navy]Msgbox[/COLOR] [COLOR=Red]([COLOR=Purple]0[/COLOR],[COLOR=RoyalBlue]""[/COLOR],[COLOR=DarkRed]$x[/COLOR])[/COLOR]
[COLOR=Blue]Next[/COLOR]
نكمل استعباط ,,
هههههههههههههه
الآن ما نبيه يزيد 1 نبيه يزيد نص :d:
كود:
[COLOR=Blue]For [COLOR=DarkRed]$x[/COLOR] =[COLOR=Purple]1[/COLOR] To [COLOR=Purple]10[/COLOR] Step [COLOR=Purple].5[/COLOR][/COLOR]
    [COLOR=Navy]Msgbox [COLOR=Blue]([COLOR=Purple]0[/COLOR],[COLOR=RoyalBlue]""[/COLOR],[COLOR=DarkRed]$x[/COLOR])[/COLOR][/COLOR]
[COLOR=Blue]Next[/COLOR]

طبعا الأمر أهم مما تتخيل ,, الأمر كبييييييييييييييييييييير في عمله ,, وسوف نرى ذلك في التطبيقات التي سوف نراها لاحقا ,,


وعذرا على التأخير ,,
أمامي اختبارات ,, !!! :d:
بارك الله فيكم ,,
 
عودة
أعلى