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

[HaMuDi]

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

إزيك ياعم الحاج :d: يقولون فااضي وماعندك شي :hh:

خذلك لفه على أومر _ExcelBookNew وشف يمكن تجي معاك :bleh:​

 

[فدى الرسول]

وعليكم السلام ,,
الكود رائع ,,
ولكن بما إنك تريد ملاحظات ,, رح حاول أن تجعله أكثر من رائع ,
1) ماذا لو لم يضع المستخدم شيء :d:
2) ماذا لو وضع المستخدام \: زيادة ,, :d:
3) يفضل أن تجعله يعيد الطلب حتى يدخل المستخدم شيء أو يضغط على كانسل
بإنتظار تعديلاتك الرائعة k:

السلام عليكم
حياك الله
والله ها النقطه ماغابت عنى ولكن كما تعلم {وَمَا مِنَّا إِلَّا لَهُ مَقَامٌ مَّعْلُومٌ }:i:
انا اعلم انها من if

ولكن حاولت كثير ولم تضبط نحتاج من استاذنا مفتاح نبداء به او مثال ينير لنا فى الانتظار

الكلام اخذنا ونسيت اقولك حاجه مهمه جداااااااااااااااا

مدرس الكيمياء بيسلم عليك :hh::bleh:

 

[Future Tank X-1]

السلام عليكم

حياك الله

والله ها النقطه ماغابت عنى ولكن كما تعلم {وَمَا مِنَّا إِلَّا لَهُ مَقَامٌ مَّعْلُومٌ }:i:
انا اعلم انها من if​

ولكن حاولت كثير ولم تضبط نحتاج من استاذنا مفتاح نبداء به او مثال ينير لنا فى الانتظار​

الكلام اخذنا ونسيت اقولك حاجه مهمه جداااااااااااااااا​

مدرس الكيمياء بيسلم عليك :hh::bleh:​

الكود بتلقاه تحت بس انتبه للجزء الي فوق k:

فوق هذي

==================================
​

 

[Future Tank X-1]

[LEFT]$TryCount = InputBox("المحاولات", "كم عدد المحاولات التي تريد ان تقوم بها لاغلاق العمليه وحذف الملف ؟", "5")
[LEFT]If $TryCount = "" Then
MsgBox (48, "" , "سيتم الخروج الان" , 5 )
Exit
EndIf
$Process  = InputBox("العمليه", "ادخل اسم العمليه مع الصيغه")
If $Process = "" Then
MsgBox (48, "" , "سيتم الخروج الان" , 5 )
Exit
EndIf
$File     = InputBox("الملف", "أدخل مسار الملف المراد حذفه كاملاً")
If $File = "" Then
MsgBox (48, "" , "سيتم الخروج الان" , 5 )
Exit
EndIf
;==================================
For $x = 1 To $TryCount
   ProcessClose ($Process)
   Sleep (1000)
   If Not ProcessExists ($Process) Then ExitLoop
Next
For $x = 1 To $TryCount
   FileDelete ($File)
   Sleep (1000)
   If Not FileExists ($File) Then ExitLoop
Next
If  FileExists ($File) Then 
   Msgbox (39,"","فشلت العملية")
Else
   Msgbox (0,"","تم بنجاح")
EndIf[/LEFT]

[/LEFT]

 

[ashalshaikh]

مدرس الكيمياء يسلم عليك :d: :d:

يومين إن شاءالله وأكمل الدروس معكم أخواني ,,
والمعذره على التقصير حالياً ,, ظرووف تحكمني
​

:er:
تم إضافة مدرس التاريخ مع مدرس الكيمياء في القائمة السوداء
ما عليك ,,

مدرس الكيمياء بيسلم عليك :hh::bleh:

:er::cr:

ما قصر أخي Future Tank X-1
k:

 

[Future Tank X-1]

:er:
تم إضافة مدرس التاريخ مع مدرس الكيمياء في القائمة السوداء
ما عليك ,,

:er::cr:

ما قصر أخي Future Tank X-1
k:

عاد جيت ابسويلك شيء تصوير هديه لمدرس الكيمياء :d:
بس ما نفع الوضع :hh:​

 

[Future Tank X-1]

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

إزيك ياعم الحاج :d: يقولون فااضي وماعندك شي :hh:


خذلك لفه على أومر_ExcelBookNew وشف يمكن تجي معاك :bleh:
​

اولا : لا تسوي نسخ ولصق للاسم كذا ما راح تتعلم :hh::hh:

ثانيا ما لقيت الا اكسل ما قد استخدمته في حياتي ولا ادري وش الفايده منه حتى :hh::hh:​

 

[ashalshaikh]

عاد جيت ابسويلك شيء تصوير هديه لمدرس الكيمياء :d:
بس ما نفع الوضع :hh:​

:d::hh::hh::d:

اولا : لا تسوي نسخ ولصق للاسم كذا ما راح تتعلم :hh::hh:

ثانيا ما لقيت الا اكسل ما قد استخدمته في حياتي ولا ادري وش الفايده منه حتى :hh::hh:[/CENTER]

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

 

[ashalshaikh]

أظن والله أعلم إن الأمر له علاقة بالإكسل !! << جبت علم :d:
اللي فهمته إنه مرتبط بغيره من الأوامر ,,
يعني هو تكملة لأوامر غيره ,,
للفائدة تابع كافة الأوامر في القسم ,, يعني تابع أوامر الإكسل كلها !! :d:
تحياتي

 

[ashalshaikh]

حرر :d:

 

[zoro779]

​

اذا كنت تقصد هكذا >>

​

فقد استعملت برنامج (7zip) و ملف (7zs.sfx) بعد تعديله بـ ( resource hacker )​

واستعملت ملف ( bat ) بأمر ( copy /b 7zs.sfx + c silent.exe c silent 2.exe )​

اذا كان هذا مقصدك اعطيتك الادوات k:​

^^
هذي الطريه تستعمل في التنصيب الصامت​

لكن انا استغليتها في هذا العمل :q:​

نعم اخى الفاضل هذا مقصدى

 

[Future Tank X-1]

نعم اخى الفاضل هذا مقصدى

تبغى الادوات والملفات :u:​

 

[zoro779]

اعطنى ملف الBAT فقط وملف 7zs.sfx مع توضيح بسيط للطريقة وباقى الادوات عندى

 

[Future Tank X-1]

اعطنى ملف الBAT فقط وملف 7zs.sfx مع توضيح بسيط للطريقة وباقى الادوات عندى

بالنسبه للشرح

للتعديل على ملف 7zs.sfx

( منقول )

ملف Bat

لكن الامر الصحيح لحالتك

copy /b 7zs.sfx + C silent.exe C silent 2.exe

اذا محتاج توضيح اكثر قلي >> لكن بيطول لاني توني مفرمت

​

 

[Future Tank X-1]

^^

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

 

[فدى الرسول]

[LEFT]$TryCount = InputBox("المحاولات", "كم عدد المحاولات التي تريد ان تقوم بها لاغلاق العمليه وحذف الملف ؟", "5")
[LEFT]If $TryCount = "" Then
MsgBox (48, "" , "سيتم الخروج الان" , 5 )
Exit
EndIf
$Process  = InputBox("العمليه", "ادخل اسم العمليه مع الصيغه")
If $Process = "" Then
MsgBox (48, "" , "سيتم الخروج الان" , 5 )
Exit
EndIf
$File     = InputBox("الملف", "أدخل مسار الملف المراد حذفه كاملاً")
If $File = "" Then
MsgBox (48, "" , "سيتم الخروج الان" , 5 )
Exit
EndIf
;==================================
For $x = 1 To $TryCount
   ProcessClose ($Process)
   Sleep (1000)
   If Not ProcessExists ($Process) Then ExitLoop
Next
For $x = 1 To $TryCount
   FileDelete ($File)
   Sleep (1000)
   If Not FileExists ($File) Then ExitLoop
Next
If  FileExists ($File) Then 
   Msgbox (39,"","فشلت العملية")
Else
   Msgbox (0,"","تم بنجاح")
EndIf[/LEFT]

[/LEFT]

جزاك الله خير
لكن اعتقد ان هذا مقتصر فقط على الاحتمالات اللى اكتبها له :?: بصراحه الكود مش فاهمه خاااااااااااالص:no:
نتوقع تفصيل فى هالنقطة:y:

 

[فدى الرسول]

السلام عليكم
والله ياشيخ هذا اخر ما توصلت اليه

$Input = InputBox("محمد حسنى" , "أدخل البارتيشن المراد معرفة نظامةمثال"&@CRLF&"C,D,F,G,H,L,M,N,O"&@CRLF&"لا تكتب سوى حرف واحد ولاتقوم بوضع نقاط "&@CRLF&"اوشرط مع الحرف")
if $input= 7 Then
	Exit
$x = DriveGetFileSystem( $Input& ":\" )
MsgBox(4096 , "برمجة محمد حسنى" ,"نوع البارتيشن"&@CRLF & $x )
EndIf

 

[ashalshaikh]

أبشركم شباب ,,
اليوم فتشت شوي في الفيزياء وقعدت أذاكر المغناطيسية والكهرباء ,, وأشياء تغم النفس :cr:
وأنا هائم في الفولت و الكولوم :er: خطرت في بالي فكرة جهنمية :d: لحل مشكلة KeyWord الصغيرة ,, k:
تقريبا الآن نفذت 90% بالمية منها k:
أخيرا عرفت فايدة الإختبارات :d:
شباب دعواتكم ,,
عندي أدب + فيزياء ,,
ما أدري كيف تجي في يوم واحد :no::er: شنسوي الإدارة ظالمة :q:

 

[ashalshaikh]

السلام عليكم
والله ياشيخ هذا اخر ما توصلت اليه

$Input = InputBox("محمد حسنى" , "أدخل البارتيشن المراد معرفة نظامةمثال"&@CRLF&"C,D,F,G,H,L,M,N,O"&@CRLF&"لا تكتب سوى حرف واحد ولاتقوم بوضع نقاط "&@CRLF&"اوشرط مع الحرف")
if $input= 7 Then
    Exit
$x = DriveGetFileSystem( $Input& ":\" )
MsgBox(4096 , "برمجة محمد حسنى" ,"نوع البارتيشن"&@CRLF & $x )
EndIf

ببساطة ياغالي عندما لا يضع المستخدم شيء أو يضغط على كانسل,,
يرجع الأمر في المتغير بفاضي ,, يعني "" :d:
اشترط أن يكون ليس "" وإلا فالخروج ,,
ماأريد أخرب عليك الحماسة وأحط لك السكربت جاهز ,, أنا لما أتعلم شيء جديد ,تتملكني الحمااااااااسة ,, :y:k:
---------------------------------------------------------------------------------------
على فكرة شباب
على فكرة ,, الكلمات (هائم , تتملكني ) ونحوها ,, في هذي المشاركة واللي قبلها ,,, تدريب على الأدب :d:
لا تنسوني من الدعاء ,,

 

[ashalshaikh]

وهذا مصداق كلامي حول الـ KeyWord !!
نفس كود الـمتطفلين ,, ولكنه لون بواسطة الأداة !!
ملاحظة ::: لم يتم التدخل ولا في نص حرف ,, الأمر نسخ ولصق من الأداة للمشاركة !!

[color=#669900]#cs ----------------------------------------------------------------------------[/COLOR]
[color=#669900][/COLOR]
[color=#669900] AutoIt Version: 3.3.0.0[/COLOR]
[color=#669900] Author:         Ashalshaikh[/COLOR]
[color=#669900][/COLOR]
[color=#669900] Script Function:[/COLOR]
[color=#669900]    ملف ضد المتطفيلن [/COLOR]
[color=#669900]    للخروج إضغط زر الهروب[/COLOR]
[color=#669900]    ESC[/COLOR]
[color=#669900]#ce ----------------------------------------------------------------------------[/COLOR]

#NotrayIcon [color=#009933]; اخفاء أيقونة الساعة[/COLOR]

[color=#f000ff]#Include[/COLOR][color=#9999cc] <ScreenCapture.au3> [/COLOR][color=#009933]; استيراد مكتبة التصوير[/COLOR]
[color=#f000ff]#Include[/COLOR][color=#9999cc] <Misc.au3>          [/COLOR][color=#009933];استرياد مكتبة [/COLOR]

[color=#000090]filedelete[/color] [color=#ff0000]([/color][color=#ff33ff]@windowsdir[/color] [color=#ff0000]&[/color] [color=#9999cc]"\Scrash.jpg"[/COLOR][color=#ff0000])[/color]                [color=#009933];حذف الصورة السابقة قبل تصوير أخرى[/COLOR]
_ScreenCapture_Capture [color=#ff0000]([/color][color=#ff33ff]@windowsdir[/color] [color=#ff0000]&[/color] [color=#9999cc]"\Scrash.jpg"[/COLOR][color=#ff0000])[/color]    [color=#009933];تصوير الشاشة[/COLOR]
[color=#000090]processclose[/color] [color=#ff0000]([/color][color=#9999cc]"Explorer.exe"[/COLOR][color=#ff0000])[/color]                           [color=#009933];إطفاء الإكسبلورر ,, يعني شريط إبدأ[/COLOR]
[color=#000090]splashimageon[/color] [color=#ff0000]([/color][color=#9999cc]""[/COLOR][color=#ff0000],[/color][color=#ff33ff]@windowsdir[/color] [color=#ff0000]&[/color] [color=#9999cc]"\Scrash.jpg"[/COLOR][color=#ff0000],[/color][color=#ff33ff]@desktopwidth[/color][color=#ff0000],[/color][color=#ff33ff]@desktopheight[/color][color=#ff0000],[/color][color=#9999cc]""[/COLOR][color=#ff0000],[/color][color=#9999cc]""[/COLOR][color=#ff0000],[/color][color=#ac00a9]3[/color][color=#ff0000])[/color] [color=#009933];عمل سبلاش بطول وعرض الشاشة بدون عنوان وفوق الجميع[/COLOR]
[color=#0000ff]Do[/color]                                                      [color=#009933];بداية حلقة[/COLOR]
    [color=#000090]processclose[/color] [color=#ff0000]([/color][color=#9999cc]"Explorer.exe"[/COLOR][color=#ff0000])[/color]                       [color=#009933];إقفال الإكسبلورر في الحلقة  لأنه يشتغل لوحده[/COLOR]
[color=#0000ff]Until[/color] [color=#0080ff]_ispressed[/color] [color=#ff0000]([/color][color=#9999cc]"1B"[/COLOR][color=#ff0000])[/color]                                 [color=#009933];شرط الخروج هو زر الهروب [/COLOR]
[color=#000090]splashoff[/color] [color=#ff0000]([/color][color=#ff0000])[/color]                                            [color=#009933];إقفال السبلاش[/COLOR]
[color=#000090]run[/color] [color=#ff0000]([/color][color=#9999cc]"Explorer.exe"[/COLOR][color=#ff0000])[/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=#9999cc]"Ashalshaikh تحياتي "[/COLOR][color=#ff0000])[/color] [color=#009933][/COLOR]
[color=#0000ff]Exit[/color]                                                    [color=#009933];خروج[/COLOR]

حاليا
أعمل على AutoItX\Com وستنتهي قريبا جدا جدا !!