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

[format]

$hatem = FileInstall("hatem.exe",@TempDir&"hatem.exe",1)
if $hatem =1 Then
    MsgBox(64,"", "yes")
Else
    MsgBox(16,"", "X")
    EndIf

 

[ramay]

الكود يقوم باخفاء الملفات اذا لم تكن مخفيه .. والعكس ​

غريبه اذا ماشتغل عندك !! وش نوع الويندوز ؟؟​

وبالنسبه للمسافه مالها تاثير :b:​

وبالنسبه للخبطه عندك .. راح اناقشك فيها اذا قمت من النوم :i:​

تصبح على خير ​

كود يقوم با خفاء ملفات لكن ماذا قصدك في عكس هل أن كانت مخفيه يقوم في أظهاره:?:

 

[LINEZERO]

كود يقوم با خفاء ملفات لكن ماذا قصدك في عكس هل أن كانت مخفيه يقوم في أظهاره:?:

بالضبط ..
​

 

[waget]

بارك الله فيكم يا غوالي
طبعا جابة تعليقات قبل تطبيقات:hh:

$1 = FileGetAttrib(@DesktopDir&"\12.TXT")
$2 = StringInStr($1,"h")
If $2 <> 0 Then
 MsgBox(0,""," ملف مخفي ")
Else
MsgBox(0,"","ملف ظهار")
Exit
EndIf
$3 = MsgBox(4,""," هل تريد أظهاره")
 If $3 =6 Then
  FileSetAttrib($1,"-H") ;   طبعا هذه طرييقة لا تظهر ملف لأن لا يمكن للمتغير أن يحمل أكثر من قيمة  هل هذا صحيح 
Else
 MsgBox(0,""," bay")
EndIf

وهذا أيضا​

 $1 = FileGetAttrib(@DesktopDir&"\Generator")
$2 = StringInStr($1,"h")
If $2 <> 0 Then
 MsgBox(0,""," ملف مخفي ")
Else
MsgBox(0,"","ملف ظهار")
Exit
EndIf
$3 = MsgBox(4,""," هل تريد أظهاره")
 If $3 =6 Then
  FileGetAttrib(@DesktopDir&"\Generator","-H",1)
Else
 MsgBox(0,""," bay")
EndIf

راجع الدالة FileSetAttrib

ليش أرسلت القيمة الراجعه للدالة FileGetAttrib

إلى FileSetAttrib

وإيش الفرق بين FileSetAttrib

و StringInStr

إقرأ الدرس مره أخرى ... :d:

 

[waget]

$hatem = FileInstall("hatem.exe",@TempDir&"hatem.exe",1)
if $hatem =1 Then
    MsgBox(64,"", "yes")
Else
    MsgBox(16,"", "X")
    EndIf

:d: 10/10

بس وين تطبيق attrib

في إنتظار التطبيق ...

:king:

 

[موريادي]

الكود يقوم باخفاء الملفات اذا لم تكن مخفيه .. والعكس ​

غريبه اذا ماشتغل عندك !! وش نوع الويندوز ؟؟​

وبالنسبه للمسافه مالها تاثير :b:​

وبالنسبه للخبطه عندك .. راح اناقشك فيها اذا قمت من النوم :i:​

تصبح على خير ​

تمام ياغالي فهمنا وظيفته .. والنظام 7 انجليزي

ونبي اشوف مالحظاتك عل في الاتوات من خلال الكود ...

خخخ توني صاحي من النوم ...

 

[Corporation]

تراني متابع اول ب اول ، والتطبيقات كلها راح اجمعها ، ب تطبيق واحد اختصاراً للمشاركات ،
( حبة على راسك عبوديّ )

:b:
​

 

[ramay]

راجع الدالة FileSetAttrib

ليش أرسلت القيمة الراجعه للدالة FileGetAttrib

إلى FileSetAttrib

وإيش الفرق بين FileSetAttrib

و StringInStr

إقرأ الدرس مره أخرى ... :d:

قرات الدرس أكثر من مره
لكن ما غلط في كود لم أعرف
أما عن فرق بين الدالة
في الدالة StringInStr
نتأكد فيه هل ملف مخفي
الدالة FileSetAttrib
نغيره فيه خصائص ملف من ظهار الى مخفي وعكس

 

[waget]

قرات الدرس أكثر من مره
لكن ما غلط في كود لم أعرف
أما عن فرق بين الدالة
في الدالة StringInStr
نتأكد فيه هل ملف أو مخفي
الدالة FileSetAttrib
نغيره فيه خصائص ملف من ظهار الى مخفي وعكس

أولاً الدالة StringInStr تتعامل مع النصوص بشكل عام ...

أنا قلت في الشرح فرضاً إننا نريد أن نتأكد هل الملف مخفي

نقدر نتأكد من خلالها هل الملف للقرأة أو ملف نظام إلخ

الدالة تبحث في أي نص

صيغة الدالة :

     StringInStr ( "string", "substring")

string : النص ألي راح نبحث فية ..

substring : النص الي نبحث عنه ..

شوف هنا أنا قلت في string النص ألي نبحث فية وليس القيمة الراجعه لfilegetattrib فقط

إستخدمنا هذ الدالة لأن القيمة الراجعه للدالة filegetattrib نص

وأيضاً قلت substring : النص الذي نبحث عنه - وليس هل الملف مخفي ؟؟
نحن هنا وضفنا الدالة في الكود لكي نبحث عن حرف H في القيمة الراجعه النصية للدالة filegetattrib


شوف هذا المثال :

$Text = "موريادي - himoScript - ramay - Corporation - (مجرد انسان) - format - waget - Bo.SaQeR - Expertise - Sel"
$str = StringInStr($Text,"ramay")
if $str <> 0 then
    MsgBox(0,"","مشترك بالدورة ramay")
Else
    MsgBox(0,"","غيرمشترك بالدورة ramay")
    endif

هذا نص أبحث فيه عن إسمك بين مشتركي الدورة :king:..

وهذا مثال للتأكد من ملف هل هو للقراءة فقط ...

$path = @scriptdir & "\Test.txt"
$get = filegetattrib($path)
$str =  StringInStr($get,"R")
if $str <> 0 Then
    MsgBox(0,"","الملف للقرأه فقط")
    endif

وهذا مثال للتأكد من ملف هل هو ملف نظام...

$path = @scriptdir & "\Test.txt"
$get = filegetattrib($path)
$str =  StringInStr($get,"S")
if $str <> 0 Then
    MsgBox(0,"","ملف نظام")
    endif

الخطا في دالة filesetAtrrib

إنك أرسلت القيمة الراجعة للدالة filegetattrib

المفترض ترسل مسار الملف

وهذا موجود في الشرح :d:

الصيغة العامة للدالة :

 [B]FileSetAttrib ( [COLOR=Red][U]"file pattern"[/U][/COLOR], "+-RASHNOT" [, recurse] )[/B]

file pattern : مسار الملف أو المجلد أو عدة ملفات لأن هذه الدالة تقبل إستخدام

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

:king::king:

 

[ramay]

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

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

$0 = @DesktopDir&"\Generator"
$1 = FileGetAttrib($0)
$2 = StringInStr($1,"h")
If $2 <> 0 Then
 MsgBox(0,""," ملف مخفي ")
Else
MsgBox(0,"","ملف ظهار")
Exit
EndIf
$3 = MsgBox(4,""," هل تريد أظهاره")
 If $3 =6 Then
  FileSetAttrib($0,"-H",1) 
Else
 MsgBox(0,""," bay")
EndIf

 

[waget]

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

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

$0 = @DesktopDir&"\Generator"
$1 = FileGetAttrib($0)
$2 = StringInStr($1,"h")
If $2 <> 0 Then
 MsgBox(0,""," ملف مخفي ")
Else
MsgBox(0,"","ملف ظهار")
Exit
EndIf
$3 = MsgBox(4,""," هل تريد أظهاره")
 If $3 =6 Then
  FileSetAttrib($0,"-H",1) 
Else
 MsgBox(0,""," bay")
EndIf

:b: آمين أخوي

تطبيقك تمام ..

بس في ملاحظه بسيطة..

بالنسبة ل Generator إذا تقصد به مجلد فتطبيقك بيكون صحيح أما إذا كان ملف ياليت تضيف له الصيغة..
:d:

 

[waget]

تراني متابع اول ب اول ، والتطبيقات كلها راح اجمعها ، ب تطبيق واحد اختصاراً للمشاركات ،
( حبة على راسك عبوديّ )

:b:
​

:b: الله يوفقك أخوي..

في إنتظار التطبيقات :d:

 

[ramay]

:b: آمين أخوي

تطبيقك تمام ..

بس في ملاحظه بسيطة..

بالنسبة ل Generator إذا تقصد به مجلد فتطبيقك بيكون صحيح أما إذا كان ملف ياليت تضيف له الصيغة..
:d:

مجلد يا الغالي

 

[format]

:d: 10/10

بس وين تطبيق attrib

في إنتظار التطبيق ...

:king:

يالغالي لدي سؤال في الدرس
هل من الممكن اخد ملف فولدر "مجلد" كامل
بدل hatem.exe
سؤال اخر اش هادا :q::?:
attrib

 

[waget]

يالغالي لدي سؤال في الدرس
هل من الممكن اخد ملف فولدر "مجلد" كامل
بدل hatem.exe
سؤال اخر اش هادا :q::?:
attrib

fileinstall للأسف ماتتعامل مع المجلدات ..

بالنسبة لattrib :d:

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

:d::d:

 

[ramay]

صباح الخير على أستاذة الدورة

$1 = FileInstall("C:\RAMAY.EXE",@TempDir&"RAMAY.EXE",1)
If $1 = 1 Then
 MsgBox(0,""," نجح أستخرج ملف ")
Else
 MsgBox(16,""," فشلت في أستخراج")
 EndIf

أستفسار عن هذه الدالة
StringInStr
هل ممكن ابحث فيه عن اي شيئ في ويندوز ونظام
مثال

$1 = @SystemDir&"\
$2 = StringInStr($1,"TXT")
If $2 = <> 0 Then
 MsgBox(0,""," DONT")
Else
 MsgBox(0,""," ERROR")
EndIf

 

[waget]

صباح الخير على أستاذة الدورة

$1 = FileInstall("C:\RAMAY.EXE",@TempDir&"RAMAY.EXE",1)
If $1 = 1 Then
 MsgBox(0,""," نجح أستخرج ملف ")
Else
 MsgBox(16,""," فشلت في أستخراج")
 EndIf

أستفسار عن هذه الدالة
StringInStr
هل ممكن ابحث فيه عن اي شيئ في ويندوز ونظام
مثال

$1 = @SystemDir&"\
$2 = StringInStr($1,"TXT")
If $2 = <> 0 Then
 MsgBox(0,""," DONT")
Else
 MsgBox(0,""," ERROR")
EndIf

حياك أخي ..

أولاُ في خطأ مطبعي أعتقد في كتابة المسار :d:

$1 = @SystemDir&"\[COLOR=Red]"[/COLOR]

ثانياُ الدالة تتعامل مع قيم نصية محفوظة بمتغير - قيمة راجعه لدالة ..

ولا تتعامل مع الملفات في دوال خاصه لهذا الشيء

إن شاء الله نأخذها إذا وصلنا للloop الحلقات :d:

 

[format]

fileinstall للأسف ماتتعامل مع المجلدات ..

بالنسبة لattrib :d:

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

:d::d:

الدرس
صعب

 

[waget]

الدرس
صعب

:d: صعب ولا طويل ...؟؟

عموماُ إذا هذا صعب أجل البقية إيش :hh:

إذا في جزئية مو فاهمها هاتها لأفصل فيها ..

أما بس صعب << مومقنعه بالمره

:king:

 

[LINEZERO]

اذا ماجتك نفسيه :er:
و لادمعت عيونك قدام الشاشه :er:

صدقني ماراح تكون مبدع :i: