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

[yones7x]

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

كيف الحال؟؟

،،

فيه مشكلة بسيطة :d:

أذا اضفت خلفية للواجهة
وجعلتها الخلفية كاملة على الاداة ( اقصد بحجم مساحة الواجهة )

الخلفية تغطي على الازرار

وش الحل ؟

يا الغالي ضيف 0 إلى الكود وتنتهي المشكلة

ويصير مثلا من كذا:

GuiCtrlCreatePic("xx.xx",0,0,50,50)

إلى كذا:

GuiCtrlCreatePic("xx.xx",0,0,50,50,[COLOR=red]0[/COLOR])

 

[yones7x]

نفس شيئ يا الغالي يقول ويندوز الانكليزي
وصراحه أنا لا أذكر أنا كان نظام معرب له من ستة الى سايع أشهر هذا نظام لذلك نسيت
طيب أن كان معرب ما الحل وماهو مسار ملف يدوي لمعرفة نظام عربي أو الانكليزي
:bleh:​

ليس عن طريق ملف أو ما إلى ذلك !

الاوتوات بمجرد كتابة @oslang يقوم هو بالتعرف على لغة النظام من الجذر الخاص به

لا تقول كيف نوصل لهذه الاشياء لانها معقدة

وأسهل طريقة لمعرفة المشكلة الحقيقة لجهازك هو أن تضع هذا الامر وتعطيني الرقم الذي ظهر لك بعد تطبيق الكود

$A=@OSLang
MsgBox(0,"",$A)

بانتظارك :kmj-by0000 (72):

 

[Self]

​

$path = @ProgramFilesDir&"\Skype\Phone\Skype.exe"
If FileExists($path) Then
Run($path)
Else
 MsgBox(0,"","البرنامج غير موجود")
EndIf
Exit

تقضل يا الغالي ولا تنس أخ يونس من دعاء
:king:

​

مشكور جدا جدا اخي رامي على المساعدة فعلا هذا هو الكود المطلوب k:

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

"C:\Program Files\Skype\Phone\Skype.exe" /secondary

ظهرت لي رسالة خطأ علما ان المسار عند وضعه كما هو بـ RUN

يعمل دون مشاكل ما هو السبب !!

​

 

[waget]

مشكور جدا جدا اخي رامي على المساعدة فعلا هذا هو الكود المطلوب k:

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

"C:\Program Files\Skype\Phone\Skype.exe" /secondary

ظهرت لي رسالة خطأ علما ان المسار عند وضعه كما هو بـ RUN

يعمل دون مشاكل ما هو السبب !!

​

تبي ترسل سويتش للبرانامج
طيب هو عباره نص والنصوص دائما توضع بين ""
كذا

[COLOR=Indigo]"C:\Program Files\Skype\Phone\Skype.exe [COLOR=Red]/secondary[/COLOR][/COLOR]"

أو

[COLOR=Indigo]"C:\Program Files\Skype\Phone\Skype.exe " & "[COLOR=Red]/secondary[/COLOR][/COLOR]"

 

[Self]

مشكور اخوي waget على ردك و مساعدتك لي

ولكن للأسف الطريقة لم تعمل و تظهر لي رسالة ان البرنامج غير مثبت و لا يعمل البرنامج !!

هذا الكود كما اصبح بشكله النهائي

$path =@ProgramFilesDir&"\Skype\Phone\Skype.exe " & "/secondary"
If FileExists($path) Then
Run($path)
Else
 MsgBox(0,"","غير مثبت على الجهاز skype برنامج")
EndIf
Exit

وين الغلط ارجو المساعدة ؟؟؟
​

 

[waget]

مشكور اخوي waget على ردك و مساعدتك لي

ولكن للأسف الطريقة لم تعمل و تظهر لي رسالة ان البرنامج غير مثبت و لا يعمل البرنامج !!

هذا الكود كما اصبح بشكله النهائي

$path =@ProgramFilesDir&"\Skype\Phone\Skype.exe " & "/secondary"
If FileExists($path) Then
Run($path)
Else
 MsgBox(0,"","غير مثبت على الجهاز skype برنامج")
EndIf
Exit

وين الغلط ارجو المساعدة ؟؟؟

في البداية تحقق من وجود الملف / البرنامج

المره الثانية تشغله وترسله السويتش ...

[COLOR=#AA0000]$path[/COLOR] [COLOR=#FF0000]=[/COLOR][URL="http://www.autoitscript.com/autoit3/docs/macros.htm#@programfilesdir"][COLOR=#FF33FF]@ProgramFilesDir[/COLOR][/URL][COLOR=#FF0000]&[/COLOR][COLOR=#9999CC]"\Skype\Phone\Skype.exe "[/COLOR] 
[URL="http://www.autoitscript.com/autoit3/docs/keywords.htm#If"][COLOR=#0000FF]If[/COLOR][/URL] [URL="http://www.autoitscript.com/autoit3/docs/functions/FileExists.htm"][COLOR=#000090][I]FileExists[/I][/COLOR][/URL][COLOR=#FF0000]([/COLOR][COLOR=#AA0000]$path[/COLOR][COLOR=#FF0000])[/COLOR] [URL="http://www.autoitscript.com/autoit3/docs/keywords.htm#Then"][COLOR=#0000FF]Then[/COLOR][/URL]
[URL="http://www.autoitscript.com/autoit3/docs/functions/Run.htm"][COLOR=#000090][I]Run[/I][/COLOR][/URL][COLOR=#FF0000]([/COLOR][COLOR=#AA0000]$path[/COLOR] [COLOR=#FF0000]&[/COLOR] [COLOR=#9999CC]"/secondary"[/COLOR] [COLOR=#FF0000])[/COLOR]
[URL="http://www.autoitscript.com/autoit3/docs/keywords.htm#Else"][COLOR=#0000FF]Else[/COLOR][/URL]
 [URL="http://www.autoitscript.com/autoit3/docs/functions/MsgBox.htm"][COLOR=#000090][I]MsgBox[/I][/COLOR][/URL][COLOR=#FF0000]([/COLOR][COLOR=#AC00A9][I]0[/I][/COLOR][COLOR=#FF0000],[/COLOR][COLOR=#9999CC]""[/COLOR][COLOR=#FF0000],[/COLOR][COLOR=#9999CC]"غير مثبت على الجهاز skype برنامج"[/COLOR][COLOR=#FF0000])[/COLOR]
[URL="http://www.autoitscript.com/autoit3/docs/keywords.htm#EndIf"][COLOR=#0000FF]EndIf[/COLOR][/URL]
[URL="http://www.autoitscript.com/autoit3/docs/keywords.htm#Exit"][COLOR=#0000FF]Exit[/COLOR][/URL]

 

[ramay]

ليس عن طريق ملف أو ما إلى ذلك !

الاوتوات بمجرد كتابة @oslang يقوم هو بالتعرف على لغة النظام من الجذر الخاص به

لا تقول كيف نوصل لهذه الاشياء لانها معقدة​

وأسهل طريقة لمعرفة المشكلة الحقيقة لجهازك هو أن تضع هذا الامر وتعطيني الرقم الذي ظهر لك بعد تطبيق الكود​

$A=@OSLang

[CENTER]MsgBox(0,"",$A)[/CENTER]

بانتظارك :kmj-by0000 (72):​

لا تقول كيف نوصل لهذه الاشياء لانها معقدة
​

قد عرفت هذا الذي أريد قوله
ولا يوجد شيئ أسمه معقد مع تعلم​

وهذا كود الذي طلبت​

0409
وهذا ما تريد وصول أليه
English_United_States​

وشيئ يا الغالي أريد أنا أعرف هل هذا جهاز معرب أما لا هل ممكن ؟؟؟؟​

:i:


كيفك استاذ عبد الله
اشتاقنا لك يا الغالي
​

:king:
​

 

[yones7x]

قد عرفت هذا الذي أريد قوله​

ولا يوجد شيئ أسمه معقد مع تعلم​

وهذا كود الذي طلبت​

0409
وهذا ما تريد وصول أليه
English_United_States​

وشيئ يا الغالي أريد أنا أعرف هل هذا جهاز معرب أما لا هل ممكن ؟؟؟؟​

:i:​

كيفك استاذ عبد الله
اشتاقنا لك يا الغالي​

:king:

بكل بساطة اذهب إلى لوحة التحكم (عرض الفئة) > التقويم والاعدادات الاقليمية > اضافة لغات

وشوف كم معاك لغة

إذا لم يكن تبديل اللغة متوافرا معناه إن جهازك عربي

وإذا كان هناك لغتين (عربية & انجليزية) معناه الكمبيوتر معرب

<< الطريقة على اكسبي :king:

 

[ramay]

بكل بساطة اذهب إلى لوحة التحكم (عرض الفئة) > التقويم والاعدادات الاقليمية > اضافة لغات

وشوف كم معاك لغة

إذا لم يكن تبديل اللغة متوافرا معناه إن جهازك عربي

وإذا كان هناك لغتين (عربية & انجليزية) معناه الكمبيوتر معرب

<< الطريقة على اكسبي :king:

طيب يااغالي جهاز معرب كيف ممكن نعمل كود لذلك
يحدد لنا أذا كان جهاز معرب أو عربي أو الانكليزي
:i:

​

 

[yones7x]

طيب يااغالي جهاز معرب كيف ممكن نعمل كود لذلك
يحدد لنا أذا كان جهاز معرب أو عربي أو الانكليزي
:i:​

والله يا غالي ما اعرف

جرب أمر @MUILang بدل @OSLang

ممكن يضبط معك :kmj-by0000 (72):

 

[ramay]

والله يا غالي ما اعرف

جرب أمر @MUILang بدل @OSLang

ممكن يضبط معك :kmj-by0000 (72):

طيب يا غالي
جربته
لم يعطيني لا الانكليزي ولا عربي

لكن أعطني لغة أخرى ما رأيك ؟؟؟

MsgBox(0, "ماهي لغة نظامك:", _Language())
Func _Language()
Select
  Case StringInStr("2801", @MUILang)
  Return "Arabic_Syria"
    Case StringInStr("0409 0809 0c09 1009 1409 1809 1c09 2009 2409 2809 2c09 3009 3409", @MUILang)
        Return "English"
    Case StringInStr("040c 080c 0c0c 100c 140c 180c", @MUILang)
        Return "French"
    Case Else
        Return "Other (لغة أخره)"
    EndSelect
EndFunc

 

[yones7x]

طيب يا غالي
جربته
لم يعطيني لا الانكليزي ولا عربي

لكن أعطني لغة أخرى ما رأيك ؟؟؟

MsgBox(0, "ماهي لغة نظامك:", _Language())
Func _Language()
Select
  Case StringInStr("2801", @MUILang)
  Return "Arabic_Syria"
    Case StringInStr("0409 0809 0c09 1009 1409 1809 1c09 2009 2409 2809 2c09 3009 3409", @MUILang)
        Return "English"
    Case StringInStr("040c 080c 0c0c 100c 140c 180c", @MUILang)
        Return "French"
    Case Else
        Return "Other (لغة أخره)"
    EndSelect
EndFunc

يا غالي انت لم تطرح الا كود اللغة السورية

والويندوز العربي اصله عربي سعودي :q:

لازم تضيف كل اللكنات العربية حتى تضمن الصح :q:

 

[ramay]

يا غالي انت لم تطرح الا كود اللغة السورية

والويندوز العربي اصله عربي سعودي :q:

لازم تضيف كل اللكنات العربية حتى تضمن الصح :q:

أضافة الغة العربيه وأصبح يقول لي أنا جهازك الانكليزي
نريد واحد عنده فكره على هذا شيئ

 

[yones7x]

قتلت نفسك على هذه السالفة

قول ايش تبي من هذه الحركة :d:

وأنا راح افيدك

 

[ramay]

قتلت نفسك على هذه السالفة

قول ايش تبي من هذه الحركة :d:

وأنا راح افيدك

لا يا الغالي أنا في طبعي لأترك شيئ اريد معرفته حتى اعرفه أو يصبني ملل منه
وهذه سالفة الى الان ما مللة منه

طيب كما قلت لك أريد معرفة أذا جهاز معرب أما لا عن طريق الايتو فقط ؟؟؟؟
:bleh:
:king:

​

 

[yones7x]

لا يمكن معرفة ذلك

لأن التعريب يحتفظ وللأسف بترميز اللغة السابقة

اعطيك مثال:

حمل برنامج PowerISO

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

هذا البرنامج يثبت في الويندوز اعتمادًا على لغته

إذا ظهر إنجليزي هذا دليل على كلامي أنه لا يمكن أو صعب معرفة إذا كان الويندوز معرب


يمكنك أن تستخدم حركات خادعة << بدأ يتفلسف :d:

مثلا عندما تكشف عن الويندوز اكسبي إنه انجلش أو فرنسي .. الخ تسوي كشف عن اسم قائمة ابدا

إذا طلع اسم ابدأ بالعربي معناه إن الجهاز معرب وإذا طلع لغة أخرى معناه إن الجهاز اكيد غير معرب

هذا أمر التعرف على اسم زر ابدأ مع رسالة تبين قيمته :d:

$A = WinGetTitle("[CLASS:Button]")
MsgBox(0,"",$A)

الباقي عليك لتجعل هذا الامر أكثر ذكاءً :d:

 

[ramay]

لا يمكن معرفة ذلك

لأن التعريب يحتفظ وللأسف بترميز اللغة السابقة

اعطيك مثال:

حمل برنامج PowerISO

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

هذا البرنامج يثبت في الويندوز اعتمادًا على لغته

إذا ظهر إنجليزي هذا دليل على كلامي أنه لا يمكن أو صعب معرفة إذا كان الويندوز معرب


يمكنك أن تستخدم حركات خادعة << بدأ يتفلسف :d:

مثلا عندما تكشف عن الويندوز اكسبي إنه انجلش أو فرنسي .. الخ تسوي كشف عن اسم قائمة ابدا

إذا طلع اسم ابدأ بالعربي معناه إن الجهاز معرب وإذا طلع لغة أخرى معناه إن الجهاز اكيد غير معرب

هذا أمر التعرف على اسم زر ابدأ مع رسالة تبين قيمته :d:

$A = WinGetTitle("[CLASS:Button]")
MsgBox(0,"",$A)

الباقي عليك لتجعل هذا الامر أكثر ذكاءً :d:

ماشي

 

[ramay]

هل ممكن كم مثال على حلقات متداخله مع أكواد عمليه
على الداول
على هذا الدرس

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

 

[yones7x]

هل ممكن كم مثال على حلقات متداخله مع أكواد عمليه
على الداول
على هذا الدرس

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

في أي مجال تريده بالضبط :q:

يعني باختصار قول فكرة براسك عشان اجيب لك مثال :d:

 

[red flower0]

أشوف هالموضوع بدأ يتجه الى الركود:q::?:

بالذات هذا الموضوع يجب ان يكون ليل نهار مدعوم من قبل الاعضاء والمشرفين ولابد من الاسئلة تكثر فيه للفائده :y:k:

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

اي انا قصدي اذا انت مشغل اي متصفح سواء انترنت اكسبلورير او الفايرفوكس وقمت بتشغيل الاداة فانها لاتشتغل وتقوم باظهار رسالة تنبيهية وتحذيرية في التولبار محتواها يجب اغلاق المتصفحات
وعندما تقوم باغلاق المتصفحات بشكل اوتماتيكي تشتغل الاداة التي هي عبارة عن رسالة محتواها مرحبا بك في عالم الاتوات
فما هي الاكواد لو سمحتم والله يخليكم افيدونا افادكم الله بالعلم الوفير