موضوع خاص لدعــم الـ AutoIt -- افكار ؛ مشاريع ؛ سورسات ؛ اسئله ؛ نقاشات ...... الخ

  • بادئ الموضوع بادئ الموضوع LINEZERO
  • تاريخ البدء تاريخ البدء
  • المشاهدات 95,714
waget قال:
صامت أو تلقائي تفرق كثير :?:​

وأيضا ياليت تضعين كودك المبدئي للأداه​

:d:​
أنقر للتوسيع...


كود: 
Break(0)
BlockInput(1)
[EMAIL="$A=@ProgramFilesDir"]$A=@ProgramFilesDir[/EMAIL] &"\Internet Download Manager\Uninstall.exe"
If FileExists($A) Then
run($A)
Send("{N}")
Send("{F}")
Else
 MsgBox(0,"","برنامج الانترنت داونلود ما نجر غير متواجد وليس مثبت بالجهاز")
EndIf
BlockInput(0)
 

توقيع : الحلا تبي تتعلم
الحلا تبي تتعلم قال:
كود: 
Break(0)
BlockInput(1)
$A=@ProgramFilesDir &"\Internet Download Manager\Uninstall.exe"
If FileExists($A) Then
run($A)
Send("{N}")
Send("{F}")
Else
 MsgBox(0,"","برنامج الانترنت داونلود ما نجر غير متواجد وليس مثبت بالجهاز")
EndIf
BlockInput(0)
أنقر للتوسيع...
الفكره هي إرسال الاوامر لنافذه من خلال لوحة المفاتيح
طبعا بدال لوحة المفاتيح حنا نبي نرسل الاوامر تلقائي من السكريبت
نستخدم الدالة send
طيب طريقة العمل بتكون
تشغيل العملية - الملف التنفيذي ...
بعد كذا ننتظر ظهور النافذه وتفعلها
ثم نرسل الاوامر طيب الان
بعد كل إرسالة راح تظهر نافذه جديدة فعلشان كذا قبل كل شي نتاكد من ظهور النافذه وهذا أهم شيء
نستخدم الدالة WinWaitActive
ومن المهم فهم الدالة send
تخبر نظام التشغيل إن المستخدم ضغط الزر الفلاني فيقوم بتطبيق عمل الزر
حتى لو المستخدم ماضغط شيء طبعا ينفذ العمل على النافذة المفعلة
جربي أختى فتح نافذة setup لأي برنامج
وإضغطي على ALT تلاحظين بعض الحروف على الازرار عليه خط
نفرض زر علية next
إضغطي alt + n راح ينظغط زر الnext
فنستنتج إن المفاتيح ألي نحتاج نرسلها هي alt+n
فنكتب
كود: 
send("!n") ; ! = Alt
هذي الفكرة العامة شوفي وين أخطأتي إنتي :d:

طبعا في أداه تعمل كل هذ وهي أداه AU3Record
​
 
توقيع : waget
اهاااااا مشكور على التوضيح

بديت افهم الامر
send
مشكور وجزاك الله خير
 
توقيع : الحلا تبي تتعلم
رجعنا لكم مرة ثانية مع استفسار جديد:d:

عندي مربعين ادخالاول وثاني---- واريد تنفيذ الامر في حالة تساوي مدخلات المربعين وفي حالة عدم تساوي المدخلات يظهر مربع ادخال الثاني
فهل من احد يساعدني
كود: 
NoTrayIcon
#include <ScreenCapture.au3>
#include <Misc.au3>
$input = InputBox("", "استفسارات في الاتوات" & @CRLF & "" & @CRLF & "" & @CRLF & "" & @CRLF & "هل من احد ليساعدني")
If $input = "" Then
 MsgBox(0 + 524288, "", "write something ..")
 Exit
EndIf
 $input1 = InputBox("Welcome", "أعد إدخال الرقم السري السابق  ")
 If $input <> $input1 Then
 MsgBox(0,"","محاولة خاطئة ويرجو ادخال الرقم المثيل في مربع الادخال الاول")
 $input1 = InputBox("Welcome", "أعد إدخال الرقم السري السابق  ")
Else
 MsgBox(0,"","good")
 EndIf

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

عندي مربعين ادخالاول وثاني---- واريد تنفيذ الامر في حالة تساوي مدخلات المربعين وفي حالة عدم تساوي المدخلات يظهر مربع ادخال الثاني
فهل من احد يساعدني
كود: 
NoTrayIcon
#include <ScreenCapture.au3>
#include <Misc.au3>
$input = InputBox("", "استفسارات في الاتوات" & @CRLF & "" & @CRLF & "" & @CRLF & "" & @CRLF & "هل من احد ليساعدني")
If $input = "" Then
 MsgBox(0 + 524288, "", "write something ..")
 Exit
EndIf
 $input1 = InputBox("Welcome", "أعد إدخال الرقم السري السابق  ")
 If $input <> $input1 Then
 MsgBox(0,"","محاولة خاطئة ويرجو ادخال الرقم المثيل في مربع الادخال الاول")
 $input1 = InputBox("Welcome", "أعد إدخال الرقم السري السابق  ")
Else
 MsgBox(0,"","good")
 EndIf

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


تفضلي

كود: 
#NoTrayIcon
#include <ScreenCapture.au3>
#include <Misc.au3>
$input = InputBox("", "استفسارات في الاتوات" & @CRLF & "" & @CRLF & "" & @CRLF & "" & @CRLF & "هل من احد ليساعدني")
If $input = "" Then
 MsgBox(0 + 524288, "", "write something ..")
 Exit
EndIf
 $input1 = InputBox("Welcome", "أعد إدخال الرقم السري السابق  ")
 While $input <> $input1
 $input1 = InputBox("Welcome", "أعد إدخال الرقم السري السابق  ")
 If $input1 = "" Then
MsgBox(0 + 524288, "", "write something ..")
EndIf
  WEnd
If $input1 = $input Then
 MsgBox(0,"","you are perfect")
EndIf
 
توقيع : SAM ARON
waget قال:
الفكره هي إرسال الاوامر لنافذه من خلال لوحة المفاتيح
طبعا بدال لوحة المفاتيح حنا نبي نرسل الاوامر تلقائي من السكريبت
نستخدم الدالة send
طيب طريقة العمل بتكون
تشغيل العملية - الملف التنفيذي ...
بعد كذا ننتظر ظهور النافذه وتفعلها
ثم نرسل الاوامر طيب الان
بعد كل إرسالة راح تظهر نافذه جديدة فعلشان كذا قبل كل شي نتاكد من ظهور النافذه وهذا أهم شيء
نستخدم الدالة WinWaitActive
ومن المهم فهم الدالة send
تخبر نظام التشغيل إن المستخدم ضغط الزر الفلاني فيقوم بتطبيق عمل الزر
حتى لو المستخدم ماضغط شيء طبعا ينفذ العمل على النافذة المفعلة
جربي أختى فتح نافذة setup لأي برنامج
وإضغطي على ALT تلاحظين بعض الحروف على الازرار عليه خط
نفرض زر علية next
إضغطي alt + n راح ينظغط زر الnext
فنستنتج إن المفاتيح ألي نحتاج نرسلها هي alt+n
فنكتب ​
كود: 
[CENTER]send("!n") ; ! = Alt [/CENTER]
هذي الفكرة العامة شوفي وين أخطأتي إنتي :d:​


طبعا في أداه تعمل كل هذ وهي أداه AU3Record​
أنقر للتوسيع...

أستاذ/ عبدالله :d:

الانترنت داونلود مانجر ما ينفع معاه كذا

الامر اعقد من كذا

لازم تستخدم أمر ControlClick وإخوانه + WinWaitActive :hh:


بالنسبة للحلا

هذه الاوامر يحتاج لها دروس كاملة كي تفهمها ! :hh:

أو خلي الأستاذ عبدالله يشرحها

أما أنا مشغول جدا :d:
 
توقيع : yones7x
محرر من waget / ماله داعي الرد بهذا الاسلوب أختي
​
 
توقيع : الحلا تبي تتعلم
SAM ARON قال:
تفضلي

كود: 
#NoTrayIcon
#include <ScreenCapture.au3>
#include <Misc.au3>
$input = InputBox("", "استفسارات في الاتوات" & @CRLF & "" & @CRLF & "" & @CRLF & "" & @CRLF & "هل من احد ليساعدني")
If $input = "" Then
 MsgBox(0 + 524288, "", "write something ..")
 Exit
EndIf
 $input1 = InputBox("Welcome", "أعد إدخال الرقم السري السابق  ")
 While $input <> $input1
 $input1 = InputBox("Welcome", "أعد إدخال الرقم السري السابق  ")
 If $input1 = "" Then
MsgBox(0 + 524288, "", "write something ..")
EndIf
  WEnd
If $input1 = $input Then
 MsgBox(0,"","you are perfect")
EndIf
أنقر للتوسيع...

جزاك الله خير --- كفيت ووفيت والحلا وجدت ضالتها:d:
 
توقيع : الحلا تبي تتعلم
yones7x قال:
أستاذ/ عبدالله :d:

الانترنت داونلود مانجر ما ينفع معاه كذا

الامر اعقد من كذا

لازم تستخدم أمر ControlClick وإخوانه + WinWaitActive :hh:


بالنسبة للحلا

هذه الاوامر يحتاج لها دروس كاملة كي تفهمها ! :hh:

أو خلي الأستاذ عبدالله يشرحها

أما أنا مشغول جدا :d:
أنقر للتوسيع...
:b:
كلامك 100%

بشأن الشرح شرحنا بمافيه الكفاية في الدورة والوقت مايسمح ابد

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

ويرحم والديك إبعد إستاذ عنا تحسسني شايب :hh:

بالنسبه للحلا

في أداه مثل السابقه ألي قلت لك عليها

بس هذي تولد الكود بدالة الControlClick

إسمها AutoIt Macro Generator

تفي بالغرض إن شاء الله وسهله جداً ..

مع إني ماودي لا أعطيكي سورس ولا أدوات تولد سورس لك ..

ماراح تتعلمي كذا ... لوحبيتي تتعلمي صح مالك إلا كتاب اللغه والتجربه

:d:
​
 
توقيع : waget
معذرة أختي تم تحرير الرد ..

بدال ماتردين بهذا الشكل كأن أخذتي من رده المفيد وبحثتي بأسماء الدوال ألي وضعها ...

وأيضاً ... العلم موجود ليس حكراً عندي ولاعند حبيبنا يونس ولا عند غيرنا ... مافي لغه في العالم إلا في

كتاب من مؤلفيها يشرحها...

هدى الله الجميع ..
​
 
توقيع : waget
waget قال:
معذرة أختي تم تحرير الرد ..​


بدال ماتردين بهذا الشكل كأن أخذتي من رده المفيد وبحثتي بأسماء الدوال ألي وضعها ...​

وأيضاً ... العلم موجود ليس حكراً عندي ولاعند حبيبنا يونس ولا عند غيرنا ... مافي لغه في العالم إلا في​

كتاب من مؤلفيها يشرحها...​

هدى الله الجميع ..​
أنقر للتوسيع...

:ok::ok::ok:

صدقت اخي الكريم فنحن في منتدى راقي وهدفنا من الدخول اليه من اجل التعلم والتطور وليس من اجل الجدال والردود السلبية
 
توقيع : الحلا تبي تتعلم
نعم توجد اداة اخرى علمنا اياها ماكس في الصفحات الاولى من هذا الموضوع لعمل تنصيب صامت وهي
scriptwriter
 
توقيع : الحلا تبي تتعلم
الادوات تاتي مع Editor

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


scriptwriter = AU3Record / وهي لتوليد الكود لتحريك ونقرات الماوس أ الكيبورد وتولد دوال

ترسل أحرف الكيبورد أو تحرك الماوس ...

AutoIt Macro Generator / تولد الكود نفس السابقه بس بإستخدامدوال control

هدف الادوات هو تسريع العمل وليس الاستغناء عن فهم الكود ...




​
 
توقيع : waget
هل من الممكن اظهار خلفية الرسائل بالوان
 
توقيع : الحلا تبي تتعلم
حتى هنا تتهاوشون :d:​
 
توقيع : LINEZERO
السلام عليكم ..

في سؤال يقرقع في راسي
وهو كيف أسوي مجلد ينسخ نفسه لمسار معين وهو غير موجود في جهاز اللي بيحمل أداتي

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

تم التحرير ....​
 
توقيع : Rays
kinxg black قال:
السلام عليكم ..

في سؤال يقرقع في راسي
وهو كيف أسوي مجلد ينسخ نفسه لمسار معين وهو غير موجود في جهاز اللي بيحمل أداتي

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


وش تريد تسوي بالضبط
نحن هنا لنعلم الاخلاقيات الحسنة ولسنا بصدد نشر الفساد
وتعاونوا على التقوى والبر ولا تعاونوا على الاثم والعدوان
 
توقيع : الحلا تبي تتعلم
الحلا تبي تتعلم قال:
هل من الممكن اظهار خلفية الرسائل بالوان
أنقر للتوسيع...


على ما اعتقد ان كوربورشن جاوب على استفساري في الصفحات السابقة بس بصراحة بحثت في الكتاب المساعد ولم اجد طريقة لتلوين الرسائل
 
توقيع : الحلا تبي تتعلم
أخوي KinXG BlacK

ما أعتقد تقدر تدمج مجلد ... لكن

في طريقتين الاولى
من خلال السكريبت
تنشى المجلد في المسار ألي تريدة
تدمج الملفات في السكريبت ..FileInstall..
مكان الاستخراج يكون مسار المجلد إلي أنشأته ...

الطريقة الثانية
تضع المجلد بجانب السكريبت و تخلي السكريبت ينسخه من المجلد اللي متواجدين في إلى المسار ألي تريده
بعد كذا تضغط المجلد والسكريبت في ملف sfx بالوينرار أو 7zip وتخلي السكريبت ويشتغل فور الاستخراج

:d:

الحلا ...

اللي تبحثين عنه هو udf مو دوال متعرفه مع اللغة
يعني ماراح تلقينه في الكتاب المساعد في منتدى اللغه تلقينه على العموم هذا هو ملف udf مع المثال حقه

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



​
 
توقيع : waget
يجب تسجيل الدخول أو التسجيل كي تتمكن من الرد هنا.
عودة
أعلى