[3] - دورة الاوتوات "AutoIt" :::: اوامر + شروحات + دروس

[format]

تمام عليك بس في خطأ مطبعي

 Case "0"

تكررت مرتين :d:

اووووووه الله يقطع التسرع ذبحني ياصاحبي k: جاري التعديل ~~:king:

 

[ramay]

صباح الخير يا معلمين​

$0 = Run(@ProgramFilesDir&"\Kaspersky Lab\Kaspersky Internet Security 2011\avp.exe","",@SW_MINIMIZE)
If $0 <> 0 Then
 MsgBox(0,""," ok")
Else
 MsgBox(0,""," erroer")
Exit
EndIf

لكن هنا لماذا هذا دالة لا تشغل برامج نظام ​

$0 = Run(@SystemDir&"\gpedit.msc")
If $0 <> 0 Then
MsgBox(0,""," ok")
Else
MsgBox(0,""," erroer")
EndIf

أو هكذا ​

$0 = Run(@WindowsDir&"\regedit.exe","",@SW_MINIMIZE)
If $0 <> 0 Then
 MsgBox(0,""," ok")
Else
 MsgBox(0,""," erroer")
 EndIf

أيضا هذه لا تعمل ​

$1 = @OSServicePack
Switch $1
 Case "ServicePack"
  MsgBox(0,""," ServicePack")
 Case "ServicePack1"
  MsgBox(0,""," ServicePack1")
 Case "ServicePack2"
  MsgBox(0,""," ServicePack2")
 Case "ServicePack3"
  MsgBox(0,""," ServicePack3")
  EndSwitch

سيتم تحديث مشاركة بعد صلاة الجمعة أن شاء الله​

 

[format]

رامي عزيزي
بل انه يشتغل لابد انه نظامك ويندز 7
لابد من تشغيل السكربت على هية exe ملف تطبيقي وتشغيل كمسؤول حتى يعمل معاك السكربت بشكل جيد
وهناك اوامر في الاوتيت لم تطرح بعد وهو تخطي تشغيل كمسؤول
في ويندز سفن او فيستا
هذا وفقك الله
​

 

[ramay]

عبادي ي صاحبيّ ،
اصعب ما بالبرمجه الفكره ياخي :cr: ،
يعني اوكي تعلمت الدروس طيب ؟ < الفكره الي تبي تسويها ب الأكواد !!! < هنا مربط الفرس ،
وانا مانيب ، منزل المشاركه الا لمن القى لي فكره سنعه :hh: ،
والا ترى على درس درس Easy :y:، لكن لأبد نفصل بين كل كم درس ونحاول
نطلع ب فكره ، علشان يكون في مردود للدروس الي ناخذها ، اما لو ناخذ الدرس ونجلس نطبق
واغلب الي يطبق منننا ، يتبع تطبيقك ماغير يغير في اسماء ا اماكن الملفات !!
حيلك يعني بالدروس شوي ، خلنا نشوف لنا مشروع ، نسويه ، !
نبي الوضع يحلى شوي ، خصوصا اني تو مركب وايرلس بالبيت جديد :hh: ،


والا لا ! من معي ومن ضدي ؟ :d:

نحن معك كلام صحيح فكره هو عائق كبيرا
ومبروك على وايرالس جديد
k:​

 

[waget]

صباح الخير يا معلمين​

$0 = Run(@ProgramFilesDir&"\Kaspersky Lab\Kaspersky Internet Security 2011\avp.exe","",@SW_MINIMIZE)
If $0 <> 0 Then
 MsgBox(0,""," ok")
Else
 MsgBox(0,""," erroer")
Exit
EndIf

لكن هنا لماذا هذا دالة لا تشغل برامج نظام ​

$0 = Run(@SystemDir&"\gpedit.msc")
If $0 <> 0 Then
MsgBox(0,""," ok")
Else
MsgBox(0,""," erroer")
EndIf

أو هكذا ​

$0 = Run(@WindowsDir&"\regedit.exe","",@SW_MINIMIZE)
If $0 <> 0 Then
 MsgBox(0,""," ok")
Else
 MsgBox(0,""," erroer")
 EndIf

