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

[فدى الرسول]

جزاااااااااااااااااااااااك الله خير تم وضبط معى
كنت ناسى رقم 1

 

[فدى الرسول]

r@Y@n
الف شكر يا اخى الكريم
تم وضبط معى كنت ناسى رقم 1

 

[vip_7500]

كيف الحال شباب :d:

ممكن خدمه :b:

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

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

انا تابعت موضوع الاخ هشام على هذا الرابط

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

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

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

لكن يبدو ان الباتش في هذا الشرح هو باتش تلقائي يعني مجرد الضغط يتفعل البرنامج

<< طولت عليكم صح :b:

مثل ما قلت لكم ابغى كود استخدمه في برنامج AutoIt v3
عشان انقل الباتش بشكل صحيح واعمل له تشغيل ويتم تفعيل البرنامج

 

[vip_7500]

طيب عندي استفسار آخر :d:

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

لا تقولون لي عن طريق if و then :cr:
ادري انه عن طريقها لكن ماضبط معي بالشكل الصحيح :er:

الكود المراد اضافه السؤال عليه هو كالتالي

$MsgBox (36, "SWiSH Max2 by VIP","هل تريد تثبيت البرنامج")
Run('SetupSwishmax2_20090120.exe')
WinWait("Welcome to the SWiSH Max2 Installation Wizard","Welcome to the SWiSH")
If Not WinActive("Welcome to the SWiSH Max2 Installation Wizard","Welcome to the SWiSH") Then WinActivate("Welcome to the SWiSH Max2 Installation Wizard","Welcome to the SWiSH")
WinWaitActive("Welcome to the SWiSH Max2 Installation Wizard","Welcome to the SWiSH")
Send("n")
WinWait("SWiSH Max2 Installation Wizard - License Agreement","Please read the foll")
If Not WinActive("SWiSH Max2 Installation Wizard - License Agreement","Please read the foll") Then WinActivate("SWiSH Max2 Installation Wizard - License Agreement","Please read the foll")
WinWaitActive("SWiSH Max2 Installation Wizard - License Agreement","Please read the foll")
Send("y")
WinWait("SWiSH Max2 Installation Wizard - Choose Destination Directory","&Destination Directo")
If Not WinActive("SWiSH Max2 Installation Wizard - Choose Destination Directory","&Destination Directo") Then WinActivate("SWiSH Max2 Installation Wizard - Choose Destination Directory","&Destination Directo")
WinWaitActive("SWiSH Max2 Installation Wizard - Choose Destination Directory","&Destination Directo")
Send("n")
WinWait("SWiSH Max2 Installation Wizard - Finished","The SWiSH Max2 Insta")
If Not WinActive("SWiSH Max2 Installation Wizard - Finished","The SWiSH Max2 Insta") Then WinActivate("SWiSH Max2 Installation Wizard - Finished","The SWiSH Max2 Insta")
WinWaitActive("SWiSH Max2 Installation Wizard - Finished","The SWiSH Max2 Insta")
Send("{TAB}{SPACE}{TAB}{TAB}{ENTER}")

والمعذره على كثرة الاسئله :b:

 

[بيسو النت]

بسم الله الرحمن الرحيم​

اخواني عندي سؤال أرجو ان أجد الجواب عندكم ​

مثلا هذا المسار My Computer\HKEY_CURRENT_USER\Software\Yahoo\pager\Test ​

اريد ان أضيف عليه رجستر جديد ​

هل أستطيع عمل باتش يأخذني الي هدا المسار ويضع الرجستر الجديد بمجرد الضغط عليه ​

اقصد من كلامي عندما أريد أن أفتح أكثر من ياهو انا أتبع المسار وثم أضبف رجستر جديد ​

ولكن هناك باتش بمجرد الضغط عليه يعمل كل هذا ​

كيف أستطيع من خلال معرفتي بالمسار أن أصنع هذا الباتش ​

وأعتذر عن الإطاله ولكم كل الشكر ​

 

[القنـاص]

عدنا :d:

والله كل ما افتح كتاب ابغى اذاكر تنسد نفسي :d:

 

[القنـاص]

بسم الله الرحمن الرحيم

اخواني عندي سؤال أرجو ان أجد الجواب عندكم

مثلا هذا المسار My Computer\HKEY_CURRENT_USER\Software\Yahoo\pager\Test

اريد ان أضيف عليه رجستر جديد

هل أستطيع عمل باتش يأخذني الي هدا المسار ويضع الرجستر الجديد بمجرد الضغط عليه

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

ولكن هناك باتش بمجرد الضغط عليه يعمل كل هذا

كيف أستطيع من خلال معرفتي بالمسار أن أصنع هذا الباتش

وأعتذر عن الإطاله ولكم كل الشكر ​

عن طريق امر RegWrite

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

 

[القنـاص]

على فكرة امر Traytip ما يشتغل الا على (2000/XP only) فقط

 

[فدى الرسول]

طيب عندي استفسار آخر :d:

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

لا تقولون لي عن طريق if و then :cr:
ادري انه عن طريقها لكن ماضبط معي بالشكل الصحيح :er:

الكود المراد اضافه السؤال عليه هو كالتالي

$MsgBox (36, "SWiSH Max2 by VIP","هل تريد تثبيت البرنامج")
Run('SetupSwishmax2_20090120.exe')
WinWait("Welcome to the SWiSH Max2 Installation Wizard","Welcome to the SWiSH")
If Not WinActive("Welcome to the SWiSH Max2 Installation Wizard","Welcome to the SWiSH") Then WinActivate("Welcome to the SWiSH Max2 Installation Wizard","Welcome to the SWiSH")
WinWaitActive("Welcome to the SWiSH Max2 Installation Wizard","Welcome to the SWiSH")
Send("n")
WinWait("SWiSH Max2 Installation Wizard - License Agreement","Please read the foll")
If Not WinActive("SWiSH Max2 Installation Wizard - License Agreement","Please read the foll") Then WinActivate("SWiSH Max2 Installation Wizard - License Agreement","Please read the foll")
WinWaitActive("SWiSH Max2 Installation Wizard - License Agreement","Please read the foll")
Send("y")
WinWait("SWiSH Max2 Installation Wizard - Choose Destination Directory","&Destination Directo")
If Not WinActive("SWiSH Max2 Installation Wizard - Choose Destination Directory","&Destination Directo") Then WinActivate("SWiSH Max2 Installation Wizard - Choose Destination Directory","&Destination Directo")
WinWaitActive("SWiSH Max2 Installation Wizard - Choose Destination Directory","&Destination Directo")
Send("n")
WinWait("SWiSH Max2 Installation Wizard - Finished","The SWiSH Max2 Insta")
If Not WinActive("SWiSH Max2 Installation Wizard - Finished","The SWiSH Max2 Insta") Then WinActivate("SWiSH Max2 Installation Wizard - Finished","The SWiSH Max2 Insta")
WinWaitActive("SWiSH Max2 Installation Wizard - Finished","The SWiSH Max2 Insta")
Send("{TAB}{SPACE}{TAB}{TAB}{ENTER}")

والمعذره على كثرة الاسئله :b:

تفضل يا غاااااااااااااااااااااااااااااااااااااالى
الكود جهاز وانت سوى براحتك ماتريد

#cs ----------------------------------------------------------------------------

 AutoIt Version: 3.3.0.0
 Author:         Mohammed Hosni

 Script Function:
	for ask for setup.

#ce ----------------------------------------------------------------------------

; Script Start - Add your code below here

$answer = MsgBox(68, "السلام عليكم", "هل تريد تثبيت البرنامج")

If $answer = 7 Then
    MsgBox(0,"مع السلام","ثم الغاء التثبيت")
EndIf
وهنا قم بوضع اكواد التثبيت

 

[vip_7500]

^
^
جزاك الله خير

جاري التجربه

 

[vip_7500]

تفضل يا غاااااااااااااااااااااااااااااااااااااالى
الكود جهاز وانت سوى براحتك ماتريد

#cs ----------------------------------------------------------------------------
 
 AutoIt Version: 3.3.0.0
 Author:         Mohammed Hosni
 
 Script Function:
    for ask for setup.
 
#ce ----------------------------------------------------------------------------
 
; Script Start - Add your code below here
 
$answer = MsgBox(68, "السلام عليكم", "هل تريد تثبيت البرنامج")
 
If $answer = 7 Then
    MsgBox(0,"مع السلام","ثم الغاء التثبيت")
EndIf
وهنا قم بوضع اكواد التثبيت

