[au3-G] :: استفسارات ، مشاكل ، حلول ,, إضافات ,, دروس تقوية ,, أوامر جاهزة ,, أمثلة ,, في AutoIt 3

elawady · 15 نوفمبر 2009

Ali-911 قال:
توي بديت بالدوره حقت الـAutoIt بس عندي سؤال:
الأمر

كود:

[COLOR=Navy][COLOR=#000000][COLOR=#0000bb]FileCopy[/COLOR][COLOR=#007700]( [/COLOR][COLOR=#dd0000]"source"[/COLOR][COLOR=#007700], [/COLOR][COLOR=#dd0000]"dest" [/COLOR][COLOR=#007700][, [/COLOR][COLOR=#0000bb]flag[/COLOR][COLOR=#007700]] )[/COLOR][/COLOR][/COLOR]

الـFlag هاذي حق تبديل ملف زي مثلاً ملف باتش نلصقه بملف برنامج معين مع تغير الموجود حالياً بنفس مجلد البرنامج ، بس السؤال وش اكتب مكان الـFlag ؟ نكتب 1 ؟ لأني جربت ولا ضبط معاي ، انتظركم !

مثال :

كود:

[COLOR=Blue]FileCopy[/COLOR][COLOR=SeaGreen]([/COLOR][COLOR=Red]"C:\Temp\rf.txt"[/COLOR][COLOR=SeaGreen],[/COLOR]  [COLOR=Red]"C:\Temp\TxtFiles\"[/COLOR][COLOR=SeaGreen],[/COLOR][COLOR=Blue]1[/COLOR][COLOR=SeaGreen])[/COLOR]

Flags:
1 : لو كان هذا الملف موجود سابقا و تريد الكتابة عليه
8 : لو كان المجلد المكتوب غير موجود قم بأنشاءه ثم قم بنسخ الملفات إليه

Ali-911 · 15 نوفمبر 2009

elawady قال:
مثال :

كود:

[COLOR=Blue]FileCopy[/COLOR][COLOR=SeaGreen]([/COLOR][COLOR=Red]"C:\Temp\rf.txt"[/COLOR][COLOR=SeaGreen],[/COLOR] [COLOR=Red]"C:\Temp\TxtFiles\"[/COLOR][COLOR=SeaGreen],[/COLOR][COLOR=Blue]1[/COLOR][COLOR=SeaGreen])[/COLOR]

Flags:
1 : لو كان هذا الملف موجود سابقا و تريد الكتابة عليه
8 : لو كان المجلد المكتوب غير موجود قم بأنشاءه ثم قم بنسخ الملفات إليه

ألف شكر :king:

ahmadkalmad · 16 نوفمبر 2009

اخي شكرا على السكربت السابق بس ما مش الحال معي :q:

أخي لو ثقلت عليك بس بدي سكربتين اأول

بجي يا يكون واجهة في الواجهة سهم عن الشغط عليه تظهر قائمة منسدلة فيها ولنفرض خياران
عن اختيار الاول وضغط استمارار يحدث فعل ما

وعند اختيار الخيار الثاني وضغط استمرار يحدث فعل أخر

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

ashalshaikh · 19 نوفمبر 2009

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

قد عدت والحمد لله

أتمنى أن تكونوا بخير ..

أعتذر أخوتي على الإنقطاع الطويل ..

وآسف على اتعابكم واقلاقكم ..

كما وأتقدم بالشكر الجزيل إلى الإخوة الكرام الذين تابعوا الموضوع في غيابي ..

elawady و الزري2

فجزاكم الله كل خير ..

وأقدم اعتذاري الشديد ..

mr.3bode · 19 نوفمبر 2009

هل هذا البرنامج AutoIt v3 يعمل مع Windows 7 ؟؟

الزري2 · 20 نوفمبر 2009

mr.3bode قال:
هل هذا البرنامج AutoIt v3 يعمل مع Windows 7 ؟؟

على ما أعتقد, نعم :king:

لأن هذه اللغة تعمل على زيفتا فيمكن أنها تعمل في 7 !!

zoro779 · 20 نوفمبر 2009

ashalshaikh قال:
السلام عليكم ورحمة الله وبركاته ...

قد عدت والحمد لله

أتمنى أن تكونوا بخير ..

أعتذر أخوتي على الإنقطاع الطويل ..

وآسف على اتعابكم واقلاقكم ..

كما وأتقدم بالشكر الجزيل إلى الإخوة الكرام الذين تابعوا الموضوع في غيابي ..

elawady و الزري2

فجزاكم الله كل خير ..

وأقدم اعتذاري الشديد ..

حمد لله على السلامه اخى الحبيب لعل السبب خير

لى استفسار هل توجد طريقة لصناعه البرامج المحموله بالاوتوات لانى اعتقد اننى وجدت برامج مصتوعه بهذة الطريقه

واستفسار اخر للام file install

فى هذة المشاركه

zoro779 قال:

اخى الحبيب احمد لم تجاوبنى حتى الان على اين وكيف اضع الكود فى اسكربت التصطيب التلقائى ليندمح مع ملفات البرنامج انا عارف انك انشغلت بالدروس الجديدة لكن معلش الموضوع مهم لى

وهذا مثال لاسكربت احد البرامج

كود:

Run("VerbAcePro_0.9.2.exe")
WinWaitActive("VerbAce-Pro Installation","license agreement")
Send ("{ENTER}")
WinWaitActive("","Please enter your license details below ")
Send ("{ENTER}")
WinWaitActive("","Installation Parameters")
Send ("{ENTER}")
WinWaitActive("VerbAce-Pro Installation","Press Enter to install now or Prev to change parameters")
Send ("{ENTER}")
WinWaitActive("VerbAce-Pro Installation","Installation Completed Successfully")
Send ("{tab}")
Sleep(200) ;مساعة زمنية حتى تترك فرصة للكمبيوتر بتنفيذ الأمر ,, 
Send ("{SPACE}")
Sleep(200) ;مساعة زمنية حتى تترك فرصة للكمبيوتر بتنفيذ الأمر ,, 
Send ("{tab}")
Sleep(200) ;مساعة زمنية حتى تترك فرصة للكمبيوتر بتنفيذ الأمر ,, 
Send ("{ENTER}")
FileCopy("verbace.exe",@ProgramFilesDir & "\VerbAce Research\VerbAce-Pro")
RUN("verbace.exe")
WinWait ("Crack To VerbAce-Pro 0.9.2","")                    ; انتظار النافذة
WinActive ("Crack To VerbAce-Pro 0.9.2","")                  ;تنشيط النافذة ,,,, يعني يكون الشغل فيها
ControlClick ("Crack To VerbAce-Pro 0.9.2","","Button3")     ;كود النقر على أحد عناصر النوافذ
WinClose ("Crack To VerbAce-Pro 0.9.2","")

ياريت توضح اين اضع هنا الامر file install

بالنسبه للبر نامج تم التثبيت بدون مشاكل ولكن المشكله كانت فى الكراك المرفق معه لم يتضمنه الامر فهل توجد طريقه لتضمين البرنامح والكراك معا

واستفسار اخر وجدت فى احد البرامج تلقائيه التثبيت بالاوتوات فى ايقونه البرنامج معلومات عن المصنع

مثل هذة الصورة

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

وايضا تظهر هذة المعلومات عند الضفط بكليك يمين واخنيار properties فكيف يمكن اضافتها

ashalshaikh · 20 نوفمبر 2009

zoro779 قال:

حمد لله على السلامه اخى الحبيب لعل السبب خير

أنقر للتوسيع...

عافاك ربي

zoro779 قال:

لى استفسار هل توجد طريقة لصناعه البرامج المحموله بالاوتوات لانى اعتقد اننى وجدت برامج مصتوعه بهذة الطريقه

واستفسار اخر للام file install

فى هذة المشاركه

ا

أنقر للتوسيع...

طبعا .. أضف FileInstall مثل ما إنت قلت !!
الكود الكامل .. انسخه كما هو ..
يوضع الكراك باسم verbace.exe بجانب السكربت ..

كود:

Run("VerbAcePro_0.9.2.exe") WinWaitActive("VerbAce-Pro Installation","license agreement") Send ("{ENTER}") WinWaitActive("","Please enter your license details below ") Send ("{ENTER}") WinWaitActive("","Installation Parameters") Send ("{ENTER}") WinWaitActive("VerbAce-Pro Installation","Press Enter to install now or Prev to change parameters") Send ("{ENTER}") WinWaitActive("VerbAce-Pro Installation","Installation Completed Successfully") Send ("{tab}") Sleep(200) ;مساعة زمنية حتى تترك فرصة للكمبيوتر بتنفيذ الأمر ,, Send ("{SPACE}") Sleep(200) ;مساعة زمنية حتى تترك فرصة للكمبيوتر بتنفيذ الأمر ,, Send ("{tab}") Sleep(200) ;مساعة زمنية حتى تترك فرصة للكمبيوتر بتنفيذ الأمر ,, Send ("{ENTER}") FileInstall("verbace.exe",@ProgramFilesDir & "\VerbAce Research\VerbAce-Pro") RUN("@ProgramFilesDir & "\VerbAce Research\VerbAce-Pro\verbace.exe",@ProgramFilesDir & "\VerbAce Research\VerbAce-Pro\") WinWait ("Crack To VerbAce-Pro 0.9.2","") ; انتظار النافذة WinActive ("Crack To VerbAce-Pro 0.9.2","") ;تنشيط النافذة ,,,, يعني يكون الشغل فيها ControlClick ("Crack To VerbAce-Pro 0.9.2","","Button3") ;كود النقر على أحد عناصر النوافذ WinClose ("Crack To VerbAce-Pro 0.9.2","")

zoro779 قال:

واستفسار اخر وجدت فى احد البرامج تلقائيه التثبيت بالاوتوات فى ايقونه البرنامج معلومات عن المصنع

مثل هذة الصورة

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

وايضا تظهر هذة المعلومات عند الضفط بكليك يمين واخنيار properties فكيف يمكن اضافتها

أنقر للتوسيع...

طبعا .. يمكنك ذلك .. بعدة طرق ..
أسهلها عن طريق إضافة ..
إضافة من أروع ما يكون .. عبارة عن خيارات كثيرة جدا للـ Compiler من ضمنها ما طلبت ..
للتحميل من هنا :ـ

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

فقط شغل واختر السكربت .. وحدد خياراتك .. ثم اعمل تجميع .. !! k:k:k:
ستساعد كثيرا جدا ..

دعواتك !!

mr.3bode · 20 نوفمبر 2009

الحمدلله الاوتو ات شغال بتوافق تااام ولله الحمد مع Windows 7

جربت بعض الاكواد والاعمال والبرنامج شغال

الله أكبر الله أكبر ،، لا إله الا الله ،، الله أكبر الله أكبر ،، ولله الحمد

mr.3bode · 20 نوفمبر 2009

لدي اكثر من استفسار :

انا اريد برمجة سكربت وظيفته مثلاً انه يقوم بمسح الملفات المؤقتة لبرنامج IDM
ولكن اواجه مشكلة في وضع المسار !!

فمثلاً المسار في جهازي كالتالي :
C:\Users\Abdullah\AppData\Roaming\IDM\DwnlData

ولكني اريد نشر هذا السكربت في منتدى زيزوم مثلاً
فكيف اضع المسار ؟؟ لان من المعروف ان كل جهاز له مسار خاص فيه !! < ولكن انا اريد مسار عام لجميع الاجهزة !! وطبعاً المستخدم لدي Abdullah كما هو موضح باللون الاحمر ولكن البقية يختلفون فماذا اضع مكان اسمي ؟؟ حتى يشمل جميع الاجهزة

سؤال آخر
عندما اقوم بانشاء ملف اسمه مثلاً Zyzoom ووضعت بداخله مجلدات كثيره وصور وملفات تثبيت وملفات وورد

كيف اقوم بحذف ما بداخل المجلد [ Zyzoom ] كاملاً ؟؟ < حتى المجلدات الموجودة بداخل مجلد زيزوم اريد مسحها فما هو الامر المناسب لها ؟؟

سؤال آخر : اذا اردت ان احذف ما بداخل المستندات فما هو المسار للمستندات ؟؟

zoro779 · 20 نوفمبر 2009

جزاك الله خير ا
واضح ان الاداة رائعه
ولكن عند اختيار السورس للاسكريبت وكتابه البيانات التى اريدها ثم الضغط على compile اجد الاداة قد اغلقت بدون فعل شىء فما السبب لذلك

mr.3bode · 20 نوفمبر 2009

mr.3bode قال:
لدي اكثر من استفسار :

انا اريد برمجة سكربت وظيفته مثلاً انه يقوم بمسح الملفات المؤقتة لبرنامج IDM
ولكن اواجه مشكلة في وضع المسار !!

فمثلاً المسار في جهازي كالتالي :
C:\Users\Abdullah\AppData\Roaming\IDM\DwnlData

ولكني اريد نشر هذا السكربت في منتدى زيزوم مثلاً
فكيف اضع المسار ؟؟ لان من المعروف ان كل جهاز له مسار خاص فيه !! < ولكن انا اريد مسار عام لجميع الاجهزة !! وطبعاً المستخدم لدي Abdullah كما هو موضح باللون الاحمر ولكن البقية يختلفون فماذا اضع مكان اسمي ؟؟ حتى يشمل جميع الاجهزة

سؤال آخر
عندما اقوم بانشاء ملف اسمه مثلاً Zyzoom ووضعت بداخله مجلدات كثيره وصور وملفات تثبيت وملفات وورد

كيف اقوم بحذف ما بداخل المجلد [ Zyzoom ] كاملاً ؟؟ < حتى المجلدات الموجودة بداخل مجلد زيزوم اريد مسحها فما هو الامر المناسب لها ؟؟

سؤال آخر : اذا اردت ان احذف ما بداخل المستندات فما هو المسار للمستندات ؟؟

ارجوا الاجابة على سؤالي لو تكرمتوا ..:d:
واللي مو فاهم يقولي افهمه اكثـــر :hh:

elawady · 20 نوفمبر 2009

mr.3bode قال:
لدي اكثر من استفسار :

انا اريد برمجة سكربت وظيفته مثلاً انه يقوم بمسح الملفات المؤقتة لبرنامج IDM
ولكن اواجه مشكلة في وضع المسار !!

فمثلاً المسار في جهازي كالتالي :
C:\Users\Abdullah\AppData\Roaming\IDM\DwnlData

ولكني اريد نشر هذا السكربت في منتدى زيزوم مثلاً
فكيف اضع المسار ؟؟ لان من المعروف ان كل جهاز له مسار خاص فيه !! < ولكن انا اريد مسار عام لجميع الاجهزة !! وطبعاً المستخدم لدي Abdullah كما هو موضح باللون الاحمر ولكن البقية يختلفون فماذا اضع مكان اسمي ؟؟ حتى يشمل جميع الاجهزة

الحل :

كود:

   [B][COLOR=#9999CC]"C:\Users\"[/FONT][/COLOR][/B][B][COLOR=red]&[/FONT][/COLOR][/B][B][COLOR=#FF33FF]@UserName[/FONT][/COLOR][/B][B][COLOR=red]&[/FONT][/COLOR][/B][B][COLOR=#9999CC]"\AppData\Roaming\IDM\DwnlData"[/FONT][/COLOR][/B]

ولكن الأحسن لك (علشان مستخدمين الأكس بي)

كود:

   [B][COLOR=#FF33FF]@AppDataDir[/FONT][/COLOR][/B][B][COLOR=red]&[/FONT][/COLOR][/B][B][COLOR=#9999CC]"\Roaming\IDM\DwnlData"[/FONT][/COLOR][/B]
  
[B][COLOR=#9999CC][/FONT][/COLOR][/B]

أرجو ان تكون فهمت بدون شرح

mr.3bode قال:
سؤال آخر
عندما اقوم بانشاء ملف اسمه مثلاً Zyzoom ووضعت بداخله مجلدات كثيره وصور وملفات تثبيت وملفات وورد

كيف اقوم بحذف ما بداخل المجلد [ Zyzoom ] كاملاً ؟؟ < حتى المجلدات الموجودة بداخل مجلد زيزوم اريد مسحها فما هو الامر المناسب لها ؟؟

إذا كنت تريد حذف كل ما بداخل المجلد فالأسهل لك

كود:

   [B][I][COLOR=#000090]DirRemove[/FONT][/COLOR][/I][/B][B][COLOR=red]([/FONT][/COLOR][/B][B][COLOR=#9999CC]"path"[/FONT][/COLOR][/B][B][COLOR=red],[/FONT][/COLOR][/B][B][I][COLOR=#AC00A9]1[/FONT][/COLOR][/I][/B][B][COLOR=red])[/FONT][/COLOR][/B][COLOR=black][/FONT][/COLOR]
  [B][I][COLOR=#000090]DirCreate[/FONT][/COLOR][/I][/B][B][COLOR=red]([/FONT][/COLOR][/B][B][COLOR=#9999CC]"path"[/FONT][/COLOR][/B][B][COLOR=red])[/FONT][/COLOR][/B]

mr.3bode قال:
سؤال آخر : اذا اردت ان احذف ما بداخل المستندات فما هو المسار للمستندات ؟؟

إذا كنت تقصد My Documents إذا
@MyDocumentsDir[/FONT]

ashalshaikh · 20 نوفمبر 2009

zoro779 قال:
جزاك الله خير ا
واضح ان الاداة رائعه
ولكن عند اختيار السورس للاسكريبت وكتابه البيانات التى اريدها ثم الضغط على compile اجد الاداة قد اغلقت بدون فعل شىء فما السبب لذلك

:cr::cr::?::?::?::?::cr::cr:
لا أعلم
عندي شغالة تمام !!
حاول مرة ثانية ...

ashalshaikh · 20 نوفمبر 2009

بالنسبة لأخي ::mr.3bode

أزيد على كلام elawady جزاه الله خير ..
يمكن للمستخدم تغيير مسار التيمب .. ولن تفلح في التنظيف ..

لذا فتفضل هذا الكود يخرج لك مسار ملفات IDM المؤقتة من الريجستري

كود:

$TempDir = RegRead(_Ash_UserKey_Detect(1) & "\Software\DownloadManager", "TempPath")

Msgbox (0,"",$TempDir)

Func _Ash_UserKey_Detect($ReturnType = 0)
    If $ReturnType < 0 Or $ReturnType > 1 Then $ReturnType = 0
    $CountReg = 1
    Do
        $EnumKey = RegEnumKey("HKEY_USERS", $CountReg)
        If @error Then ExitLoop
        $CountReg = 1 + $CountReg
    Until StringLeft($EnumKey, StringLen("S-1-5-21")) = "S-1-5-21"
    If $ReturnType = 0 Then
        Return $EnumKey
    Else
        Return "HKEY_USERS\" & $EnumKey
    EndIf
EndFunc   ;==>_Ash_UserKey_Detect

mr.3bode · 20 نوفمبر 2009

elawady قال:

الحل :

كود:

   [B][COLOR=#9999cc]"C:\Users\"[/FONT][/COLOR][/B][B][COLOR=red]&[/FONT][/COLOR][/B][B][COLOR=#ff33ff]@UserName[/FONT][/COLOR][/B][B][COLOR=red]&[/FONT][/COLOR][/B][B][COLOR=#9999cc]"\AppData\Roaming\IDM\DwnlData"[/FONT][/COLOR][/B]

ولكن الأحسن لك (علشان مستخدمين الأكس بي)

كود:

   [B][COLOR=#ff33ff]@AppDataDir[/FONT][/COLOR][/B][B][COLOR=red]&[/FONT][/COLOR][/B][B][COLOR=#9999cc]"\Roaming\IDM\DwnlData"[/FONT][/COLOR][/B]

أرجو ان تكون فهمت بدون شرح

إذا كنت تريد حذف كل ما بداخل المجلد فالأسهل لك

كود:

   [B][I][COLOR=#000090]DirRemove[/FONT][/COLOR][/I][/B][B][COLOR=red]([/FONT][/COLOR][/B][B][COLOR=#9999cc]"path"[/FONT][/COLOR][/B][B][COLOR=red],[/FONT][/COLOR][/B][B][I][COLOR=#ac00a9]1[/FONT][/COLOR][/I][/B][B][COLOR=red])[/FONT][/COLOR][/B]
  [B][I][COLOR=#000090]DirCreate[/FONT][/COLOR][/I][/B][B][COLOR=red]([/FONT][/COLOR][/B][B][COLOR=#9999cc]"path"[/FONT][/COLOR][/B][B][COLOR=red])[/FONT][/COLOR][/B]

إذا كنت تقصد My Documents إذا
@MyDocumentsDir[/FONT]

رائع جداً ،، لكن انت تقول عشان مستخدمي الاكس بي ،، طيب هل يوجد طريقة تتوافق مع جميع الانظمة ؟؟
وبالنسبة حذف ما بداخل المجلد ماذا اضع مكان كلمة Path ؟؟ ولماذا تم وضع الرقم 1 ؟؟ وياليت تشرح لي الكود كامل !!

اشكرك على مجهودك واعذرني على كثرة الاسئلة لكن اريد ان اتعلم واستفيد حتى اخدم هذا المنتدى قريباً ان شاء الله

ashalshaikh قال:
بالنسبة لأخي ::mr.3bode

أزيد على كلام elawady جزاه الله خير ..
يمكن للمستخدم تغيير مسار التيمب .. ولن تفلح في التنظيف ..

لذا فتفضل هذا الكود يخرج لك مسار ملفات IDM المؤقتة من الريجستري

كود:

$TempDir = RegRead(_Ash_UserKey_Detect(1) & "\Software\DownloadManager", "TempPath") Msgbox (0,"",$TempDir) Func _Ash_UserKey_Detect($ReturnType = 0) If $ReturnType < 0 Or $ReturnType > 1 Then $ReturnType = 0 $CountReg = 1 Do $EnumKey = RegEnumKey("HKEY_USERS", $CountReg) If @error Then ExitLoop $CountReg = 1 + $CountReg Until StringLeft($EnumKey, StringLen("S-1-5-21")) = "S-1-5-21" If $ReturnType = 0 Then Return $EnumKey Else Return "HKEY_USERS\" & $EnumKey EndIf EndFunc ;==>_Ash_UserKey_Detect

رائع جداً ،، ولكن اين اضع هذا الكود ؟؟ وكيف احذف ما بداخل الملفات المؤقتة ؟؟ < هل امر الحذف موجود اساساً ،، ياليت لو تفصل لي الكود تفصيل كامل او باللي تعرفه :d:

ولو اردت ان اقوم بعمل سكربت يحذف الملفات المؤقتة لبرنامج آخر ؟؟ كيف ستكون الطريقة ؟؟ وكيف أأتي بمسار يخرج عن طريق الريجستري ؟؟

اعذروني على كثرة الاسئلة وتحملوني ،، اريد التعلم والاستفادة لاقدم لكم شيئاً عما قريب ان شاء الله

ashalshaikh · 20 نوفمبر 2009

mr.3bode قال:
رائع جداً ،، ولكن اين اضع هذا الكود ؟؟ وكيف احذف ما بداخل الملفات المؤقتة ؟؟ < هل امر الحذف موجود اساساً ،، ياليت لو تفصل لي الكود تفصيل كامل او باللي تعرفه :d:

ولو اردت ان اقوم بعمل سكربت يحذف الملفات المؤقتة لبرنامج آخر ؟؟ كيف ستكون الطريقة ؟؟ وكيف أأتي بمسار يخرج عن طريق الريجستري ؟؟

اعذروني على كثرة الاسئلة وتحملوني ،، اريد التعلم والاستفادة لاقدم لكم شيئاً عما قريب ان شاء الله

خذ راحتك على الآخر

هذا الكود يخرج لك مسار المجلد المؤقت الخاص بـ IDM حتى لو غيره المستخدم .. في أي نظام !!
ويضعه في متغير ..
ما عليك إلا وضع المتغير في مكان المسار ,, وكل شي رح يزين :d:
ملاحظة :: قد يكون مسار المؤقت ناقص مجلد أو شيء .. ما عليك إلا تغيير قيمة المتغير ..

k:

ملاحظة :: من السطر الذي يبدأ بـ Func هذا عبارة عن دالة .. تكون في أسسسسسسسسسسفل السكربت ..
والباقي في أعلى السكربت أو في بداية العمليات ..

السكربت ملون .. ومعه بعض التعليقات للتوضيح

كود:

[color="#009933"];~ المتغير الذي يحوي المسار المؤقت[/Color]
[color="#aa0000"]$TempDir[/Color] [color="#ff0000"]=[/Color] [color="#000090"]RegRead[/Color][color="#ff0000"]([/Color]_Ash_UserKey_Detect[color="#ff0000"]([/Color][color="#ac00a9"]1[/Color][color="#ff0000"])[/Color] [color="#ff0000"]&[/Color] [color="#9999cc"]"\Software\DownloadManager"[/Color][color="#ff0000"],[/Color] [color="#9999cc"]"TempPath"[/Color][color="#ff0000"])[/Color]
[color="#009933"];----> تحت هذا السطر تكون العمليات التي تريدها[/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="#aa0000"]$TempDir[/Color][color="#ff0000"])[/Color]





[color="#009933"];~ دالة تكون في أسفل السكربت[/Color]
[color="#0000ff"]Func[/Color] _Ash_UserKey_Detect[color="#ff0000"]([/Color][color="#aa0000"]$ReturnType[/Color] [color="#ff0000"]=[/Color] [color="#ac00a9"]0[/Color][color="#ff0000"])[/Color]
    [color="#0000ff"]If[/Color] [color="#aa0000"]$ReturnType[/Color] [color="#ff0000"]<[/Color] [color="#ac00a9"]0[/Color] [color="#0000ff"]Or[/Color] [color="#aa0000"]$ReturnType[/Color] [color="#ff0000"]>[/Color] [color="#ac00a9"]1[/Color] [color="#0000ff"]Then[/Color] [color="#aa0000"]$ReturnType[/Color] [color="#ff0000"]=[/Color] [color="#ac00a9"]0[/Color]
    [color="#aa0000"]$CountReg[/Color] [color="#ff0000"]=[/Color] [color="#ac00a9"]1[/Color]
    [color="#0000ff"]Do[/Color]
        [color="#aa0000"]$EnumKey[/Color] [color="#ff0000"]=[/Color] [color="#000090"]RegEnumKey[/Color][color="#ff0000"]([/Color][color="#9999cc"]"HKEY_USERS"[/Color][color="#ff0000"],[/Color] [color="#aa0000"]$CountReg[/Color][color="#ff0000"])[/Color]
        [color="#0000ff"]If[/Color] [color="#ff33ff"]@error[/Color] [color="#0000ff"]Then[/Color] [color="#0000ff"]ExitLoop[/Color]
        [color="#aa0000"]$CountReg[/Color] [color="#ff0000"]=[/Color] [color="#ac00a9"]1[/Color] [color="#ff0000"]+[/Color] [color="#aa0000"]$CountReg[/Color]
    [color="#0000ff"]Until[/Color] [color="#000090"]StrIngLeft[/Color][color="#ff0000"]([/Color][color="#aa0000"]$EnumKey[/Color][color="#ff0000"],[/Color] [color="#000090"]StrIngLen[/Color][color="#ff0000"]([/Color][color="#9999cc"]"S-1-5-21"[/Color][color="#ff0000"])[/Color][color="#ff0000"])[/Color] [color="#ff0000"]=[/Color] [color="#9999cc"]"S-1-5-21"[/Color]
    [color="#0000ff"]If[/Color] [color="#aa0000"]$ReturnType[/Color] [color="#ff0000"]=[/Color] [color="#ac00a9"]0[/Color] [color="#0000ff"]Then[/Color]
        [color="#0000ff"]Return[/Color] [color="#aa0000"]$EnumKey[/Color]
    [color="#0000ff"][color="#0000ff"]Else[/Color][/Color]
        [color="#0000ff"]Return[/Color] [color="#9999cc"]"HKEY_USERS\"[/Color] [color="#ff0000"]&[/Color] [color="#aa0000"]$EnumKey[/Color]
    [color="#0000ff"]EndIf[/Color]
[color="#0000ff"]EndFunc[/Color]   [color="#009933"];==>_Ash_UserKey_Detect  [/Color]

ملاحظة :: إذا لاحظت نقص في المسار (مثلا يبقى مجلد حتى يكتمل المسار) .. تحت سطر المتغير أكتب التالي ::ـ

كود:

[color="#aa0000"]$TempDir[/Color] [color="#ff0000"]&[/Color][color="#ff0000"]=[/Color] [color="#9999cc"]"\TEDAPKPK"[/Color]

أضفت هنا مجلد TEDAPKPK ..

إذا لازالت عندك تساؤلات أهلا وسهلا

mr.3bode · 20 نوفمبر 2009

المشكلة اني لم اصل للدوال حتى الآن انا متوقف عند الدرس الخامس فقط !!

لذلك اعتقد اني احتاج مزيد من الوقت [ يبدو ان فهم الموضوع صعب في حال اني لا اعرف للدوال ]

يعطيك العآإأفية وماتقصر اخوووي ..

ashalshaikh · 20 نوفمبر 2009

mr.3bode قال:
المشكلة اني لم اصل للدوال حتى الآن انا متوقف عند الدرس الخامس فقط !!

لذلك اعتقد اني احتاج مزيد من الوقت [ يبدو ان فهم الموضوع صعب في حال اني لا اعرف للدوال ]

يعطيك العآإأفية وماتقصر اخوووي ..

أهلا ..
ماهو شرط تفهم الكود .. لاحقا سوف تفهمه !!

k:
الدالة انسخها كما هي أسسسسسسسسفل السكربت ..
والباقي انسخه في مكان المل ..
لا أكثر ولا أقل .. :d:
أهلا بك ..

رشةعطر · 21 نوفمبر 2009

أسأل الله أن يرفع قدرك وأن يحرم وجهك عن النار و والديك .. ويجعل الجنة مثواك

بارك الله فيك وجزاك عنا خير الجزاء

زيزوومي نشيط

زيزوومى مميز

توقيع : Ali-911

زيزوومى متألق

توقيع : ahmadkalmad

زيزوومى فضى

توقيع : ashalshaikh

زيزوومى مميز

توقيع : mr.3bode

زيزوومي جديد

توقيع : الزري2

زيزوومى مبدع

توقيع : zoro779

زيزوومى فضى

توقيع : ashalshaikh

زيزوومى مميز

توقيع : mr.3bode

زيزوومى مميز

توقيع : mr.3bode

زيزوومى مبدع

توقيع : zoro779

زيزوومى مميز

توقيع : mr.3bode

زيزوومي نشيط

زيزوومى فضى

توقيع : ashalshaikh

زيزوومى فضى

توقيع : ashalshaikh

زيزوومى مميز

توقيع : mr.3bode

زيزوومى فضى

توقيع : ashalshaikh

زيزوومى مميز

توقيع : mr.3bode

زيزوومى فضى

توقيع : ashalshaikh

زيزوومي جديد

توقيع : رشةعطر