:q:عدنا لكم مرة اخرى
بصراحة اختكم ستحاول ان تجعل هالموضوع ما يتوقف وبخليه فعال لين نهرم:hh:
عندي كود في الاتوات بس ما ادري ليه كو فعال واتمنى منكم مساعدتي
كود:
filedelete(@userprofiledir&"appdata\roaming\microsoft\windows\recent\*.*")
filedelete(@userprofiledir&"appdata\roaming\microsoft\windows\privacie\.dat")

نسيت العلامة \
بعد اليوزر بروفايل
بس الكود الاول يعمل معي بشكل صحيح لكن المشكلة في الكود الثاني لا يحذف الملفات
 


^
^^

لا بس اسلوبك ذكرني باحد الاعضاء :kmj-by0000 (72):

وجرب :smile:
كود:
filedelete(@userprofiledir&"\appdata\roaming\microsoft\windows\privacie\*.dat")
 
توقيع : LINEZERO
افااااا انطردت ؛؛؛ لو ادري ماتعبت نفسي وكتبت الحل بس يمكن تستفيد منه كزائر او يستفيد احد الاعضاء​
 
توقيع : LINEZERO
كود:
[CENTER]#RequireAdmin
Dim $System_array[20]=["System","Winlogon.exe","Services.exe","svchost.exe","lsass.exe","csrss.exe","smss.exe"]
Global $Process=ProcessList()
For $i=2 To $Process[0][0]
   For $j=0 To UBound($System_array)-1
       If $Process[$i][0]=$System_array[$j] Then ContinueLoop 2
   Next
   ProcessClose($Process[$i][0])
Next[/CENTER]

طبعا في برامج انتي فيروس مينفعش تتقفل زي الكاسبرسكي

ياريت احد خبراء يشرح لنا كودelawady يا الغوالي

وشيئ أخر هل يوجد طريقة أو الاكواد في الايتوات لمعرفة لغة نظامك أنا كان عربي أو الانكليزي أو معرب​

بارك الله فيكم
:king:​

 
توقيع : ramay
افااااا انطردت ؛؛؛ لو ادري ماتعبت نفسي وكتبت الحل بس يمكن تستفيد منه كزائر او يستفيد احد الاعضاء​

كأنك يعني ما تعرف إنه الحلا تبي تتعلم :hh:
 
توقيع : yones7x
ياريت احد خبراء يشرح لنا كودelawady يا الغوالي​








وشيئ أخر هل يوجد طريقة أو الاكواد في الايتوات لمعرفة لغة نظامك أنا كان عربي أو الانكليزي أو معرب​



بارك الله فيكم​

:king:​

لعيونك اشرح لك يا رامي

وهذا الشرح اليونسي :d::

كود:
#RequireAdmin  ;التشغيل كمسؤول
Dim $System_array[20]=["System","Winlogon.exe","Services.exe","svchost.exe","lsass.exe","csrss.exe","smss.exe"]  ;بدء مصفوفة من 20 خانة أو اقل ولكن المشكلة أن صاحب الكود لم يكتب جميع عمليات النظام لهذا تظهر شاشة زرقاء
Global $Process=ProcessList()  ;تعريف أمر التعرف على العمليات
For $i=2 To $Process[0][0]  ;بدء دوران للعد من 2 إلى عدد العمليات فمثلا من 2 إلى 45
 ;$process[0][0] تعني عدد العمليات
 ;$process[1][0] تعني العملية الاولى
 ;$process[25][0] تعني العملية رقم 25
 ;$process[$i][0]  تعني العملية التي بقيمة مجهولة
 ;حيث تكون القيمة المجهولة الرقم الذي نضعه وفي الدوران يتغير هذا الرقم مما يؤدي إلى إغلاق العملية الواحدة تلو الاخرى
    For $j=0 To UBound($System_array)-1  ;بدء دوران آخر للعد من 0 إلى رقم أحد العمليات المكتوبة في المصفوفة أعلاه
        If $Process[$i][0]=$System_array[$j] Then ContinueLoop 2  ;إذا كانت العملية موجودة في المصفوفة اعلاه يتجاوز إغلاق هذه العملية المهمة
    Next  ;انتهاء الدوران الثاني
    ProcessClose($Process[$i][0])  ;إغلاق العملية صاحبة الرقم المتغير طبعا يتغير كما قلت من رقم أول عملية إلى رقم آخر عملية
Next  ;انتهاء الدوران الاول


ما اريد منك إلا الدعاء لي بكل خير :b:

بالنسبة لسؤال اللغة

هذا هو امر التعرف

كود:
@OSLang

طبعا كل لغة لها رقم

مثلا اللغة العربية السعودية = 0401 :i:

استخدم الـ help لمساعدتك :y:
 
لعيونك اشرح لك يا رامي

وهذا الشرح اليونسي :d::

كود:
#requireadmin  ;التشغيل كمسؤول
dim $system_array[20]=["system","winlogon.exe","services.exe","svchost.exe","lsass.exe","csrss.exe","smss.exe"]  ;بدء مصفوفة من 20 خانة أو اقل ولكن المشكلة أن صاحب الكود لم يكتب جميع عمليات النظام لهذا تظهر شاشة زرقاء
global $process=processlist()  ;تعريف أمر التعرف على العمليات
for $i=2 to $process[0][0]  ;بدء دوران للعد من 2 إلى عدد العمليات فمثلا من 2 إلى 45
 ;$process[0][0] تعني عدد العمليات
 ;$process[1][0] تعني العملية الاولى
 ;$process[25][0] تعني العملية رقم 25
 ;$process[$i][0]  تعني العملية التي بقيمة مجهولة
 ;حيث تكون القيمة المجهولة الرقم الذي نضعه وفي الدوران يتغير هذا الرقم مما يؤدي إلى إغلاق العملية الواحدة تلو الاخرى
    for $j=0 to ubound($system_array)-1  ;بدء دوران آخر للعد من 0 إلى رقم أحد العمليات المكتوبة في المصفوفة أعلاه
        if $process[$i][0]=$system_array[$j] then continueloop 2  ;إذا كانت العملية موجودة في المصفوفة اعلاه يتجاوز إغلاق هذه العملية المهمة
    next  ;انتهاء الدوران الثاني
    processclose($process[$i][0])  ;إغلاق العملية صاحبة الرقم المتغير طبعا يتغير كما قلت من رقم أول عملية إلى رقم آخر عملية
next  ;انتهاء الدوران الاول


ما اريد منك إلا الدعاء لي بكل خير :b:

بالنسبة لسؤال اللغة

هذا هو امر التعرف

كود:
@oslang

طبعا كل لغة لها رقم

مثلا اللغة العربية السعودية = 0401 :i:

استخدم الـ help لمساعدتك :y:
بارك الله فيك يا الغالي

بنسبه لكود اللغة لم ينجح أنا لا أريد الدوله مسجلة فيه كمبيوتر
أنا اريد يحدد لي ما هي اللغة نظامي يعني عربي أو الانكليزي
مثل ما يحدث في برنامج حماية نورتون
يعني أنا كان الانكليزي يتنصب برنامج الانكليزي وأنا كان عربي يتنصب برنامج في عربي
 
توقيع : ramay
بارك الله فيك يا الغالي​

بنسبه لكود اللغة لم ينجح أنا لا أريد الدوله مسجلة فيه كمبيوتر
أنا اريد يحدد لي ما هي اللغة نظامي يعني عربي أو الانكليزي
مثل ما يحدث في برنامج حماية نورتون
يعني أنا كان الانكليزي يتنصب برنامج الانكليزي وأنا كان عربي يتنصب برنامج في عربي​

فاهم قصدك

بكل بساطة

حط الارقام الخاصة بكل الدول العربية في مصفوفة أو في أمر ترقيم الحروف والكلمات (StringInStr)

وإذا تحب اشرح لك مثال (فقط قول لي) :ok:
 
السلام عليكم

الله يبارك فيكم اخواني وبجميع القائمين على هذا الموضوع

عندي سؤال ابغى كود لتشغيل برنامج على مسار معين مثل

برنامج سكايب مثلاً يكون مساره كذا

PHP:
C:\Program Files\Skype\Phone\Skype.exe

كيف يكون شكل الكود بحيث يأخذ المسار بشكل تلقائي لسواقة النظام مثلا لو كانت D

والسؤال الثاني لو ابغى ان تظهر رسالة بحال لم يكن البرنامج مثبت على الجهاز تفيد بأن البرامج غير مثبت ايضأ كيف يصبح الكود

ياريت تساعدوني بهذا الأمر جزاكم الله عنا كل خير اخواني

ياريت تعطوني الكود بشكل كامل كي ادققه واخذ فكرة عامة عن الطريقة
 
فاهم قصدك

بكل بساطة

حط الارقام الخاصة بكل الدول العربية في مصفوفة أو في أمر ترقيم الحروف والكلمات (StringInStr)

وإذا تحب اشرح لك مثال (فقط قول لي) :ok:

يا الغالي هذا كود من تعليمات

لكن نظامي العربي وتقول رسالة أنه الانكليزي

كود:
MsgBox(0, "ماهي لغة نظامك:", _Language())
Func _Language()
Select
  Case StringInStr("2801", @OSLang)
  Return "Arabic_Syria"
    Case StringInStr("0409 0809 0c09 1009 1409 1809 1c09 2009 2409 2809 2c09 3009 3409", @OSLang)
        Return "English"
    Case StringInStr("040c 080c 0c0c 100c 140c 180c", @OSLang)
        Return "French"
    Case Else
        Return "Other (لغة أخره)"
    EndSelect
EndFunc
 
توقيع : ramay
السلام عليكم


الله يبارك فيكم اخواني وبجميع القائمين على هذا الموضوع

عندي سؤال ابغى كود لتشغيل برنامج على مسار معين مثل

برنامج سكايب مثلاً يكون مساره كذا

PHP:
C:\Program Files\Skype\Phone\Skype.exe

كيف يكون شكل الكود بحيث يأخذ المسار بشكل تلقائي لسواقة النظام مثلا لو كانت D

والسؤال الثاني لو ابغى ان تظهر رسالة بحال لم يكن البرنامج مثبت على الجهاز تفيد بأن البرامج غير مثبت ايضأ كيف يصبح الكود

ياريت تساعدوني بهذا الأمر جزاكم الله عنا كل خير اخواني

ياريت تعطوني الكود بشكل كامل كي ادققه واخذ فكرة عامة عن الطريقة

هذا هو الكود الذي تريده :d:

كود:
$path = @ProgramFilesDir&"\Skype\Phone\Skype.exe"
If FileExists($path) Then
 MsgBox(0,"","البرنامج موجود")
Else
 MsgBox(0,"","البرنامج غير موجود")
EndIf
Exit
 
يا الغالي هذا كود من تعليمات

لكن نظامي العربي وتقول رسالة أنه الانكليزي

كود:
MsgBox(0, "ماهي لغة نظامك:", _Language())
Func _Language()
Select
  Case StringInStr("2801", @OSLang)
  Return "Arabic_Syria"
    Case StringInStr("0409 0809 0c09 1009 1409 1809 1c09 2009 2409 2809 2c09 3009 3409", @OSLang)
        Return "English"
    Case StringInStr("040c 080c 0c0c 100c 140c 180c", @OSLang)
        Return "French"
    Case Else
        Return "Other (لغة أخره)"
    EndSelect
EndFunc

لأنه قد يكون جهازك أصله انجلش ولكنه معرب :q:

عموما عدلت على الكود واضفت كل اللغات العربية
(اصلا لو اضفت السعودية كان يكفي لان كل الويندوز العربي في العالم (عربي سعودي) على ما اظن :q:)

هذا الكود جاهز:

كود:
MsgBox(0, ":لغة نظامك هي", _Language())
Func _Language()
 Select
  Case StringInStr("0401 0801 0c01 1001 1401 1801 1c01 2001 2401 2801 2c01 3001 3401 3801 3c01 4001", @OSLang)
   Return "Arabic"
     Case StringInStr("0409 0809 0c09 1009 1409 1809 1c09 2009 2409 2809 2c09 3009 3409", @OSLang)
         Return "English"
     Case StringInStr("040c 080c 0c0c 100c 140c 180c", @OSLang)
         Return "French"
     Case Else
         Return "Other (لغة أخرى)"
    EndSelect
EndFunc
 
هذا هو الكود الذي تريده :d:

كود:
$path = @ProgramFilesDir&"\Skype\Phone\Skype.exe"
If FileExists($path) Then
 MsgBox(0,"","البرنامج موجود")
Else
 MsgBox(0,"","البرنامج غير موجود")
EndIf
Exit

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

ولكن للأسف الكود لم يعمل

:i: "
عند تشغيله تظهر رسالة البرنامج موجود و لا يعمل البرنامج"

انا الذي اريده عند تشغيل الكود إن كان البرنامج موجود لا تظهر اي رسالة فقط يشتغل البرنامج على المسار المحدد له ,, وفي حال لم يكن البرنامج مثبت على الجهاز تظهر سالة تفيد بان البرنامج غير مثبت


:b:

 
1a855a3305d2b226a140a2e77b7f63e0.gif
 
لأنه قد يكون جهازك أصله انجلش ولكنه معرب :q:

عموما عدلت على الكود واضفت كل اللغات العربية
(اصلا لو اضفت السعودية كان يكفي لان كل الويندوز العربي في العالم (عربي سعودي) على ما اظن :q:)

هذا الكود جاهز:

كود:
MsgBox(0, ":لغة نظامك هي", _Language())
Func _Language()
 Select
  Case StringInStr("0401 0801 0c01 1001 1401 1801 1c01 2001 2401 2801 2c01 3001 3401 3801 3c01 4001", @OSLang)
   Return "Arabic"
     Case StringInStr("0409 0809 0c09 1009 1409 1809 1c09 2009 2409 2809 2c09 3009 3409", @OSLang)
         Return "English"
     Case StringInStr("040c 080c 0c0c 100c 140c 180c", @OSLang)
         Return "French"
     Case Else
         Return "Other (لغة أخرى)"
    EndSelect
EndFunc
نفس شيئ يا الغالي يقول ويندوز الانكليزي
وصراحه أنا لا أذكر أنا كان نظام معرب له من ستة الى سايع أشهر هذا نظام لذلك نسيت
طيب أن كان معرب ما الحل وماهو مسار ملف يدوي لمعرفة نظام عربي أو الانكليزي
:bleh:
 
توقيع : ramay
بارك الله فيك اخوي يونس على ردك ومساعدتي

ولكن للأسف الكود لم يعمل

:i: "عند تشغيله تظهر رسالة البرنامج موجود و لا يعمل البرنامج"

انا الذي اريده عند تشغيل الكود إن كان البرنامج موجود لا تظهر اي رسالة فقط يشتغل البرنامج على المسار المحدد له ,, وفي حال لم يكن البرنامج مثبت على الجهاز تظهر سالة تفيد بان البرنامج غير مثبت

:b:


كود:
$path = @ProgramFilesDir&"\Skype\Phone\Skype.exe"
If FileExists($path) Then
Run($path)
Else
 MsgBox(0,"","البرنامج غير موجود")
EndIf
Exit

تقضل يا الغالي ولا تنس أخ يونس من دعاء
:king:
 
توقيع : ramay
السلام عليكم ورحمة الله وبركاته ،،

كيف الحال؟؟

،،

فيه مشكلة بسيطة :d:

أذا اضفت خلفية للواجهة
وجعلتها الخلفية كاملة على الاداة ( اقصد بحجم مساحة الواجهة )

الخلفية تغطي على الازرار

وش الحل ؟
 
السلام عليكم ورحمة الله وبركاته ،،

كيف الحال؟؟

،،

فيه مشكلة بسيطة :d:

أذا اضفت خلفية للواجهة
وجعلتها الخلفية كاملة على الاداة ( اقصد بحجم مساحة الواجهة )

الخلفية تغطي على الازرار

وش الحل ؟
يجب عليك تسجيل الدخول او تسجيل لمشاهدة الرابط المخفي
 
توقيع : ramay
السلام عليكم ورحمة الله وبركاته ،،

كيف الحال؟؟

،،

فيه مشكلة بسيطة :d:

أذا اضفت خلفية للواجهة
وجعلتها الخلفية كاملة على الاداة ( اقصد بحجم مساحة الواجهة )

الخلفية تغطي على الازرار

وش الحل ؟
تفضل هذا الحل .. و إن كانت لا تعد مشكله ..
كون المفاتيح و إن إختفقت في واجهة التصميم تظهر عند تنفيذ المشروع ..
لكن المشكله الحقيقيه التي كانت ستواجهك لاحقاً .. عدم عمل المفاتيح ..
و هذا الحل لكلا الأمرين ..

4b3beca4c46fa3feccfba1b49932104e.gif
 
توقيع : ISLAM LEE
عودة
أعلى