اخي من اين ابداء بوضع الكود
هل هو من كلامة Script Start ام MsgBox(68 ام ماذا
لاني حاولت ولكن للاسف بعد ما اضغط على لا تخرج لي رسالة تم الغاء التثبيت ثم يقوم بتثبيته :er:

 

[بيسو النت]

عن طريق امر regwrite

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

عذرا أخي ولكن لم أفهم

ارجو لو استطعت توفير بعض الوقت لي بشرحها

مبسط وأكون من الشاكرين لك

 

[فدى الرسول]

تفضل يا غاااااااااااااااااااااااااااااااااااااالى
الكود جهاز وانت سوى براحتك ماتريد

#cs ----------------------------------------------------------------------------

 AutoIt Version: 3.3.0.0
 Author:         Mohammed Hosni

 Script Function:
	for ask for setup.

#ce ----------------------------------------------------------------------------

; Script Start - Add your code below here

$answer = MsgBox(68, "السلام عليكم", "هل تريد تثبيت البرنامج")

If $answer = 7 Then
    MsgBox(0,"مع السلام","ثم الغاء التثبيت")
EndIf
وهنا قم بوضع اكواد التثبيت

اترى كلمة

هنا قم بوضع اكواد التثبيت

امسحها والصق الكود بدايه من

Run('SetupSwishmax2_20090120.exe')
WinWait("Welcome to the SWiSH Max2 Installation Wizard","Welcome to the SWiSH")

 

[vip_7500]

اترى كلمة

هنا قم بوضع اكواد التثبيت

امسحها والصق الكود بدايه من

Run('SetupSwishmax2_20090120.exe')
WinWait("Welcome to the SWiSH Max2 Installation Wizard","Welcome to the SWiSH")

لا خلاص الله يجزاك خير بفضل الله ثم فضلك حاولت بالكود الاول اللي اعطيتني اياه وصار فيه نقص وعملت له بعض الاضافات
لان الكود الاول مهما عملت وضغطت على كلمة لا اثناء تجربة التطبيق يقوم بتثبيت البرنامج :f:
ولكن مع المحاوله وجدت الحل والحمد لله

الكود الصحيح يوضع كما قلت انت وكما توقعت انا :hh: في البدايه
واصبح الكود بعد التصحيح كالتالي

 $answer = MsgBox(68, "السلام عليكم", "هل تريد تثبيت البرنامج")
  If $answer = 7 Then
    MsgBox(0,"مع السلام","ثم الغاء التثبيت")
Exit
EndIf
 If $answer = 6 Then
  EndIf

ثم بعد ذلك تأتي اكواد البرنامج

جزاك الله خير اخي على المساعده

 

[فدى الرسول]

نعم لقد نسيت لن ارسل exit
لكن الكود الاصح هوا

$answer = MsgBox(68, "السلام عليكم", "هل تريد تثبيت البرنامج") 
  If $answer = 7 Then 
    MsgBox(0,"مع السلام","ثم الغاء التثبيت") 
Exit 
EndIf

 

[vip_7500]

^
^
صحيح تمت تجربته k:

 

[فدى الرسول]

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

Until _IsPressed ("1B")                                 ;شرط الخروج هو زر الهروب

الاستفسار الثانى
بخصوص امر

DirCreate("path")

ممكن تعطينى مثال عن انشاء ملف

وجزاك الله خير

 

[Future Tank X-1]

بارك الله فيك وان شاء الله برمجه موفقه

=====================================

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

Until _IsPressed ("1B")                                 ;شرط الخروج هو زر الهروب

[CENTER][/CENTER]

الاستفسار الثانى

بخصوص امر

DirCreate("path")

ممكن تعطينى مثال عن انشاء ملف​

وجزاك الله خير​

السلام عليكم اخي الظاهر ان احمد عنده شغل حالياً لذا انا ابجاوبك :q:

______​

جـ (1) / زر الهروب يمكن تغيره​

جـ (2) مثال :-​

[CENTER]DirCreate("[COLOR=red]c:\[/COLOR][COLOR=blue]Future Tank X-1[/COLOR]")[/CENTER]

تضع المسار صنع المجلد وهو بـ الاحمر​

ثم بعده تضع اسم المجلد المراد انشاءه وهو بـ الازرق​

اي استفسار في الامر انا جاهز​

 

[ashalshaikh]

أشكركم ياغوالي ,,
ما قصرتم ,,,
بارك الله فيكم ,,
ماشاء الله عليكم ,,
ربي ما يحرمكم الخير !!
ملاحظة :: لن أكون موجود بكثرة في الأيام الأخيرة ,, ولمدة ثلاث أسابيع ,, !!
فأي إضافة للفهرس ,, شرح أو درس أو استفسار (بشرط ألا يكون معاد أو موجود درس سابق عنه) فقط بلغوا المشرفين على القسم ,,بوضعه في مكانه الأنسب ,,, وضعوا الرابط وكل شي تمام !! اتفقنا ؟!!
بارك الله فيكم !!!!

 

[ashalshaikh]

كيف الحال شباب :d:

ممكن خدمه :b:

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

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

انا تابعت موضوع الاخ هشام على هذا الرابط

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

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

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

لكن يبدو ان الباتش في هذا الشرح هو باتش تلقائي يعني مجرد الضغط يتفعل البرنامج

<< طولت عليكم صح :b:

مثل ما قلت لكم ابغى كود استخدمه في برنامج AutoIt v3
عشان انقل الباتش بشكل صحيح واعمل له تشغيل ويتم تفعيل البرنامج

أهلا وسهلا ,,
بالنسبة للباتش اللي يتفعل لوحده ,, ويقفل لوحده !! ,, فقط RunWait يكفيه !!
أما إذا كان يتفعل لوحده ,, ويخرج رسالة !! انتظر عنوان الرسالة بـWinWait ثم Send كما في التلقائي
أما إذا كان يحتاج ضغط ,, تطبق عليه أوامر Control <<< لمعلومات أكثر راجع الـHelp المرفق مع البرنامج !!
أما الطريقة الأسهل والأسهل والأسهل ,,
إنك تعمل مقارنة قبل تطبيق الباتش وبعده !! ثم تاخذ تأثيره وتطبقه بالأوتيت مثلا ,,
الباتش يضغ قيمة في الريجستري س ,, تروح تضع أوامر إضافة س
و يعمل شي معين بالملف A.exe تاخذه ثم تعمل أوامر استبدال للأصلي ,, وهكذا ,,
أرجو تكون الصورة وضحت ,, !!
وآسف على التطويل :d: