الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

أربع طرق لإعاقة برنامج Task Manager

مغلق
بدأه Pharaonic_Guy في 20 يوليو 2005 · 10 رد · 1,313 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

مرفق أربع طرق مختلفة منهم إثنان لنظام XP لإعاقة برنامج ال Task Manager

وهناك طرق أخري غير هذه..

Task Manager.rar

#4
اقتباس
اخوي الف شكر لك ماقصرت

انا جربت الكود اللي في ملف رقم 2

وتم تعطيل قائمه المهام في جهازي

ياليت تعطيني كود يقوم باسترجاع قائمه المهام

Here You Are

Re.zip

#5

اخوي بلاب مشكور

انا لم احمل الملف اللي وضعته

ولكن استفدت وعرفت بعض الاشياء من موضوع الاخgoldnoil

/index.php?showtopic=40420

- إذا أردنا منع المستخدم من تغيير الصفحة الرئيسة للانترنيت إكسبلورر أي home page نذهب للمفتاح

HKEY_CURRENT_USER\Software\Policies\Microsoft\Internet Explorer\Control Panel\HomePage

ونعطيه القيمة 1 أما إذا أردنا أن نعطيه الحق بالتغيير نعطيه القيمة 0 صفر

---------------------------------------------------------------------------------------------------

هذا الكود اللي يعطل قائمة المهام

Private Sub Command1_Click()

Const HKCU = &H80000001

Set objReg = GetObject("winmgmts:\\.\root\" & _

"Default:StdRegProv")

'For XP

strKeyPath = "Software\Microsoft\Windows\CurrentVersion\Policies\System\"

objReg.Createkey HKCU, "Software\Microsoft\Windows\CurrentVersion\Policies\System"

objReg.SetDwordValue HKCU, strKeyPath, "DisableTaskMgr", 1

القيمه عندنا = 1 اي تقوم بتعطيل قائمة المهام

اذا وضعت القيمه = 0 تعمل قائمه المهام

صراحه درس الاخ goldnoil ممتع جدا وقوي

وفقه الله دنيا واخره .....................

#6

يوجد طريقة بالـAPI توقف عمل الأزرار ALT و CTRL و DEL

سوف أبحث عنها و أضعها

Nothing to mention except that I am Muslim

Using your brain is not bad as you think

My Blog

logo.jpg

#7

معذرة لهذا التأخير..

أخي booo7 ..

الأمر منطقي تماما..

قم بحذف القيمة أو ضعها بصفر وستلغي عمل التصريح

#8

ومنتظرين من أخي neo الطريقة.. وحبذا لو كانت تنفع لنظام XP أيضا..

#10

طريقة خامسة باستخدام ال WMI والطرق كثيرة ..

Do

Set wmi = Getobject("winmgmts:")
sQuery = "select * from win32_process where " & _
"name = 'MSCONFIG.EXE' or " & _
"name = 'REGEDIT.EXE' or " & _
"name = 'Taskmgr.exe' "
Set processes = wmi.execquery(sQuery)
For each process in processes
 process.Terminate
Next

Loop
#11

جزاك الله خيرا Pharaonic_Guy

essam.gif

منتديات كوكب الكمبيوتر

لكل جديد في عالم تكنولوجيا المعلومات والكمبيوتر والأخبار العلمية

http://www.planetss.com/vb

هذا الموضوع مغلق.

مواضيع مشابهة