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

[ramay]

:hh: هذي مالها داعي ...

or / تعني أو تستخدمها إذا كان عندك حالتين مختلفه -شرطين مختلفة - وتبي السيكريبت ينفذ نفس العملية

إذا تحققت وحده منهم ..:d:

أنا قلت لك سابقاً لو أرسلت قيمة للوسيط default ..

راح تظهر في مربع الرسالة تلقائي فلو -المستخدم لم يدخل شيء - وإختار ok راح .. تكون القيمة

الراجعه هي قيمة default ..

إقرأ مشاركتي السابقة زين وشوف المثال وشغله


إنت الان حاط نفس الشرط .. مرتين ؟؟
:d:



نعم تقدر أضيف في flag
الرقم /524288
شوف الكودهذا وجربة

$input = inputbox("","أدخل إسمك","...هنا")
if $input = "" or $input = "...هنا" Then
    MsgBox(0+524288,"","لم تدخل شيء")
Else
    MsgBox(0+524288,"",$input & ":إسمك هو")
    endif

بارك الله فيك على توضيح
بنسبة الرقم 524288
لم يحل شيئ
تبقى تظهر في عكس

أنظر

 

[format]

$format = inputbox("","أدخل إسمك","اكتب اسمك هنا")
if $format = "" or $format = "اكتب اسمك هنا" Then
    MsgBox(64,"","لم تدخل اسمك")
Else
    MsgBox(0,"",$format & ":إسمك هو")
    endif

 

[waget]

بارك الله فيك على توضيح
بنسبة الرقم 524288
لم يحل شيئ
تبقى تظهر في عكس

أنظر

صحيح كلامك :d: اللغة العربية مشكلة ..

جرب وضع المتغير في الاول ... كذا ..

$input = inputbox("","أدخل إسمك","...هنا")
if $input = "" or $input = "...هنا" Then
    MsgBox(0+524288,"","لم تدخل شيء")
Else
    MsgBox(0+524288,"", "إسمك هو : "& $input  )
    endif

 

[waget]

$format = inputbox("","أدخل إسمك","اكتب اسمك هنا")
if $format = "" or $format = "اكتب اسمك هنا" Then
    MsgBox(64,"","لم تدخل اسمك")
Else
    MsgBox(0,"",$format & ":إسمك هو")
    endif

k:

 

[ramay]

صحيح كلامك :d: اللغة العربية مشكلة ..

جرب وضع المتغير في الاول ... كذا ..

$input = inputbox("","أدخل إسمك","...هنا")
if $input = "" or $input = "...هنا" Then
    MsgBox(0+524288,"","لم تدخل شيء")
Else
    MsgBox(0+524288,"", "إسمك هو : "& $input  )
    endif

k:k:k:

 

[waget]

التعديل على خصائص الملفات والمجلدات.. FileGetAttrib /FileSetAttrib

التعديل على خصائص الملفات والمجلدات.. FileGetAttrib /FileSetAttrib



نبدأ مع دالة ..FileGetAttrib

هذي الدالة ترجع برمز يمثل سمة أو خاصية الملف ..

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

[COLOR=Navy][I]FileGetAttrib [/I][/COLOR][COLOR=Red]([/COLOR] [COLOR=Silver]"filename"[/COLOR][COLOR=Red] )[/COLOR]

filename : هنا نضع مسار الملف أو المجلد ..

القيم الراجعه للدالة :

الدالة ترجع أكثر من قيمة نصية : راح نأخذ أهمها ..

   للقراءة فقط = "R"

   ملف نظام= "S"

   مخفي= "H"

   مجلد = "D"

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

"SR"

طيب فرضاُ أنا أريد فقط أن أتأكد هل الملف مخفي ؟؟

هنا يجب إستخدام الدالة ..StringInStr

راح نأخذها بشكل مبسط ألي يفيدنا في هذي الحالة ..

صيغة الدالة :

[COLOR=Navy]StringInStr [/COLOR][COLOR=Red]([/COLOR] [COLOR=Silver]"string"[/COLOR][COLOR=Red],[/COLOR] [COLOR=Silver]"substring"[/COLOR][COLOR=Red])[/COLOR]

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

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

القيم الراجعه للدالة :

الدالة ترجع بمكان النص الفرعي في النص الرئيسي إذا وجدته ..

<< في حالتنا هذي مانحتاج مكان النص نحن نبحث هل هو موجود أو لا وراح نعرف كيف نوضفها في الكود :d:

إذا لم تجد النص ترجع بـ 0

...

مثال :

[COLOR=DarkRed]$path[/COLOR] [COLOR=Red]=[/COLOR] [COLOR=Magenta]@ScriptDir[/COLOR] [COLOR=Red]&[/COLOR] [COLOR=Silver]"\xx.txt"[/COLOR]
[COLOR=Blue]if[/COLOR] [I][COLOR=Navy]FileExists[/COLOR][/I][COLOR=Red]([/COLOR][COLOR=DarkRed]$path[/COLOR][COLOR=Red])[/COLOR] [COLOR=Blue]then[/COLOR]
  [COLOR=DarkRed]  $attrib [/COLOR][COLOR=Red]=[/COLOR] [I][COLOR=Navy]FileGetAttrib[/COLOR][/I][COLOR=Red]([/COLOR][COLOR=DarkRed]$path[/COLOR][COLOR=Red])[/COLOR]
[COLOR=DarkRed]    $Instr[/COLOR] [COLOR=Red]=[/COLOR] [I][COLOR=Navy]StringInStr [/COLOR][/I][COLOR=Red]([/COLOR][COLOR=DarkRed]$attrib[/COLOR] [COLOR=Red],[/COLOR][COLOR=Silver]"H"[/COLOR][COLOR=Red])[/COLOR]
    [COLOR=Blue]if[/COLOR] [COLOR=DarkRed]$Instr[/COLOR] [COLOR=Red]<>[/COLOR] [COLOR=Indigo]0[/COLOR] [COLOR=Blue]Then[/COLOR]
        [COLOR=Navy][I]MsgBox[/I][/COLOR][COLOR=Red]([/COLOR][COLOR=Indigo]0[/COLOR][COLOR=Red],[/COLOR][COLOR=Silver]""[/COLOR][COLOR=Red],[/COLOR][COLOR=Silver]"Hidden"[/COLOR][COLOR=Red])[/COLOR]
    [COLOR=Blue]Endif[/COLOR]