أيضا هذه لا تعمل ​

$1 = @OSServicePack
Switch $1
 Case "ServicePack"
  MsgBox(0,""," ServicePack")
 Case "ServicePack1"
  MsgBox(0,""," ServicePack1")
 Case "ServicePack2"
  MsgBox(0,""," ServicePack2")
 Case "ServicePack3"
  MsgBox(0,""," ServicePack3")
  EndSwitch

سيتم تحديث مشاركة بعد صلاة الجمعة أن شاء الله​

حياك الله رامي :d:

أولاً الملفات ألي صيغتها msc ليست ملفات تنفيذية ..

تشغيلها من خلال سطر الاوامر بهذي الطريقة

[B]mmc.exe [/B][B]path\[/B]filename.msc

path\filename.msc << مسار ملف msc

حنا نبي نستغلها بأمر run

$mmc = Run(@SystemDir&"\mmc.exe "&@SystemDir&"\gpedit.msc")
If $mmc<> 0 Then
MsgBox(0,""," ok")
Else
MsgBox(0,""," erroer")
EndIf

كود الريجيستري إشتغل عندي بدون مشاكل :d:..

آخر كود عندك خطا إملائي :hh: << إنتبه للمسافات :d:

في Service Pack 3والبقية نفس الوضع :

$1 = @OSServicePack
Switch $1
 Case "Service Pack"
  MsgBox(0,"","Service Pack")
 Case "Service Pack 1"
  MsgBox(0,"","Service Pack 1")
 Case "Service Pack 2"
  MsgBox(0,"","Service Pack 2")
 Case "Service Pack 3"
  MsgBox(0,"","Service Pack 3")
  EndSwitch

:d:

 

[ramay]

حياك الله رامي :d:

أولاً الملفات ألي صيغتها msc ليست ملفات تنفيذية ..

تشغيلها من خلال سطر الاوامر بهذي الطريقة

[B]mmc.exe [/B][B]path\[/B]filename.msc

path\filename.msc << مسار ملف msc

حنا نبي نستغلها بأمر run

$mmc = Run(@SystemDir&"\mmc.exe "&@SystemDir&"\gpedit.msc")
If $mmc<> 0 Then
MsgBox(0,""," ok")
Else
MsgBox(0,""," erroer")
EndIf

كود الريجيستري إشتغل عندي بدون مشاكل :d:..

آخر كود عندك خطا إملائي :hh: << إنتبه للمسافات :d:

في Service Pack 3والبقية نفس الوضع :

$1 = @OSServicePack
Switch $1
 Case "Service Pack"
  MsgBox(0,"","Service Pack")
 Case "Service Pack 1"
  MsgBox(0,"","Service Pack 1")
 Case "Service Pack 2"
  MsgBox(0,"","Service Pack 2")
 Case "Service Pack 3"
  MsgBox(0,"","Service Pack 3")
  EndSwitch

:d:

بارك الله فيك
طيب ما عمل هذا هنا يعني لماذا وضعناه
mmc.exe
أما كود ريجستري فكما قال فورمات صحيح حاولت سكربت لملف تنفيذي وشغلته كمسؤول وأستغل معي تمام

طيب الان مافرق بين شرط IF
وبين شرط Switch
ومتى نستعمل هذا
ومتى نستعمل هذا
طبعا حتى نفهم أكثر
:king:


​

 

[format]

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

انا هنا كنت اتكلم عن كود الي فيه تشغيل الرجستري
اما باقي الاكواد لم انتبه عليها :q: هذا وفقك الله ياعبد الله

 

[waget]

بارك الله فيك
طيب ما عمل هذا هنا يعني لماذا وضعناه
mmc.exe
أما كود ريجستري فكما قال فورمات صحيح حاولت سكربت لملف تنفيذي وشغلته كمسؤول وأستغل معي تمام

طيب الان مافرق بين شرط IF
وبين شرط Switch
ومتى نستعمل هذا
ومتى نستعمل هذا
طبعا حتى نفهم أكثر
:king:


​

أنا لدي xp على الوهمي وهو ألي أشتغل علية

إذا كنت أبرمج :d:...

