الحالة
مغلق و غير مفتوح للمزيد من الردود.
تم تعديل مشاركة لأضافة كود أخر

كود:
$1 = @DesktopDir&"\tst.txt"
$2 = FileExists($1)
If $2 = 1 Then
 $3 = MsgBox(4,"","هل تريد حذف ملف")
EndIf
If $3 = 6 Then
 $4 = FileDelete ($1)
 If $4 = 1 Then
 MsgBox(0,"","don")
Else
 MsgBox(0,"","rro")
EndIf
EndIf
كود:
$1 = @DesktopDir&"\tst.txt"
$2 = FileExists($1)
If $2 = 1 Then
 MsgBox(0,"","ملف موجود")
Else
 MsgBox(0,"","لا يوجد ملف في هذا أسم")
Exit
EndIf
 $3 = MsgBox(4,"","هل تريد حذف ملف")
If $3 = 6 Then
 $4 = FileDelete ($1)
 If $4 = 1 Then
 MsgBox(0,"","don")
Else
 MsgBox(0,"","rro")
EndIf
EndIf

10/10 :king:

إستخدمت نفس أسلوب himoScript

أبيك تكتب نفس المثال السابق بس بنفس طريقة بندر..

:d: في إنتظارك ..
 

توقيع : waget
كود:
$1 = MsgBox(68," سنتأكد من أن برنامج الفايرفوكس يعمل بالذاكره ..."," do you wanna make sure that firefox is Running ? ")
if $1 <> 6 Then
    Exit
    Else
if ProcessExists("firefox.exe") Then
    MsgBox(0,"..............."," البرنامج قيد التشغيل")
    if ProcessClose("firefox.exe") Then
            MsgBox(0,""," تم اغلاقه ")
        Else
            MsgBox(0,""," لم يستطيع")
EndIf
Else
        MsgBox(0,">>>>>>>>"," البرنامج خامل ليس بالذاكره")
    EndIf
EndIf
; بكمل بنفس السكربت علشان تكون الأموامر ورى بعض الحين انشاء مجلد + حذفه + شرط اف 
$2 = MsgBox(68," File great ..."," هل تريد انشاء مجلد على سطح المكتب ؟")
If $2 <> 6 then 
    Exit
    Else
$patch = DirCreate(@desktopdir&"\corporation")
If $patch <> 1 Then
    MsgBox(0,""," لم يتم انشاء الملف")
Else
    MsgBox(0,""," تم انشاء الملف وستجده على سطح المكتب")
EndIf
; بعد انشائه  ، نرد حذفه ؟

$3 =  msgBox(68,""," هل تريد حذف الملف الذي تم انشاؤه ؟")
if $3 <> 6 Then
    MsgBox(0,""," Bye ")
Else
    $z=FileExists(@desktopdir&"\corporation")
    if $z = 1 Then
    $x=DirRemove($patch,1)
    if $x <> 1 Then
        MsgBox(0,""," Error")
    Else
        MsgBox(0,""," تم التأكد من وجود الملف + حذفه ")
    EndIf
EndIf
EndIf
EndIf

اكتشفو الاخطاء :y:
 
