قم بمتابعة الفيديو أدناه لمعرفة كيفية تثبيت موقعنا كتطبيق ويب على الشاشة الرئيسية.
ملاحظة: قد لا تكون هذه الميزة متاحة في بعض المتصفحات.
هل نطبق هذايجب عليك تسجيل الدخول او تسجيل لمشاهدة الرابط المخفي
:d: صعب ولا طويل ...؟؟
عموماُ إذا هذا صعب أجل البقية إيش :hh:
إذا في جزئية مو فاهمها هاتها لأفصل فيها ..
أما بس صعب << مومقنعه بالمره
:king:
اذا ماجتك نفسيه :er:
و لادمعت عيونك قدام الشاشه :er:
صدقني ماراح تكون مبدع :i:
$path=("C:\hatem.exe")
if FileExists($path) then
$aa = FileGetAttrib($path)
$Instr = StringInStr ($aa ,"H")
if $Instr <> 0 Then
FileSetAttrib($path,"-H+R")
Endif
Else
MsgBox(16,"","الملف غير موجود",5)
endif
[COLOR=Blue]Switch [/COLOR]<expression>
[COLOR=Blue]Case [/COLOR]<value 1>
.
.
.
.
[COLOR=Blue]Case [/COLOR]<value 2>
.
.
.
.
[COLOR=Blue]Case Else[/COLOR]
.
.
.
[COLOR=Blue]EndSwitch[/COLOR]
[COLOR=Blue]switch [/COLOR][COLOR=Navy][I]InputBox[/I][/COLOR][COLOR=Red]([/COLOR][COLOR=Silver]"هل أنت مشترك بالدورة"[/COLOR][COLOR=Red],[/COLOR][COLOR=Silver]"ضع إسمك للتأكد"[/COLOR][COLOR=Red],[/COLOR][COLOR=Silver]"هنا..."[/COLOR][COLOR=Red])[/COLOR]
[COLOR=Blue]case [/COLOR][COLOR=Silver]"waget"[/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]
[COLOR=Blue]case [/COLOR][COLOR=Silver]"format"[/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]
[COLOR=Blue]case [/COLOR][COLOR=Silver]"Expertise"[/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]
[COLOR=Blue]case [/COLOR][COLOR=Silver]"Bo.SaQeR"[/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]
[COLOR=Blue]case [/COLOR][COLOR=Silver]"Corporation "[/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]
[COLOR=Blue]case [/COLOR][COLOR=Silver]"ramay "[/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]
[COLOR=Blue]case [/COLOR][COLOR=Silver]"himoScript"[/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]
[COLOR=Blue]case [/COLOR][COLOR=Silver]"Self"[/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]
[COLOR=Blue]case [/COLOR][COLOR=Silver]"(مجرد انسان)"[/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]
[COLOR=Blue]case [/COLOR][COLOR=Silver]"موريادي"[/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]
[COLOR=Blue]Case 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]
[COLOR=Blue]EndSwitch[/COLOR]
[COLOR=DarkRed]$os[/COLOR] [COLOR=Red]=[/COLOR] [COLOR=Magenta]@OSArch[/COLOR]
[COLOR=Blue]Switch [/COLOR][COLOR=DarkRed]$os[/COLOR]
[COLOR=Blue]case [/COLOR][COLOR=Silver]"X86"[/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]"Os is 23 bit"[/COLOR][COLOR=Red])[/COLOR]
[COLOR=Silver] [COLOR=Blue]case [/COLOR]"IA64"
[COLOR=Navy][I]MsgBox[/I][/COLOR][/COLOR][COLOR=Silver][COLOR=Red]([/COLOR][COLOR=Indigo]0[/COLOR][/COLOR][COLOR=Silver],""[/COLOR][COLOR=Red],[/COLOR][COLOR=Silver]"Os is 64 bit"[/COLOR][COLOR=Red])[/COLOR]
[COLOR=Blue]case [/COLOR][COLOR=Silver]"X64"[/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]"Os is 64 bit"[/COLOR][COLOR=Red])[/COLOR]
[COLOR=Blue]EndSwitch[/COLOR]
[COLOR=Blue]Switch [/COLOR][COLOR=Magenta]@OSArch[/COLOR]
[COLOR=Blue]case [/COLOR][COLOR=Silver]"X86"[/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]"Os is 23 bit"[/COLOR][COLOR=Red])[/COLOR]
[COLOR=Silver] [COLOR=Blue]case [/COLOR]"IA64"
[COLOR=Navy][I]MsgBox[/I][/COLOR][/COLOR][COLOR=Silver][COLOR=Red]([/COLOR][COLOR=Indigo]0[/COLOR][/COLOR][COLOR=Silver],""[/COLOR][COLOR=Red],[/COLOR][COLOR=Silver]"Os is 64 bit"[/COLOR][COLOR=Red])[/COLOR]
[COLOR=Blue]case [/COLOR][COLOR=Silver]"X64"[/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]"Os is 64 bit"[/COLOR][COLOR=Red])[/COLOR]
[COLOR=Blue]EndSwitch[/COLOR]
ولايهمك راح احاول مره ومرتين وراح اراجعه وراح يكون تطبيق مثل ماتريده
ويرضي نفوس الجميع
ولايهمك ياحلو وراح ابدع مع دروسك يامبدع المبدعين:king:
تطبيق يااستاذ عبدالله
PHP:$path=("C:\hatem.exe") if FileExists($path) then $aa = FileGetAttrib($path) $Instr = StringInStr ($aa ,"H") if $Instr <> 0 Then FileSetAttrib($path,"-H+R") Endif Else MsgBox(16,"","الملف غير موجود",5) endif
[COLOR=Navy][I]Run [/I][/COLOR][COLOR=Red]([/COLOR] [COLOR=Silver]"program"[/COLOR] [COLOR=Red][,[/COLOR][COLOR=Silver] "workingdir"[/COLOR] [COLOR=Red][,[/COLOR] show_flag[COLOR=Red]]])[/COLOR]
[COLOR=Magenta]@SW_HIDE [/COLOR]
[COLOR=Magenta]@SW_MINIMIZE [/COLOR]
[COLOR=Magenta]@SW_MAXIMIZE[/COLOR]
[COLOR=DarkRed]$PID[/COLOR] [COLOR=Red]=[/COLOR] [COLOR=Navy][I]Run[/I][/COLOR][COLOR=Red]([/COLOR][COLOR=Silver]"wrar400.exe /S"[/COLOR][COLOR=Red])[/COLOR]
[COLOR=Blue]if [/COLOR][COLOR=DarkRed]$PID[/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]"تم تشغيل البرنامج"[/COLOR][COLOR=Red])[/COLOR]
[COLOR=Blue]Else[/COLOR]
[I][COLOR=Navy]MsgBox[/COLOR][/I][COLOR=Red]([COLOR=Indigo]16[/COLOR][/COLOR][COLOR=Red],[/COLOR][COLOR=Silver]""[/COLOR][COLOR=Red],[/COLOR][COLOR=Silver]"خطأ لم يتم التشغيل"[/COLOR][COLOR=Red])[/COLOR] [COLOR=Blue]
endif[/COLOR]
[COLOR=Navy][I]RunWait [/I][/COLOR]( [COLOR=Silver]"program" [/COLOR][COLOR=Red][,[/COLOR][COLOR=Silver] "workingdir"[/COLOR] [COLOR=Red][,[/COLOR] show_flag[COLOR=Red]]])[/COLOR]
$path=@ProgramFilesDir&"\CCleaner\CCleaner.exe"
$run=run($path)
If $run <> 0 Then
MsgBox(64,"","yes",5)
Else
MsgBox(16,"","no",5)
EndIf
$run=Run(@ProgramFilesDir&"\CCleaner\CCleaner.exe","", @SW_MAXIMIZE)
If $run <> 0 Then
MsgBox(64,"","yes",5)
Else
MsgBox(16,"","no",5)
EndIf
صراحة الدروس بداءات تحلى اكثر واكثر في نظري
تطبيق رقم المشاركة : [يجب عليك تسجيل الدخول او تسجيل لمشاهدة الرابط المخفي]
================================PHP:$path=@ProgramFilesDir&"\CCleaner\CCleaner.exe" $run=run($path) If $run <> 0 Then MsgBox(64,"","yes",5) Else MsgBox(16,"","no",5) EndIf
هنا في خطاء
PHP:$run=Run(@ProgramFilesDir&,"\CCleaner\CCleaner.exe"&@SW_MAXIMIZE) If $run <> 0 Then MsgBox(64,"","yes",5) Else MsgBox(16,"","no",5) EndIf
$run=Run(@ProgramFilesDir&"\CCleaner\CCleaner.exe","", @SW_MAXIMIZE)
If $run <> 0 Then
MsgBox(64,"","yes",5)
Else
MsgBox(16,"","no",5)
EndIf
Switch InputBox("هل انت متأكد اذا خرجت من رقم 5 ستكون الاجابه صحيحة","الحد الاقصى هو رقم 5","اكتب من واحد الى خمسه")
Case "0"
MsgBox(64,"","اجابه صحيحة",4)
Case "1"
MsgBox(64,"","اجابه صحيحة",4)
Case "2"
MsgBox(64,"","اجابه صحيحة",4)
Case "3"
MsgBox(64,"","اجابه صحيحة",4)
Case "4"
MsgBox(64,"","اجابه صحيحة",4)
Case "5"
MsgBox(64,"","اجابه صحيحة",4)
case Else
MsgBox(16,"","قلت الك الحد الاقصى 5",4)
EndSwitch
عبادي ي صاحبيّ ،:hh: ..
لاتحاول تضغط على نفسك وتعمل تطبيق واحد لكل هذي الدروس ..
كل درس حط له تطبيق .. وأي شيء مو فاهمه لايردك إلا الكيبورد :d:
:king:
عبادي ي صاحبيّ ،
اصعب ما بالبرمجه الفكره ياخي :cr: ،
يعني اوكي تعلمت الدروس طيب ؟ < الفكره الي تبي تسويها ب الأكواد !!! < هنا مربط الفرس ،
وانا مانيب ، منزل المشاركه الا لمن القى لي فكره سنعه :hh: ،
والا ترى على درس درس easy :y:، لكن لأبد نفصل بين كل كم درس ونحاول
نطلع ب فكره ، علشان يكون في مردود للدروس الي ناخذها ، اما لو ناخذ الدرس ونجلس نطبق
واغلب الي يطبق منننا ، يتبع تطبيقك ماغير يغير في اسماء ا اماكن الملفات !!
حيلك يعني بالدروس شوي ، خلنا نشوف لنا مشروع ، نسويه ، !
نبي الوضع يحلى شوي ، خصوصا اني تو مركب وايرلس بالبيت جديد :hh: ،
والا لا ! من معي ومن ضدي ؟ :d:
عبادي ي صاحبيّ ،
اصعب ما بالبرمجه الفكره ياخي :cr: ،
يعني اوكي تعلمت الدروس طيب ؟ < الفكره الي تبي تسويها ب الأكواد !!! < هنا مربط الفرس ،
وانا مانيب ، منزل المشاركه الا لمن القى لي فكره سنعه :hh: ،
والا ترى على درس درس Easy :y:، لكن لأبد نفصل بين كل كم درس ونحاول
نطلع ب فكره ، علشان يكون في مردود للدروس الي ناخذها ، اما لو ناخذ الدرس ونجلس نطبق
واغلب الي يطبق منننا ، يتبع تطبيقك ماغير يغير في اسماء ا اماكن الملفات !!
حيلك يعني بالدروس شوي ، خلنا نشوف لنا مشروع ، نسويه ، !
نبي الوضع يحلى شوي ، خصوصا اني تو مركب وايرلس بالبيت جديد :hh: ،
والا لا ! من معي ومن ضدي ؟ :d:
تطبيق رقم المشاركة : [يجب عليك تسجيل الدخول او تسجيل لمشاهدة الرابط المخفي]سؤال ياعبد اللهPHP:Switch InputBox("هل انت متأكد اذا خرجت من رقم 5 ستكون الاجابه صحيحة","الحد الاقصى هو رقم 5","اكتب من واحد الى خمسه") Case "0" MsgBox(64,"","اجابه صحيحة",4) Case "0" MsgBox(64,"","اجابه صحيحة",4) Case "1" MsgBox(64,"","اجابه صحيحة",4) Case "2" MsgBox(64,"","اجابه صحيحة",4) Case "3" MsgBox(64,"","اجابه صحيحة",4) Case "4" MsgBox(64,"","اجابه صحيحة",4) Case "5" MsgBox(64,"","اجابه صحيحة",4) case Else MsgBox(16,"","قلت الك الحد الاقصى 5",4) EndSwitch
هل هناك تطبيقات اخرى لم طبقها انا ؟
ملاحظتي \ للمشتركين في الدوره
الدرس في البدايه قلت انه صعب ولكن سهل جدا بعد مافهمت المبدئ
والاساس الي طرحه اخوي عبد الله
هذا وفقكم الله
Case "0"