المهم داله run تشغل فقط الملفات التنفيذية ..

طيب أنا عندي ملف txt نصي أبي أفتحه ..

هل إفتحه من خلال دالة run طبعاُ لا.. لكن في طريقةغيرمباشره أفتحه بها ..

وهي إني أشغل البرنامج ألي يفتحه - العملية ألي تشغله وهي الـnotepad.exe

جرب الان

تشغيل ملف txt ب run

run(@scriptdir & "\Test.txt")

هنا ماراح يشتغل الملف :d:

طيب حنا نعرف العملية ألي تشغل الملف وهي notepad.exe

نشوف هل العملية تقبل تشغيل الملفات ألي تفتحها من خلال سطر الاومر :?: ..

في الغالب نعم خاصه العمليات الخاصه بالنظام ...

شوف الكود هذا ..

run("notepad.exe " & @scriptdir & "\Test.txt")

هنا شغالنا notepad.exe وأرسلنا له مسار الملف ألي نريد أن نفتحه ..

وهذا الكلام ينطبق على mmc.exe هو البرنامج المسؤول عن تشغيل msc

طيب عندي ملف ماأعرف عملية البرنامج ألي يفتحه كيف أتعامل معه ؟؟ نقول في دالة في الاتوات

تقوم بهذا العمل بنأخذها قريب إن شاء الله ...

:king::king:

 

[ramay]

بارك الله فيك ياعبدالله​

$0 = RunWait(@SystemDir&"\SnippingTool.exe","",@SW_MAXIMIZE)
Run(@SystemDir&"\calc.exe")
if $0 <> 0 Then
 MsgBox(0,"","ok")
EndIf

 

[waget]

بارك الله فيك ياعبدالله​

$0 = RunWait(@SystemDir&"\SnippingTool.exe","",@SW_MAXIMIZE)
Run(@SystemDir&"\calc.exe")
if $0 <> 0 Then
 MsgBox(0,"","ok")
EndIf

:d: رامي ترى مافصلنا في القيمة الراجعه لـRunWait

لأن الدالة في حالة الفشل ترجع 0 أيضاً ..

 

[ramay]

:d: رامي ترى مافصلنا في القيمة الراجعه لـRunWait

لأن الدالة في حالة الفشل ترجع 0 أيضاً ..

طيب يا الغالي يعني قصدك في خطأ في كود وكيف أكتبه بطريقة الافضل لأن لم أرى اتوصل الى الافضل من ذلك
ننتظر توجيهك:king:​

 

[waget]

طيب يا الغالي يعني قصدك في خطأ في كود وكيف أكتبه بطريقة الافضل لأن لم أرى اتوصل الى الافضل من ذلك
ننتظر توجيهك:king:​

بما إننا لم نأخذ القيم الراجعه للدالة هذي ... وأوضحت السبب ..

في طريقتين ..

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

if FileExists(@SystemDir&"\SnippingTool.exe") then
RunWait(@SystemDir&"\SnippingTool.exe","",@SW_MAXIMIZE)
Else
    MsgBox(0,"","File Not Found")
    endif

أو إننا نستخدم الداله run + الدالةProcessWaitClose شوف الدرس هذا للأخ إبراهيم ..[

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

]

هنا كأننا إستخدمنا دلة RunWait :d:

if FileExists(@SystemDir&"\SnippingTool.exe") then
    
    $run = Run (@SystemDir&"\SnippingTool.exe","",@SW_MAXIMIZE)
        if $run <> 0 Then
             ProcessWaitClose($run) 
            MsgBox(0,"","Done")
       
            endif
Else
    MsgBox(0,"","File Not Found")
    endif

أول شيء تحققنا من وجود الملف إذا موجود كمل إذا لا أظهر رساله وأخرج..

نشغل الملف ونتأكد إنه إشتغل بالشرط تعرف دالة run ترجع pid للعملية ..

أي عدد لايساوي الصفر إذا كان العدد لايساوي الصفر.. يعني تحقق الشرط ..

ننتقل لدالة ProcessWaitClose وهي توقف السيكريبت حتى تنتهي العملية :d:

أرسنلنا لها القيمة الراجعه لrun ليش ؟؟ لأن الدالة ProcessWaitClose

تقبل إننا نرسل إسم العملية أو رقم الpid ألي هو القيمة الراجعه لrun في هذي الحالة

:king::king::king:

 

[himoScript]

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

عبد الله <<< ان لن خسر امامك ههههههههههههههه

هذه تطبيقاتى على مافتنى

27 - معلومات إضافية حول القيم الراجعه للدوال
28 - التعديل على خصائص الملفات والمجلدات FileGetAttrib - FileSetAttrib

if FileGetAttrib ("c:\boot.ini") then
    $attrib = FileGetAttrib ("c:\boot.ini")
    $instr = StringInStr($attrib,"h")
    if $instr <> 0 Then
        msgbox(0,"خطأ","الملف مخفى")
        else
    msgbox(0,"خطأ","الملف ظاهر")
    endif
endif

26 - مربع الادخال
InputBox

$input = InputBox ("hello","ماهو اسمك ؟","قم بأدخال الاسم هنا")
if $input <> "" and "قم بأدخال الاسم هنا" then
msgbox(0,'اسمك',  " منورنا ياااحج  " & $input )
Else
    msgbox(0,"error","لم تدخل اى شئ ")
    endif

_ الدرس التاسع والعشرين :

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

/FileInstall
_ الدرس الثلاثون :

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

_ الدرس الحادي والثلاثين :

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

RunWait \Run

واقف هنا
بس اذكر نفسى هههههههههههه

تحياتى للجميع

​

 

[himoScript]

تمرين على العباره switch مع دمج داله filedelete واستخدام if ايضا

switch msgbox(4+524288,"سؤال","هل تريد حزف الملف"&@crlf& @DesktopDir&"\x.txt")
    case 6
    if FileDelete(@DesktopDir&"\x.txt") then
        msgbox(0,"حزف ملف","تم حزف الملف")
    Else
        msgbox(0+16,"خطأ","لم يتم حزف الملف")
        endif
    Case 7
        msgbox(0+524288+48,"اختيارك","انت اخترت عدم حزف الملف")
    Exit
    EndSwitch

تحياتى

​

 

[waget]

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

عبد الله <<< ان لن خسر امامك ههههههههههههههه

هذه تطبيقاتى على مافتنى

27 - معلومات إضافية حول القيم الراجعه للدوال
28 - التعديل على خصائص الملفات والمجلدات FileGetAttrib - FileSetAttrib

if FileGetAttrib ("c:\boot.ini") then
    $attrib = FileGetAttrib ("c:\boot.ini")
    $instr = StringInStr($attrib,"h")
    if $instr <> 0 Then
        msgbox(0,"خطأ","الملف مخفى")
        else
    msgbox(0,"خطأ","الملف ظاهر")
    endif
endif

​

إيش الفايدة من إستخدام FileGetAttrib

في أول التطبيق ؟؟ أليس من الافضل إستخدام FileExists
أو إستخدام @OSVersion

والتحقق من قيمته :d:

26 - مربع الادخال
InputBox

$input = InputBox ("hello","ماهو اسمك ؟","قم بأدخال الاسم هنا")
if $input <> "" and "himos" then
msgbox(0,'اسمك',  " منورنا ياااحج  " & $input )
Else
    msgbox(0,"error","لم تدخل اى شئ ")
    endif

_ الدرس التاسع والعشرين :

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

/FileInstall
_ الدرس الثلاثون :

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

_ الدرس الحادي والثلاثين :

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

RunWait \Run

واقف هنا
بس اذكر نفسى هههههههههههه

تحياتى للجميع

إيش رأيك في الصورة هذي :d:

:king::king:

 

[ramay]

كود شغال ماعدا ريجستري يقول أنه لم يتم أيجاد مساره لأن نظامي ويندوز7​

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

if FileExists(@SystemDir&"\mspaint.exe") Then
 $ramay = Run(@SystemDir&"\mspaint.exe","",@SW_MINIMIZE)
 if $ramay <> 0 Then
 ProcessWaitClose($ramay)
 MsgBox(0,""," تم الاغلاق الاداة قص")