توقيع : Corporation
كود:
$1 = FileExists (@ProgramFilesDir&"\Windows Live\Messenger\")
$2 = DirCopy (@DesktopDir&"\77",@UserProfileDir&"\AppData\Local\Microsoft\Messenger\77",1)
If $1 <> 0 And $2 = 1 Then
 MsgBox(0,"","DON")
Else
 MsgBox(16,""," ERROR")  ; [COLOR=red]كييف نستفيد منه أفيده حقيقية يعني بيكون ضروري تواجده[/COLOR]  AND
EndIf



كود:
 $1 = FileExists (@HomeDrive&"\ramay.bat")
If $1 = 1 Then
 $3 = MsgBox(4,""," هل تريد ذفه")
 If $3 = 6 Then
  $4 = FileDelete($1)
  If $4 = 1 Then
   MsgBox(0,""," تم ")
  Else
   MsgBox(0,""," خطأ")
  EndIf
 Else
  MsgBox(0,""," لم يتم حذف")
 EndIf
Else
 $3 = MsgBox(0,""," لم يتم أيجاد ملف ramay.bat")
 EndIf


بعد يومين من أنقطاع لكم وحش يا شباب
النت بدون زيزوم ملوش طعم
بس شو حساس في منتدى سريع بعد فورمات
كأن عندي خط dsl

:king:​
 
توقيع : ramay
كود:
$1 = MsgBox(68," سنتأكد من أن برنامج الفايرفوكس يعمل بالذاكره ..."," do you wanna make sure that firefox is Running ? ")
if $1 <> 6 Then
    Exit
    Else
if ProcessExists("firefox.exe") Then
    MsgBox(0,"..............."," البرنامج قيد التشغيل")
    if ProcessClose("firefox.exe") Then
            MsgBox(0,""," تم اغلاقه ")
        Else
            MsgBox(0,""," لم يستطيع")
EndIf
Else
        MsgBox(0,">>>>>>>>"," البرنامج خامل ليس بالذاكره")
    EndIf
EndIf
; بكمل بنفس السكربت علشان تكون الأموامر ورى بعض الحين انشاء مجلد + حذفه + شرط اف 
$2 = MsgBox(68," File great ..."," هل تريد انشاء مجلد على سطح المكتب ؟")
If $2 <> 6 then 
    Exit
    Else
$patch = DirCreate(@desktopdir&"\corporation")
If $patch <> 1 Then
    MsgBox(0,""," لم يتم انشاء الملف")
Else
    MsgBox(0,""," تم انشاء الملف وستجده على سطح المكتب")
EndIf
[COLOR=Blue]Endif[/COLOR]
; بعد انشائه  ، نرد حذفه ؟

$3 =  msgBox(68,""," هل تريد حذف الملف الذي تم انشاؤه ؟")
if $3 <> 6 Then
    MsgBox(0,""," Bye ")
Else
    $z=FileExists(@desktopdir&"\corporation")
    if $z = 1 Then
  [COLOR=Red]  $x=DirRemove($patch,1)[/COLOR]
    if $x <> 1 Then
        MsgBox(0,""," Error")
    Else
        MsgBox(0,""," تم التأكد من وجود الملف + حذفه ")
    EndIf
EndIf
[COLOR=Red]EndIf[/COLOR]
EndIf
اكتشفو الاخطاء :y:


هلا والله أخوي .. :d:

ألي بالاحمر ... $patch

قيمة راجعه للدالة
DirCreate مو مسار المجلد..

EndIf هذي أضفتها المفترض تكون موجودة..

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


:king:
 
توقيع : waget
كود:
$1 = FileExists (@ProgramFilesDir&"\Windows Live\Messenger\")
$2 = DirCopy (@DesktopDir&"\77",@UserProfileDir&"\AppData\Local\Microsoft\Messenger\77",1)
If $1 <> 0 And $2 = 1 Then
 MsgBox(0,"","DON")
Else
 MsgBox(16,""," ERROR")  ; [COLOR=red]كييف نستفيد منه أفيده حقيقية يعني بيكون ضروري تواجده[/COLOR]  AND
EndIf
إن شاء الله تكون في أمثلة توضح أهميتها في الدروس القادمة..
كود:
 $1 = FileExists (@HomeDrive&"\ramay.bat")
If $1 = 1 Then
 $3 = MsgBox(4,""," هل تريد ذفه")
 If $3 = 6 Then
[COLOR=Red]  $4 = FileDelete($1)[/COLOR]
  If $4 = 1 Then
   MsgBox(0,""," تم ")
  Else
   MsgBox(0,""," خطأ")
  EndIf
 Else
  MsgBox(0,""," لم يتم حذف")
 EndIf
Else
[COLOR=Red]  $3 = MsgBox(0,""," لم يتم أيجاد ملف ramay.bat")[/COLOR]
 EndIf
بعد يومين من أنقطاع لكم وحش يا شباب
النت بدون زيزوم ملوش طعم
بس شو حساس في منتدى سريع بعد فورمات
كأن عندي خط dsl

:king:​

$1 متغير لحفظ القيمة الراجعه للدالة FileExists

وليس مسار المجلد علشان تستخدمه في دالة
FileDelete
$3 = MsgBox(0,""," لم يتم أيجاد ملف ramay.bat")
$3 حفظ القيمة الراجعه للرسالة هنا مامنه فايدة

:king:
 
توقيع : waget
مربع الادخال InputBox

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


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

كود:
[I][COLOR=Navy]InputBox [/COLOR][/I][COLOR=Red]([/COLOR] [COLOR=Silver]"title"[/COLOR][COLOR=Red],[/COLOR][COLOR=Silver] "prompt" [/COLOR][COLOR=Red][,[/COLOR] [COLOR=Silver]"default"[/COLOR] [COLOR=Red][,[/COLOR] [COLOR=Silver]"password char"[/COLOR] [COLOR=Red][,[/COLOR] width[COLOR=Red] [,[/COLOR] height [COLOR=Red][,[/COLOR] left [COLOR=Red][,[/COLOR] top[COLOR=Red] [,[/COLOR] timeout[COLOR=Red]]]]]]]] )[/COLOR]
title : عنوان مربع الادخال.

prompt : محتوى المربع .. تقدر تقول الرسالة ألي تظهر للمستخدم..

default : النص الافتراضي يقصد به .. القيمة ألي تريد أن تضهر في مكان الادخال بشكل تلقائي..

طبعاً اللي بين قوسين إختياري وهي من الوسيطات الاختيارية وله قيمة إفتراضية وهي ""<< نص فارغ

password char : هنا أيضاً وسيط إختياري والقيمة الافتراضية له أيضاً "" .

الفايدة منه إنك تضع قيمته مثلاُ "*" فراح تضهر جميع الحروف المدخله بنفس صورة الرمز هذا..

مثل إدخال الباس وورد وهي فعلاُ لإدخال الباس وورد :d:

width : العرض -عرض النافذة .. يفضل تركه مثل ماهو ...

height : الارتفاع - إرتفاع النافذة أيضاً يفضل تركه ماهو..

left/ top: مكان النافذة في الشاشة الوضع الافتراضي في المنتصف ويفضل تركها..

timeout: وضع ثواني وبعدها سيتم إغلاق النافذة تلقائي..

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

إذا نجحت العملية ترجع بالنص المدخل ..

إذا فشلت : يرجع بنص فارغ ""...


مثال :
1)
كود:
$input = InputBox("Welcome","أدخل إسمك : ")
if $input = "" Then
    msgbox(0 +524288 ,"","لم تدخل شيء")
    else
MsgBox(0 + 524288,"", $input& "إسمك هو" )
endif
2)

كود:
$input = InputBox("Welcome","أدخل إسمك : ","Myname")
if $input = "" or $input ="Myname" Then
    msgbox(0 +524288 ,"","لم تدخل شيء")
    else
MsgBox(0 + 524288,"", $input& "إسمك هو" )
endif
لو أرسلنا قيمة للوسيط default راح تظهر لك القيمة .. لو لم تدخل شيء وإخترت موافق ..

راح تصير القيمة الراجعه هي نفس قيمة default

الحل إنك تستخد الشرط مع or زي المثال السابق ..

3)

كود:
$input = InputBox("Welcome","الباس وورد : ","","*")
if $input = ""  Then
    msgbox(0 +524288 ,"","لم تدخل شيء")
    else
MsgBox(0 + 524288,"", $input& "الباس هو" )
endif
زي ماتلاحظون إستخدمنا password char أرسنا لها رمز النجمه راح تضهر الحروف بنفس الرمز .

تقدر تضع حرف رقم رمز أخر ..إلخ


:d:
 
توقيع : waget
أخي عبدالله ...

بالنسبة للمثال (2)

عند وضع الاسم أو عدم وضعه يظهر لم تدخل شيء ...

قمت بالتعديل عليه هكذا ..

كود:
$input = InputBox("Welcome","أدخل إسمك : ","Myname")
if Not $input = "Myname" Then
    msgbox(0 +524288 ,"","لم تدخل شيء")
    else
MsgBox(0 + 524288,"", $input& "إسمك هو" )
endif
 
توقيع : موريادي
أخي عبدالله ...​



بالنسبة للمثال (2)​

عند وضع الاسم أو عدم وضعه يظهر لم تدخل شيء ...​

قمت بالتعديل عليه هكذا ..​


كود:
$input = inputbox("welcome","أدخل إسمك : ","myname")
كود:
[center]if not $input = "myname" then

  msgbox(0 +524288 ,"","لم تدخل شيء")
[center]  else
msgbox(0 + 524288,"", $input& "إسمك هو" )[/center]
 
[center]endif[/center]
[/center]


السلام عليكم أستاذنا ومشرفنا العزيز​

الحل كما قال أستاذ عبدالله

الحل إنك تستخد الشرط مع or زي المثال السابق ..
 
توقيع : ramay
تفضل أخي عبدالله كودي عبارة عن CV مبسط :d:

كود:
$var1 = InputBox ("CV","Enter Your Name: ","HERE")
$var2 = InputBox ("CV","Enter Your Age: ","HERE")
$var3 = InputBox ("CV","Enter Your Country: ","HERE")
If $var1 = "" And $var2 = "" And $var3 = "" Then
 MsgBox (16,"MSG","Erorr..")
Else
 MsgBox (0,"MSG","Your Name Is: "&$var1 [EMAIL="&@CRLF"]&@CRLF[/EMAIL] &"Your Age Is: "&$var2 [EMAIL="&@CRLF"]&@CRLF[/EMAIL] &"Your Country Is: "&$var3 [EMAIL="&@CRLF"]&@CRLF[/EMAIL])
EndIf


أروع درس :hh:​
 
توقيع : موريادي
السلام عليكم أستاذنا ومشرفنا العزيز

الحل كما قال أستاذ عبدالله

[/center]

حياك أخي رامي ...

طيب قم بتجربة المثال رقم 2 من درس الاستاذ عبدالله ... وقم بادخال اسم والمرة الثانية لاتدخل اسم شوف وش الرسالة التي تظهر لك

,,,
 
توقيع : موريادي
حياك أخي رامي ...

طيب قم بتجربة المثال رقم 2 من درس الاستاذ عبدالله ... وقم بادخال اسم والمرة الثانية لاتدخل اسم شوف وش الرسالة التي تظهر لك

,,,
الاول مره رسالة أني لم أدخل أسم
ومره الثانية أدخلة ramay
وظهرة أسمك هو ramay

كود:
 $1 = InputBox(" أختبار"," أدخل أسمك من فضلك","")
If $1 = "" Or "" Then
 MsgBox(0,""," لم تدخل شيئ")
Else
MsgBox(0,"",$1&" مرحبا فيك في دورة سكربت يا")
EndIf
 
توقيع : ramay
الاول مره رسالة أني لم أدخل أسم
ومره الثانية أدخلة ramay
وظهرة أسمك هو ramay

كود:
 $1 = InputBox(" أختبار"," أدخل أسمك من فضلك","")
If $1 = "" Or [COLOR=red]""[/COLOR] Then
 MsgBox(0,""," لم تدخل شيئ")
Else
MsgBox(0,"",$1&" مرحبا فيك في دورة سكربت يا")
EndIf

بارك الله فيك كودك سليم ماشاء الله

حيث كان السبب في كود الاستاذ عبدالله هو وضعه للكلمة الافتراضية Myname دون ان يجعلها "" فقط

اما انت فوضعت فوضعت علامة التنصيص "" ...

لنفترض انك وضعت الكود هكذا ... لماذا لا يظهر لاشيء بدل ظهور ramay ...؟

كود:
 $1 = InputBox(" أختبار"," أدخل أسمك من فضلك",[COLOR=red]"[COLOR=red]ramay[/COLOR]"[/COLOR])
If $1 = "" Or "" Then
 MsgBox(0,""," لم تدخل شيئ")
Else
MsgBox(0,"",$1&" مرحبا فيك في دورة سكربت يا")
EndIf

:?:​
 
توقيع : موريادي
بارك الله فيك كودك سليم ماشاء الله​

حيث كان السبب في كود الاستاذ عبدالله هو وضعه للكلمة الافتراضية myname دون ان يجعلها "" فقط​

اما انت فوضعت فوضعت علامة التنصيص "" ...​

لنفترض انك وضعت الكود هكذا ... لماذا لا يظهر لاشيء بدل ظهور ramay ...؟​


كود:
 $1 = inputbox(" أختبار"," أدخل أسمك من فضلك",[COLOR=red]"[COLOR=red]ramay[/COLOR]"[/COLOR])
كود:
[CENTER]if $1 = "" or "" then[/CENTER]
 
[CENTER]msgbox(0,""," لم تدخل شيئ")[/CENTER]
 
[CENTER]else

msgbox(0,"",$1&" مرحبا فيك في دورة سكربت يا")[/CENTER]

 
 
 
 
[CENTER]endif[/CENTER]



:?:​

أخي لو أردت أن لا يظهر شيئ فيجب ان لا تكتب شيئ في داخله وضع علامتين تنصيص بدله
يعني مثله مثل text في MsgBox
أن كتبت فيه يظهر وأن لم تكتب لا يظهر
أن شاء الله يكون هذا قصدك​

default : النص الافتراضي يقصد به .. القيمة ألي تريد أن تضهر في مكان الادخال بشكل تلقائي..

طبعاً اللي بين قوسين إختياري وهي من الوسيطات الاختيارية وله قيمة إفتراضية وهي ""<< نص فارغ
 
توقيع : ramay
إن شاء الله تكون في أمثلة توضح أهميتها في الدروس القادمة..


$1 متغير لحفظ القيمة الراجعه للدالة FileExists

وليس مسار المجلد علشان تستخدمه في دالةFileDelete
$3 حفظ القيمة الراجعه للرسالة هنا مامنه فايدة

:king:
أستاذي عبد الله
أستاذ بندر وضعه في هذه طريقة ,أنت طلبت مني كود في نفس أسلوبه

هذا كود أخر يا الغالي
كود:
 $1 = @DesktopDir&"\11.txt"
$2 = FileExists($1)
If $2 = 1 Then
$4 = MsgBox(4,""," هل تريدحذفه ")
Else
 MsgBox(0,""," ليس موجو د  هذه ملف ")
EndIf
 If $4 = 6 Then
 $3 = FileDelete($1)
 If $3 = 1 Then
  MsgBox(0,"","تم ")
 Else
  MsgBox(0,""," لم يتم")
 EndIf
Else
 MsgBox(0,"","  OK مع سلامة")
EndIf
كود:
$1 = InputBox(" RAMAY"," ضع رقم","","&")
If $1 = "" Then
 MsgBox(0,""," لم تدخب شيئ")
Else
 MsgBox(0,"",$1&" عدد هو " & @CRLF & _
"----------" & @CRLF & _
 "********")
 EndIf
 
توقيع : ramay
هلا والله أخوي .. :d:

ألي بالاحمر ... $patch

قيمة راجعه للدالة
DirCreate مو مسار المجلد..

EndIf هذي أضفتها المفترض تكون موجودة..

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


:king:
والله وبوعابد مركز :d:
اما الي بالازرق ماكنت ادري عنها ، بس كنت ابي العب عليكم شوي الي لونه بالاحمر :p:

بارك الله فيك حبيبي :ok:
 
توقيع : Corporation
أخي عبدالله ...


بالنسبة للمثال (2)

عند وضع الاسم أو عدم وضعه يظهر لم تدخل شيء ...




اخي فوزان صبحك الله بالخير
هناك خطا مطبعي في المثال المرفق لعبدالله والمفروض يكون كذا :d:


كود:
$input = InputBox("Welcome", "أدخل إسمك : ", "Myname")
If $input = "" Or $input = "Myname" Then
 MsgBox(0 + 524288, "", "لم تدخل شيء")
Else
 MsgBox(0 + 524288, "", $input & "إسمك هو")
EndIf

3.gif
3.gif
 
توقيع : LINEZERO
الاول مره رسالة أني لم أدخل أسم
ومره الثانية أدخلة ramay
وظهرة أسمك هو ramay

كود:
 $1 = InputBox(" أختبار"," أدخل أسمك من فضلك","")
If $1 = "" [COLOR=red]Or ""[/COLOR] Then
 MsgBox(0,""," لم تدخل شيئ")
Else
MsgBox(0,"",$1&" مرحبا فيك في دورة سكربت يا")
EndIf

؟؟ وش الفائده منها :smile:
 
توقيع : LINEZERO
بارك الله فيك كودك سليم ماشاء الله

حيث كان السبب في كود الاستاذ عبدالله هو وضعه للكلمة الافتراضية Myname دون ان يجعلها "" فقط

اما انت فوضعت فوضعت علامة التنصيص "" ...

لنفترض انك وضعت الكود هكذا ... لماذا لا يظهر لاشيء بدل ظهور ramay ...؟


كود:
 $1 = InputBox(" أختبار"," أدخل أسمك من فضلك",[COLOR=red]"[COLOR=red]ramay[/COLOR]"[/COLOR])
كود:
If $1 = "" Or "" Then
 
MsgBox(0,""," لم تدخل شيئ")
Else
MsgBox(0,"",$1&" مرحبا فيك في دورة سكربت يا")
 
EndIf



:?:


بالنسبه للكود فهو غير سليم وتم ايضاح السبب :b: وليس لها علااقه بعلامة التنصيص :bleh:

لكم وحشه والله :y:​
 
توقيع : LINEZERO
اخي فوزان صبحك الله بالخير
هناك خطا مطبعي في المثال المرفق لعبدالله والمفروض يكون كذا :d:


كود:
$input = InputBox("Welcome", "أدخل إسمك : ", "Myname")
If $input = "" Or $input = "Myname" Then
 MsgBox(0 + 524288, "", "لم تدخل شيء")
Else
 MsgBox(0 + 524288, "", $input & "إسمك هو")
EndIf

3.gif
3.gif

بارك الله فيك أخي بندر ... صباحك عسل :ok:

الكود تمام كذا ,,, لاهنت عالتوضيح

....
 
توقيع : موريادي
بالنسبه للكود فهو غير سليم وتم ايضاح السبب :b: وليس لها علااقه بعلامة التنصيص :bleh:​


لكم وحشه والله :y:​

السبب مخي لأني حسبتها Not وهي لاتقبل سوى قيمة واحدة ... ولكن نخطئ ونتعلم

شكلي بحاول في كل درس اغلط فيه عشان اشوف ردودك :bleh: بس ياويلي من عبدالله :q:

والله وانا أكثر .. بس الله أعلم بحالك :king:​
 
توقيع : موريادي
الحالة
مغلق و غير مفتوح للمزيد من الردود.
عودة
أعلى