[COLOR=Blue]Else[/COLOR]
    [COLOR=Navy][I]MsgBox[/I][/COLOR]([COLOR=Indigo]0[/COLOR][COLOR=Red],[/COLOR][COLOR=Silver]""[/COLOR][COLOR=Red],[/COLOR][COLOR=Silver]"الملف غير موجود"[/COLOR][COLOR=Red])[/COLOR]
[COLOR=Blue]endif[/COLOR]

الشرح : تحققنا من وجود الملف بدالة FileExists
طلبنا خواص الملف بإستخدام الدالة FileGetAttrib وحفظنا القيمة النصية في متغير...

تحققنا من وجود الحرف H هل الحرف موجود
في النص ألي أرجعته الدالة FileGetAttrib بإستخدام الدالة StringInStr
حفظنا القيمة الراجعه للدالة StringInStr

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


نأتي الان للدالة الثانية دالة FileSetAttrib

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

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

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

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

+-RASHNOT : هنا نضع الخصائص ألي نبي نضيفها أو نزيلها من الملف ..
وبما إنها عبارة عن حرف أو عدة حروف < أي نص يجب وضعها بين ""

راح نأخذ أهم الخصائص وهي على النحو التالي ...

للقراءة فقط = "R"

 ملف نظام= "S"

مخفي = "H"

لإضافة خاصية نتبع هذا الاسلوب
فرضاً نريد الملف يكون مخفي نضع في الوسيط الثاني +-RASHNOT

+H

إذا كان الملف مخفي ونريد إضهارة ..

- H

إذا أردنا أن نضع أكثر من خاصية لملف .. نريد مخفي وللقرأه فقط.

+H+R

recurse : هذا وسيط إختياري وهو للمجلدات .. القيمة الافتراضية له 0 أي أخفي المجلد فقط
إذا وضعناها 1 تخفي المجلد وألي يحوية من ملفات ومجلدات ..

القيم الراجعه للدالة

1: إذا نجحت العملية
0: إذا فشلت العملية

مثال :

نفس المثال السابق فقط إذا كان مخفي نظهره ونجعله للقرأه فقط :d:

[COLOR=DarkRed]$path[/COLOR] [COLOR=Red]=[/COLOR] [COLOR=Magenta]@ScriptDir [/COLOR][COLOR=Red]&[/COLOR] [COLOR=Silver]"\xx.txt"[/COLOR]
[COLOR=Blue]if[/COLOR] [COLOR=Navy][I]FileExists[/I][/COLOR][COLOR=Red]([/COLOR][COLOR=DarkRed]$path[/COLOR][COLOR=Red])[/COLOR] [COLOR=Blue]then[/COLOR]
  [COLOR=DarkRed]  $attrib [/COLOR][COLOR=Red]=[/COLOR] [I][COLOR=Navy]FileGetAttrib[/COLOR][/I][COLOR=Red]([/COLOR][COLOR=DarkRed]$path[/COLOR][COLOR=Red])[/COLOR]
   [COLOR=DarkRed]$Instr[/COLOR][COLOR=Red] =[/COLOR] [I][COLOR=Navy]StringInStr [/COLOR][/I][COLOR=Red]([/COLOR][COLOR=DarkRed]$attrib[/COLOR] [COLOR=Red],[/COLOR][COLOR=Silver]"H"[/COLOR][COLOR=Red])[/COLOR]
   [COLOR=Blue] if[/COLOR][COLOR=DarkRed] $Instr[/COLOR] [COLOR=Red]<>[/COLOR] [COLOR=Indigo]0[/COLOR] [COLOR=Blue]Then[/COLOR]
        [I][COLOR=Navy]FileSetAttrib[/COLOR][/I][COLOR=Red]([/COLOR][COLOR=DarkRed]$path[/COLOR][COLOR=Red],[/COLOR][COLOR=Silver]"-H+R"[/COLOR][COLOR=Red])[/COLOR]
    [COLOR=Blue]Endif[/COLOR]

[COLOR=Blue]Else[/COLOR]
    [I][COLOR=Navy]MsgBox[/COLOR][/I][COLOR=Red]([/COLOR][COLOR=Indigo]0[/COLOR][COLOR=Red],[/COLOR][COLOR=Silver]""[/COLOR][COLOR=Red],[/COLOR][COLOR=Silver]"الملف غير موجود"[/COLOR][COLOR=Red])[/COLOR]

endif

:d:

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

وصلى الله وسلم على الحبيب المصطفى ..

​

 

[himoScript]

بسم الله ماشاء الله

اخى الغالى عبد الله جزاك الله خير الجزاء على ماتقدمه

وان شاء الله لى عودة

 

[ramay]

السلام عليكم قبل تنفيذ درس جديد
أريد استفسار هل ممكن عمل الدالة InputBox
مع الدالة االتى في دروس قبل مثل الدالة DirCopy وغيره
وكيف سوف نربط بينهم
يعني أريد أن وضع مستخدم رقم 1 ينفذ نسخ ملف وأن وضع رقم 2 ينفذ نقل وأن وضع رقم 3 ينفذ حذف وهكذا​

 

[LINEZERO]

السلام عليكم قبل تنفيذ درس جديد






أريد استفسار هل ممكن عمل الدالة InputBox
مع الدالة االتى في دروس قبل مثل الدالة DirCopy وغيره
وكيف سوف نربط بينهم

يعني أريد أن وضع مستخدم رقم 1 ينفذ نسخ ملف وأن وضع رقم 2 ينفذ نقل وأن وضع رقم 3 ينفذ حذف وهكذا
​

هناط طريقه لعمل ذلك .. ولكن لم يتم شرحها الى الان ..

وبامكانك الان عمل ذلك حسب ماتم شرحه كالتالي

[COLOR=#aa0000]$var[/COLOR] [COLOR=#ff0000]=[/COLOR] [COLOR=#000090]InputBox[/COLOR][COLOR=#ff0000]([/COLOR][COLOR=#9999cc]"Expertise.."[/COLOR][COLOR=#ff0000],[/COLOR] [COLOR=#9999cc]"Choose a number"[/COLOR] [COLOR=#ff0000]&[/COLOR] [COLOR=#ff33ff][COLOR=#ff33ff]@CRLF[/COLOR][/COLOR] [COLOR=#ff0000]&[/COLOR] [COLOR=#9999cc]"1- Make Directory"[/COLOR] [COLOR=#ff0000]&[/COLOR] [COLOR=#ff33ff][COLOR=#ff33ff]@CRLF[/COLOR][/COLOR] [COLOR=#ff0000]&[/COLOR] [COLOR=#9999cc]"2- Delete Directory"[/COLOR][COLOR=#ff0000])[/COLOR]
[COLOR=#0000ff]If[/COLOR] [COLOR=#aa0000]$var[/COLOR] [COLOR=#ff0000]=[/COLOR] [COLOR=#ac00a9]1[/COLOR] [COLOR=#0000ff]Then[/COLOR]
[COLOR=#aa0000]$var01[/COLOR] [COLOR=#ff0000]=[/COLOR] [COLOR=#000090]DirCreate[/COLOR][COLOR=#ff0000]([/COLOR][COLOR=#ff33ff][COLOR=#ff33ff]@scriptdir[/COLOR][/COLOR] [COLOR=#ff0000]&[/COLOR] [COLOR=#9999cc]"\Expertise"[/COLOR][COLOR=#ff0000])[/COLOR]
[COLOR=#0000ff]If[/COLOR] [COLOR=#aa0000]$var01[/COLOR] [COLOR=#ff0000]<[/COLOR][COLOR=#ff0000]>[/COLOR] [COLOR=#ac00a9]1[/COLOR] [COLOR=#0000ff]Then[/COLOR]
[COLOR=#000090]MsgBox[/COLOR][COLOR=#ff0000]([/COLOR][COLOR=#ac00a9]0[/COLOR][COLOR=#ff0000],[/COLOR] [COLOR=#9999cc]"Expertise.."[/COLOR][COLOR=#ff0000],[/COLOR] [COLOR=#9999cc]" Error ... can not create directory !! "[/COLOR][COLOR=#ff0000])[/COLOR]
[COLOR=#0000ff]EndIf[/COLOR]
[COLOR=#0000ff]Else[/COLOR]If [COLOR=#aa0000]$var[/COLOR] [COLOR=#ff0000]=[/COLOR] [COLOR=#ac00a9]2[/COLOR] [COLOR=#0000ff]Then[/COLOR]
[COLOR=#aa0000]$var02[/COLOR] [COLOR=#ff0000]=[/COLOR] [COLOR=#000090]DirRemove[/COLOR][COLOR=#ff0000]([/COLOR][COLOR=#ff33ff][COLOR=#ff33ff]@scriptdir[/COLOR][/COLOR] [COLOR=#ff0000]&[/COLOR] [COLOR=#9999cc]"\Expertise"[/COLOR][COLOR=#ff0000],[/COLOR] [COLOR=#ac00a9]1[/COLOR][COLOR=#ff0000])[/COLOR]
[COLOR=#0000ff]If[/COLOR] [COLOR=#aa0000]$var02[/COLOR] [COLOR=#ff0000]<[/COLOR][COLOR=#ff0000]>[/COLOR] [COLOR=#ac00a9]1[/COLOR] [COLOR=#0000ff]Then[/COLOR]
[COLOR=#000090]MsgBox[/COLOR][COLOR=#ff0000]([/COLOR][COLOR=#ac00a9]0[/COLOR][COLOR=#ff0000],[/COLOR] [COLOR=#9999cc]"Expertise.."[/COLOR][COLOR=#ff0000],[/COLOR] [COLOR=#9999cc]" Error ... can not delete directory or its not exists !! "[/COLOR][COLOR=#ff0000])[/COLOR]
[COLOR=#0000ff]EndIf[/COLOR]
[COLOR=#0000ff]Else[/COLOR]
[COLOR=#000090]MsgBox[/COLOR][COLOR=#ff0000]([/COLOR][COLOR=#ac00a9]0[/COLOR][COLOR=#ff0000],[/COLOR] [COLOR=#9999cc]"Expertise.."[/COLOR][COLOR=#ff0000],[/COLOR] [COLOR=#9999cc]" Choose number 1 or 2 "[/COLOR][COLOR=#ff0000])[/COLOR]
[COLOR=#0000ff]EndIf[/COLOR]

لادري هل تم شرح

@CRLF

ام لاا !!



ولكن ببساطه هي لنزول سطر .. :d:

​

 

[himoScript]

نعم تم شرح @crlf

موفين ياشباب دوره ممتعه جدا

مربع الادخال ممكن استفاد منه كثيرا مع كل الدوال

مثال

تشفير الملفات

ولكن لم نأخذ الاوامر بعد

اما عن تطبيقى فهو لقياس حاله الضغط ولكنى لاادرى ماهو الضغط العالى والمنخفض بعد
مثلا 200 ضغط عالى
50 منخفض
اقل واكبر وبصراحه عايز اراجع درس القيم الراجعه

سلام

 

[موريادي]

تطبيقي على درس Attrib ...​

$fofo1 = FileGetAttrib (@WindowsDir& "\notepad.exe")
If StringInStr ($fofo1,"H") = 0 Then
 MsgBox (0,"","الملف ظاهر وغير مخفي")
Else
 FileSetAttrib (@WindowsDir& "\notepad.exe","+H")
 MsgBox (0,"","تم تعديل خاصية الملف وجعله مخفي")
EndIf
Exit

تم تصحيح الكود ... لخبطة في الرسائل وجبت العيد :q:​

 

[موريادي]

تطبيق أخر على الدرس بتفصيل آكثر ... :hh:

$var1 = FileGetAttrib (@WindowsDir& "\regedit.exe")
$var2 = StringInStr ($var1,"S")
If $var2 <> 0 Then
 MsgBox (0,"","The REGISTRY System Program")
Else
 $var3 = MsgBox (4,"","Are You Wanna Cheang Attrib?")
 If $var3 = 6 Then
  FileSetAttrib (@WindowsDir& "\regedit.exe","+H+S")
 Else
  MsgBox (0,"","You Don't Wanna !")
 EndIf
EndIf

​

 

[موريادي]

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

$msg = InputBox ("Msg","Choose a File" & @CRLF & "1- hosts" & @CRLF & "2- networks" & @CRLF & "3- protocol" & @CRLF & "4- services")
$re = ("R,A,S,H,N,D,O,C,T")
If $msg = 1 Then
 $path1 = @WindowsDir& "\System32\drivers\etc\hosts"
 $var1 = FileGetAttrib ($path1)
 If $var1 = 1 Then
  MsgBox(4096,"Error", "Could not obtain attributes.")
 Else
  If StringInStr ($var1,$re) <> 0 Then
   FileSetAttrib ($path1,"+H")
   MsgBox (0,"","DONE")
  EndIf
 EndIf
EndIf
If $msg = 1 Then
 $path2 = @WindowsDir& "\System32\drivers\etc\networks"
 $var2 = FileGetAttrib ($path2)
 If $var2 = 1 Then
  MsgBox(4096,"Error", "Could not obtain attributes.")
 Else
  If StringInStr ($var2,$re) <> 0 Then
   FileSetAttrib ($path2,"+H")
   MsgBox (0,"","DONE")
  EndIf
 EndIf
EndIf
If $msg = 1 Then
 $path3 = @WindowsDir& "\System32\drivers\etc\protocol"
 $var3 = FileGetAttrib ($path3)
 If $var3 = 1 Then
  MsgBox(4096,"Error", "Could not obtain attributes.")
 Else
  If StringInStr ($var3,$re) <> 0 Then
   FileSetAttrib ($path3,"+H")
   MsgBox (0,"","DONE")
  EndIf
 EndIf
EndIf
If $msg = 1 Then
 $path4 = @WindowsDir& "\System32\drivers\etc\services"
 $var4 = FileGetAttrib ($path4)
 If $var4 = 1 Then
  MsgBox(4096,"Error", "Could not obtain attributes.")
 Else
  If StringInStr ($var4,$re) <> 0 Then
   FileSetAttrib ($path4,"+H")
   MsgBox (0,"","DONE")
  EndIf
 EndIf
EndIf

 

[LINEZERO]

وش الخطا الي تبي تعرفه .. ؟؟
وش ادراك ان فيه خطا !!

عموماً لاتستطيع عمل البحث في الجمل بالطريقه التي كتبتها وتحتاج الى امر جديد الى تقسيم
الحروف المراد البحث عنها .. ثم عمل حلقه والبحث عن كل حرف لوحده :d:
وهناك بعض الاخطاء البسيطه والتي متاكد انها اخطاء مطبعيه :q:

[COLOR=#aa0000]$msg[/COLOR] [COLOR=#ff0000]=[/COLOR] [COLOR=#000090]InputBox[/COLOR][COLOR=#ff0000]([/COLOR][COLOR=#9999cc]"Msg"[/COLOR][COLOR=#ff0000],[/COLOR] [COLOR=#9999cc]"Choose a File"[/COLOR] [COLOR=#ff0000]&[/COLOR] [COLOR=#ff33ff][COLOR=#ff33ff]@CRLF[/COLOR][/COLOR] [COLOR=#ff0000]&[/COLOR] [COLOR=#9999cc]"1- hosts"[/COLOR] [COLOR=#ff0000]&[/COLOR] [COLOR=#ff33ff][COLOR=#ff33ff]@CRLF[/COLOR][/COLOR] [COLOR=#ff0000]&[/COLOR] [COLOR=#9999cc]"2- networks"[/COLOR] [COLOR=#ff0000]&[/COLOR] [COLOR=#ff33ff][COLOR=#ff33ff]@CRLF[/COLOR][/COLOR] [COLOR=#ff0000]&[/COLOR] [COLOR=#9999cc]"3- protocol"[/COLOR] [COLOR=#ff0000]&[/COLOR] [COLOR=#ff33ff][COLOR=#ff33ff]@CRLF[/COLOR][/COLOR] [COLOR=#ff0000]&[/COLOR] [COLOR=#9999cc]"4- services"[/COLOR][COLOR=#ff0000])[/COLOR]
[COLOR=#aa0000]$re[/COLOR] [COLOR=#ff0000]=[/COLOR] [COLOR=#ff0000]([/COLOR][COLOR=#9999cc]"H"[/COLOR][COLOR=#ff0000])[/COLOR]
[COLOR=#0000ff]If[/COLOR] [COLOR=#aa0000]$msg[/COLOR] [COLOR=#ff0000]=[/COLOR] [COLOR=#ac00a9]1[/COLOR] [COLOR=#0000ff]Then[/COLOR]
[COLOR=#aa0000]$path1[/COLOR] [COLOR=#ff0000]=[/COLOR] [COLOR=#ff33ff][COLOR=#ff33ff]@windowsdir[/COLOR][/COLOR] [COLOR=#ff0000]&[/COLOR] [COLOR=#9999cc]"\System32\drivers\etc\hosts"[/COLOR]
[COLOR=#aa0000]$var1[/COLOR] [COLOR=#ff0000]=[/COLOR] [COLOR=#000090]FileGetAttrib[/COLOR][COLOR=#ff0000]([/COLOR][COLOR=#aa0000]$path1[/COLOR][COLOR=#ff0000])[/COLOR]
[COLOR=#0000ff]If[/COLOR] [COLOR=#aa0000]$var1[/COLOR] [COLOR=#ff0000]=[/COLOR] [COLOR=#9999cc]""[/COLOR] [COLOR=#0000ff]Then[/COLOR]
 [COLOR=#000090]MsgBox[/COLOR][COLOR=#ff0000]([/COLOR][COLOR=#ac00a9]4[/COLOR][COLOR=#ac00a9]0[/COLOR][COLOR=#ac00a9]9[/COLOR][COLOR=#ac00a9]6[/COLOR][COLOR=#ff0000],[/COLOR] [COLOR=#9999cc]"Error"[/COLOR][COLOR=#ff0000],[/COLOR] [COLOR=#9999cc]"Could not obtain attributes."[/COLOR][COLOR=#ff0000])[/COLOR]
[COLOR=#0000ff]Else[/COLOR]
 [COLOR=#0000ff]If[/COLOR] [COLOR=#000090][COLOR=#000090]String[/COLOR]InStr[/COLOR][COLOR=#ff0000]([/COLOR][COLOR=#aa0000]$var1[/COLOR][COLOR=#ff0000],[/COLOR] [COLOR=#aa0000]$re[/COLOR][COLOR=#ff0000])[/COLOR] [COLOR=#ff0000]=[/COLOR] [COLOR=#ac00a9]0[/COLOR] [COLOR=#0000ff]Then[/COLOR]
  [COLOR=#000090]FileSetAttrib[/COLOR][COLOR=#ff0000]([/COLOR][COLOR=#aa0000]$path1[/COLOR][COLOR=#ff0000],[/COLOR] [COLOR=#9999cc]"+H"[/COLOR][COLOR=#ff0000])[/COLOR]
  [COLOR=#000090]MsgBox[/COLOR][COLOR=#ff0000]([/COLOR][COLOR=#ac00a9]0[/COLOR][COLOR=#ff0000],[/COLOR] [COLOR=#9999cc]""[/COLOR][COLOR=#ff0000],[/COLOR] [COLOR=#9999cc]"Now Hidden"[/COLOR][COLOR=#ff0000])[/COLOR]
 [COLOR=#0000ff]Else[/COLOR]
  [COLOR=#000090]FileSetAttrib[/COLOR][COLOR=#ff0000]([/COLOR][COLOR=#aa0000]$path1[/COLOR][COLOR=#ff0000],[/COLOR] [COLOR=#9999cc]"-H"[/COLOR][COLOR=#ff0000])[/COLOR]
  [COLOR=#000090]MsgBox[/COLOR][COLOR=#ff0000]([/COLOR][COLOR=#ac00a9]0[/COLOR][COLOR=#ff0000],[/COLOR] [COLOR=#9999cc]""[/COLOR][COLOR=#ff0000],[/COLOR] [COLOR=#9999cc]"Now Not Hidden"[/COLOR][COLOR=#ff0000])[/COLOR]
 [COLOR=#0000ff]EndIf[/COLOR]
[COLOR=#0000ff]EndIf[/COLOR]
[COLOR=#0000ff]EndIf[/COLOR]
[COLOR=#0000ff]If[/COLOR] [COLOR=#aa0000]$msg[/COLOR] [COLOR=#ff0000]=[/COLOR] [COLOR=#ac00a9]2[/COLOR] [COLOR=#0000ff]Then[/COLOR]
[COLOR=#aa0000]$path2[/COLOR] [COLOR=#ff0000]=[/COLOR] [COLOR=#ff33ff][COLOR=#ff33ff]@windowsdir[/COLOR][/COLOR] [COLOR=#ff0000]&[/COLOR] [COLOR=#9999cc]"\System32\drivers\etc\networks"[/COLOR]
[COLOR=#aa0000]$var2[/COLOR] [COLOR=#ff0000]=[/COLOR] [COLOR=#000090]FileGetAttrib[/COLOR][COLOR=#ff0000]([/COLOR][COLOR=#aa0000]$path2[/COLOR][COLOR=#ff0000])[/COLOR]
[COLOR=#0000ff]If[/COLOR] [COLOR=#aa0000]$var2[/COLOR] [COLOR=#ff0000]=[/COLOR] [COLOR=#9999cc]""[/COLOR] [COLOR=#0000ff]Then[/COLOR]
 [COLOR=#000090]MsgBox[/COLOR][COLOR=#ff0000]([/COLOR][COLOR=#ac00a9]4[/COLOR][COLOR=#ac00a9]0[/COLOR][COLOR=#ac00a9]9[/COLOR][COLOR=#ac00a9]6[/COLOR][COLOR=#ff0000],[/COLOR] [COLOR=#9999cc]"Error"[/COLOR][COLOR=#ff0000],[/COLOR] [COLOR=#9999cc]"Could not obtain attributes."[/COLOR][COLOR=#ff0000])[/COLOR]
[COLOR=#0000ff]Else[/COLOR]
 [COLOR=#0000ff]If[/COLOR] [COLOR=#000090][COLOR=#000090]String[/COLOR]InStr[/COLOR][COLOR=#ff0000]([/COLOR][COLOR=#aa0000]$var2[/COLOR][COLOR=#ff0000],[/COLOR] [COLOR=#aa0000]$re[/COLOR][COLOR=#ff0000])[/COLOR] [COLOR=#ff0000]=[/COLOR] [COLOR=#ac00a9]0[/COLOR] [COLOR=#0000ff]Then[/COLOR]
  [COLOR=#000090]FileSetAttrib[/COLOR][COLOR=#ff0000]([/COLOR][COLOR=#aa0000]$path2[/COLOR][COLOR=#ff0000],[/COLOR] [COLOR=#9999cc]"+H"[/COLOR][COLOR=#ff0000])[/COLOR]
  [COLOR=#000090]MsgBox[/COLOR][COLOR=#ff0000]([/COLOR][COLOR=#ac00a9]0[/COLOR][COLOR=#ff0000],[/COLOR] [COLOR=#9999cc]""[/COLOR][COLOR=#ff0000],[/COLOR] [COLOR=#9999cc]"Now Hidden"[/COLOR][COLOR=#ff0000])[/COLOR]
 [COLOR=#0000ff]Else[/COLOR]
  [COLOR=#000090]FileSetAttrib[/COLOR][COLOR=#ff0000]([/COLOR][COLOR=#aa0000]$path2[/COLOR][COLOR=#ff0000],[/COLOR] [COLOR=#9999cc]"-H"[/COLOR][COLOR=#ff0000])[/COLOR]
  [COLOR=#000090]MsgBox[/COLOR][COLOR=#ff0000]([/COLOR][COLOR=#ac00a9]0[/COLOR][COLOR=#ff0000],[/COLOR] [COLOR=#9999cc]""[/COLOR][COLOR=#ff0000],[/COLOR] [COLOR=#9999cc]"Now Not Hidden"[/COLOR][COLOR=#ff0000])[/COLOR]
 [COLOR=#0000ff]EndIf[/COLOR]
[COLOR=#0000ff]EndIf[/COLOR]
[COLOR=#0000ff]EndIf[/COLOR]
[COLOR=#0000ff]If[/COLOR] [COLOR=#aa0000]$msg[/COLOR] [COLOR=#ff0000]=[/COLOR] [COLOR=#ac00a9]3[/COLOR] [COLOR=#0000ff]Then[/COLOR]
[COLOR=#aa0000]$path3[/COLOR] [COLOR=#ff0000]=[/COLOR] [COLOR=#ff33ff][COLOR=#ff33ff]@windowsdir[/COLOR][/COLOR] [COLOR=#ff0000]&[/COLOR] [COLOR=#9999cc]"\System32\drivers\etc\protocol"[/COLOR]
[COLOR=#aa0000]$var3[/COLOR] [COLOR=#ff0000]=[/COLOR] [COLOR=#000090]FileGetAttrib[/COLOR][COLOR=#ff0000]([/COLOR][COLOR=#aa0000]$path3[/COLOR][COLOR=#ff0000])[/COLOR]
[COLOR=#0000ff]If[/COLOR] [COLOR=#aa0000]$var3[/COLOR] [COLOR=#ff0000]=[/COLOR] [COLOR=#9999cc]""[/COLOR] [COLOR=#0000ff]Then[/COLOR]
 [COLOR=#000090]MsgBox[/COLOR][COLOR=#ff0000]([/COLOR][COLOR=#ac00a9]4[/COLOR][COLOR=#ac00a9]0[/COLOR][COLOR=#ac00a9]9[/COLOR][COLOR=#ac00a9]6[/COLOR][COLOR=#ff0000],[/COLOR] [COLOR=#9999cc]"Error"[/COLOR][COLOR=#ff0000],[/COLOR] [COLOR=#9999cc]"Could not obtain attributes."[/COLOR][COLOR=#ff0000])[/COLOR]
[COLOR=#0000ff]Else[/COLOR]
 [COLOR=#0000ff]If[/COLOR] [COLOR=#000090][COLOR=#000090]String[/COLOR]InStr[/COLOR][COLOR=#ff0000]([/COLOR][COLOR=#aa0000]$var3[/COLOR][COLOR=#ff0000],[/COLOR] [COLOR=#aa0000]$re[/COLOR][COLOR=#ff0000])[/COLOR] [COLOR=#ff0000]=[/COLOR] [COLOR=#ac00a9]0[/COLOR] [COLOR=#0000ff]Then[/COLOR]
  [COLOR=#000090]FileSetAttrib[/COLOR][COLOR=#ff0000]([/COLOR][COLOR=#aa0000]$path3[/COLOR][COLOR=#ff0000],[/COLOR] [COLOR=#9999cc]"+H"[/COLOR][COLOR=#ff0000])[/COLOR]
  [COLOR=#000090]MsgBox[/COLOR][COLOR=#ff0000]([/COLOR][COLOR=#ac00a9]0[/COLOR][COLOR=#ff0000],[/COLOR] [COLOR=#9999cc]""[/COLOR][COLOR=#ff0000],[/COLOR] [COLOR=#9999cc]"DONE"[/COLOR][COLOR=#ff0000])[/COLOR]
 [COLOR=#0000ff]Else[/COLOR]
  [COLOR=#000090]FileSetAttrib[/COLOR][COLOR=#ff0000]([/COLOR][COLOR=#aa0000]$path3[/COLOR][COLOR=#ff0000],[/COLOR] [COLOR=#9999cc]"-H"[/COLOR][COLOR=#ff0000])[/COLOR]
  [COLOR=#000090]MsgBox[/COLOR][COLOR=#ff0000]([/COLOR][COLOR=#ac00a9]0[/COLOR][COLOR=#ff0000],[/COLOR] [COLOR=#9999cc]""[/COLOR][COLOR=#ff0000],[/COLOR] [COLOR=#9999cc]"Now Not Hidden"[/COLOR][COLOR=#ff0000])[/COLOR]
 [COLOR=#0000ff]EndIf[/COLOR]
[COLOR=#0000ff]EndIf[/COLOR]
[COLOR=#0000ff]EndIf[/COLOR]
[COLOR=#0000ff]If[/COLOR] [COLOR=#aa0000]$msg[/COLOR] [COLOR=#ff0000]=[/COLOR] [COLOR=#ac00a9]4[/COLOR] [COLOR=#0000ff]Then[/COLOR]
[COLOR=#aa0000]$path4[/COLOR] [COLOR=#ff0000]=[/COLOR] [COLOR=#ff33ff][COLOR=#ff33ff]@windowsdir[/COLOR][/COLOR] [COLOR=#ff0000]&[/COLOR] [COLOR=#9999cc]"\System32\drivers\etc\services"[/COLOR]
[COLOR=#aa0000]$var4[/COLOR] [COLOR=#ff0000]=[/COLOR] [COLOR=#000090]FileGetAttrib[/COLOR][COLOR=#ff0000]([/COLOR][COLOR=#aa0000]$path4[/COLOR][COLOR=#ff0000])[/COLOR]
[COLOR=#0000ff]If[/COLOR] [COLOR=#aa0000]$var4[/COLOR] [COLOR=#ff0000]=[/COLOR] [COLOR=#9999cc]""[/COLOR] [COLOR=#0000ff]Then[/COLOR]
 [COLOR=#000090]MsgBox[/COLOR][COLOR=#ff0000]([/COLOR][COLOR=#ac00a9]4[/COLOR][COLOR=#ac00a9]0[/COLOR][COLOR=#ac00a9]9[/COLOR][COLOR=#ac00a9]6[/COLOR][COLOR=#ff0000],[/COLOR] [COLOR=#9999cc]"Error"[/COLOR][COLOR=#ff0000],[/COLOR] [COLOR=#9999cc]"Could not obtain attributes."[/COLOR][COLOR=#ff0000])[/COLOR]
[COLOR=#0000ff]Else[/COLOR]
 [COLOR=#0000ff]If[/COLOR] [COLOR=#000090][COLOR=#000090]String[/COLOR]InStr[/COLOR][COLOR=#ff0000]([/COLOR][COLOR=#aa0000]$var4[/COLOR][COLOR=#ff0000],[/COLOR] [COLOR=#aa0000]$re[/COLOR][COLOR=#ff0000])[/COLOR] [COLOR=#ff0000]=[/COLOR] [COLOR=#ac00a9]0[/COLOR] [COLOR=#0000ff]Then[/COLOR]
  [COLOR=#000090]FileSetAttrib[/COLOR][COLOR=#ff0000]([/COLOR][COLOR=#aa0000]$path4[/COLOR][COLOR=#ff0000],[/COLOR] [COLOR=#9999cc]"+H"[/COLOR][COLOR=#ff0000])[/COLOR]
  [COLOR=#000090]MsgBox[/COLOR][COLOR=#ff0000]([/COLOR][COLOR=#ac00a9]0[/COLOR][COLOR=#ff0000],[/COLOR] [COLOR=#9999cc]""[/COLOR][COLOR=#ff0000],[/COLOR] [COLOR=#9999cc]"DONE"[/COLOR][COLOR=#ff0000])[/COLOR]
 [COLOR=#0000ff]Else[/COLOR]
  [COLOR=#000090]FileSetAttrib[/COLOR][COLOR=#ff0000]([/COLOR][COLOR=#aa0000]$path4[/COLOR][COLOR=#ff0000],[/COLOR] [COLOR=#9999cc]"-H"[/COLOR][COLOR=#ff0000])[/COLOR]
  [COLOR=#000090]MsgBox[/COLOR][COLOR=#ff0000]([/COLOR][COLOR=#ac00a9]0[/COLOR][COLOR=#ff0000],[/COLOR] [COLOR=#9999cc]""[/COLOR][COLOR=#ff0000],[/COLOR] [COLOR=#9999cc]"Now Not Hidden"[/COLOR][COLOR=#ff0000])[/COLOR]
 [COLOR=#0000ff]EndIf[/COLOR]
[COLOR=#0000ff]EndIf[/COLOR]
[COLOR=#0000ff]EndIf[/COLOR]

قم بنسخ الكود و ملااحظه الفروقات ..
بانتظار تعليقك عليه .. وماهي الفروقات ؟؟ ​

 

[موريادي]

الفرق الأول اني انا وضعت الشرط var1 = 1 والمفروض اضعه "" لأنه نص وليس عدد ...

الفرق الثاني وضعت StringInStr($var1, $re) = 0 اي الملف غير مخفي والامر اللي بعده لأضافة خاصية H له ... لكن لماذا Space بين المتغيرين ان كانت تفرق ؟

الفرق الثالث وضعت Else بحيث اذا كان الملف مخفي يقوم بإخفائه واظهار رسالة ..


الكود يعمل ولكن لا يقوم بالمطلوب ... بإخفاء الملفات !! ,, هل لأنها ملفات للنظام ؟

سؤال من كودي السابق مالذي تراه اني ملخبط فيه أكثر !!؟

 

[موريادي]

وينكم ياغوالي ... لا تطبيقات ولا تعليقات ... ان شاء الله خير :b:

 

[waget]

دمج ملف مع السيكريبت /FileInstall

دمج ملف مع السيكريبت /FileInstall

الدالة تقوم بتضمين ملف مع السيكريبت عند ترجمة السيكريبت وتحويلة إلى ملف تنفيذي EXE

وعند تشغيل السيكريبت سيتم إستخراج الملف إلى مسار إنت تحدده

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

[COLOR=Navy][I]FileInstall [/I][/COLOR][COLOR=Red]([/COLOR] [COLOR=Silver]"source"[/COLOR][COLOR=Red],[/COLOR] [COLOR=Silver]"dest"[/COLOR][COLOR=Red][,[/COLOR] flag[COLOR=Red]] )[/COLOR]

source :إسم الملف ومسارة .. ولها شروط لكتابة المسار سنفصل فيها إن شاء الله ..

dest : إسم الملف والمسار الذي سيستخرج فية ..

flag: إختياري .. يحمل قيمتين

0: عدم الكتابة على الملف إذا كان موجود.

1: الكتابة على الملف إذا كان موجود.

بالنسبة لشروط كتابة المسار في الوسيط source هذي الشروط لتلافي الاخطاء التي تحدث أثناء ترجمه السيكريبت..

1) يجب أن يكون الملف موجود وهذا أمر بديهي :d:..

مثال على الخطأ /

[COLOR=Navy][I]FileInstall [/I][/COLOR][COLOR=Red]([/COLOR] [COLOR=Silver]"2.txt" [/COLOR] [COLOR=Red],[/COLOR] [COLOR=Magenta]@TempDir [/COLOR][COLOR=Red]&[/COLOR][COLOR=Silver] "\2.txt" [/COLOR][COLOR=Red],[/COLOR][COLOR=Indigo]1[/COLOR][COLOR=Red])[/COLOR]

نفرض أن الملف ليس موجود بجانب السيكريبت...

رسالة الخطأ/

2) لايمكن حفظ المسار في متغير وإرسالة للدالة ...

مثال على الخطأ /

[COLOR=DarkRed]$path [/COLOR][COLOR=Red]=  [/COLOR][COLOR=Silver]"C:\Test.txt"[/COLOR]
[COLOR=Navy][I]FileInstall [/I][/COLOR][COLOR=Red]([/COLOR] [COLOR=DarkRed]$path[/COLOR] [COLOR=Red],[/COLOR] [COLOR=Magenta]@TempDir [/COLOR][COLOR=Red]&[/COLOR][COLOR=Silver] "\Test.txt" [/COLOR][COLOR=Red],[/COLOR][COLOR=Indigo]1[/COLOR][COLOR=Red])[/COLOR]

رسالة الخطأ /

3) لايمكن إستخدام الماكرو الخاصه بمسارات النظام

مثال على الخطأ/

[COLOR=Navy][I]FileInstall [/I][/COLOR][COLOR=Red]([/COLOR] [COLOR=Magenta]@HomeDrive [/COLOR][COLOR=Red]&[/COLOR][COLOR=Silver] "\Test.txt" [/COLOR][COLOR=Red] ,[/COLOR] [COLOR=Magenta]@TempDir [/COLOR][COLOR=Red]&[/COLOR][COLOR=Silver] "\Test.txt"[/COLOR] [COLOR=Red],[/COLOR][COLOR=Indigo]1[/COLOR][COLOR=Red])[/COLOR]

رسالة الخطأ /

4) لا تستطيع إستخدام

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

مثال على الخطأ/

[I][COLOR=Navy]FileInstall[/COLOR][/I][COLOR=Red]([/COLOR][COLOR=Silver]"*.txt"[/COLOR][COLOR=Red],[/COLOR][COLOR=Magenta]@TempDir[/COLOR] [COLOR=Red]&[/COLOR] [COLOR=Silver]"\*.txt"[/COLOR][COLOR=Red],[/COLOR][COLOR=Indigo]1[/COLOR][COLOR=Red])[/COLOR]

رسالة الخطأ /

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

له من RUN أوf5 راح يكون عمل الدالة مثل عمل دالة النسخ ولا تظهر هذه الاخطاء :no:

القيم الراجعه للدالة :

1: نجح إستخراج الملف.

0 : فشل إستخراج الملف.

مثال /

[COLOR=DarkRed]$Install [/COLOR][COLOR=Red]=[/COLOR] [COLOR=Navy][I]FileInstall[/I][/COLOR][COLOR=Red]([/COLOR][COLOR=Silver]"Setup.exe"[/COLOR][COLOR=Red],[/COLOR][COLOR=Magenta]@TempDir [/COLOR][COLOR=Red]&[/COLOR] [COLOR=Silver]"\Setup.exe"[/COLOR],[COLOR=Indigo]1[/COLOR][COLOR=Red])[/COLOR]
[COLOR=Blue]if[/COLOR] [COLOR=DarkRed]$Install[/COLOR][COLOR=Red] =[/COLOR] 1 [COLOR=Blue]Then[/COLOR]
    [COLOR=Navy][I]MsgBox[/I][/COLOR][COLOR=Red]([/COLOR][COLOR=Indigo]0[/COLOR][COLOR=Silver],""[/COLOR][COLOR=Red],[/COLOR][COLOR=Silver]"Success"[/COLOR][COLOR=Red])[/COLOR]
[COLOR=Blue]Else[/COLOR]
    [COLOR=Navy][I]MsgBox[/I][/COLOR]([COLOR=Indigo]0[/COLOR][COLOR=Red],[/COLOR][COLOR=Silver]""[/COLOR][COLOR=Red],[/COLOR][COLOR=Silver]"Error"[/COLOR][COLOR=Red])[/COLOR]
    [COLOR=Blue]endif[/COLOR]

 

[waget]

وينكم ياغوالي ... لا تطبيقات ولا تعليقات ... ان شاء الله خير :b:

:er: فعلاُ أتمنى أنا أرى تطبيقات من الشباب ..

وبالاخص الاخ ramay

:d:

 

[LINEZERO]

الفرق الأول اني انا وضعت الشرط var1 = 1 والمفروض اضعه "" لأنه نص وليس عدد ...

الفرق الثاني وضعت StringInStr($var1, $re) = 0 اي الملف غير مخفي والامر اللي بعده لأضافة خاصية H له ... لكن لماذا Space بين المتغيرين ان كانت تفرق ؟

الفرق الثالث وضعت Else بحيث اذا كان الملف مخفي يقوم بإخفائه واظهار رسالة ..


الكود يعمل ولكن لا يقوم بالمطلوب ... بإخفاء الملفات !! ,, هل لأنها ملفات للنظام ؟

سؤال من كودي السابق مالذي تراه اني ملخبط فيه أكثر !!؟

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

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

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

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

تصبح على خير ​

 

[ramay]

وينكم ياغوالي ... لا تطبيقات ولا تعليقات ... ان شاء الله خير :b:

:er: فعلاُ أتمنى أنا أرى تطبيقات من الشباب ..

وبالاخص الاخ ramay

:d:

بارك الله فيكم يا غوالي
طبعا جابة تعليقات قبل تطبيقات: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
  FileSetAttrib(@DesktopDir&"\Generator","-H",1)
Else
 MsgBox(0,""," bay")
EndIf