Else
 MsgBox(0,"","  لم يتم أيجاد الاداة قص")
Exit
EndIf
If FileExists(@SystemDir&"\calc.exe") Then
$ramay1 = Run(@SystemDir&"\calc.exe","",@SW_MAXIMIZE)
If $ramay1 <> 0 Then
 ProcessWaitClose($ramay1)
 MsgBox(0,"","تم الاغلاق الة حاسبه")
 Else
  MsgBox(0,""," لم يتم أيجاد الة حاسبه في مساره")
Exit
 EndIf
If FileExists(@WindowsDir&"\REGEDIT.EXE") Then
 $ramay2 = Run(@WindowsDir&"\REGEDIT.EXE","",@SW_MAXIMIZE)
 IF $ramay2 <> 0  Then
 ProcessWaitClose($ramay2)
 MsgBox(0,"","تم الاغلاق ريجستري")
Else
 MsgBox(0,""," لم يتم أيجاد ريجستري في مساره")
EndIf
EndIf
EndIf
EndIf

 

[himoScript]

تسلم عبد الله

إيش الفايدة من إستخدام FileGetAttrib

في أول التطبيق ؟؟ أليس من الافضل إستخدام FileExists
أو إستخدام @OSVersion

والتحقق من قيمته :d:


إيش رأيك في الصورة هذي :d:

:king::king:

يادى الفضايح
لو ابن خالتى شافنى هنا مارح يثق بى بعد اليوم


اول شئ
انا أفتردت وجود الملف
boot.ini
لأنه مثال لا اكثر
يبقى لاداعى ل
FileExists
اهم شئ طبقت على ال
switch
دى مافيها شئ < غلطان ويجادل بردوا :q:

ولكن الافضل فعلا
fileexists
:d:


والشئ ال حاصرنى اكثر
:er::er::er::er::er::er:
انى حاط اسمى
himos
وكان المفروض احط
قم بأدخال الاسم هنا حتى لايحدث الخطا
اتسرعت فكانت النتيجه
ان الاخ عبد الله
فاضحنى كذا وحاط صوره
:cr:
مااعديها لك :er:
ماشى
فى اول هفوه راح اصورلك
:d::d::d::d::d:





​

 

[himoScript]

كود شغال ماعدا ريجستري يقول أنه لم يتم أيجاد مساره لأن نظامي ويندوز7​

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

if fileexists(@systemdir&"\mspaint.exe") then
 $ramay = run(@systemdir&"\mspaint.exe","",@sw_minimize)
 if $ramay <> 0 then
 processwaitclose($ramay)
 msgbox(0,""," تم تشغيل الاداة قص")
else
 msgbox(0,"","  لم يتم أيجاد الاداة قص")
exit
endif
if fileexists(@systemdir&"\calc.exe") then
$ramay1 = run(@systemdir&"\calc.exe","",@sw_maximize)
if $ramay1 <> 0 then
 processwaitclose($ramay1)
 msgbox(0,"","تم تشغيل الة حاسبة")
 else
  msgbox(0,""," لم يتم أيجاد الة حاسبه في مساره")
exit
 endif
if fileexists(@windowsdir&"\regedit.exe") then
 $ramay2 = run(@windowsdir&"\regedit.exe","",@sw_maximize)
 if $ramay2 <> 0  then
 processwaitclose($ramay2)
 msgbox(0,"","تم تشغيل ريجستري")
else
 msgbox(0,""," لم يتم أيجاد ريجستري في مساره")
endif
endif
endif
endif

بدل تم تشغي هذه

رساله تفيد بأنه تم اغلاق

لأنك بالفعل شغلت البرنامج فتضع تم اغلاق فى رسااله

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

 

[format]

:hh:
1- رامي تلوين في المنتدى نفسه عن طريق الكود php

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

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

====================================
2- بنسبه الى himos احلى مثال واحلى تقييم يامنورنا ياحج
:d:
​

 

[himoScript]

format

كيفك اخى ان شاء الله تمام واحشنى تشجيعك :

واعتبر نفسك ماشفت صوره عبد الله :d: