هل يمكن إخفاء برنامج من Task Manager

[mona_83]

أهلا يا أعضاء منتدى برامج نت :smailes91:

الحمد لله خلصت الإختبارات

و الله يعينكم على أسئلتنا البايخة :smailes69:

سؤالي في الـ vb6 هو كلتالي

هل صحيح أنة يوجد كود يخفي البرنامج من الـ Task Manager و بالتحديد من الـ Applications



بللللللللللللللللللليز ساعدوني:smailes36:

[memouz]

هذا الكود لاخفاء البرنامج من Alt+Ctrl+Del
يوضع في الموديول

Public Declare Function SystemParametersInfo& Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam As Any, ByVal fuWinIni As Long)

Public Sub DisableCtrlAltDel(bAble As Boolean)
If SystemParametersInfo(97, bAble, "1", 0) = 0 Then
' Insert Error Handling Code here
End If
End Sub

[(li) صقر (li)]

Private Sub Command1_Click()
Dim pid As Long
Dim reserv As Long
' لإخفاء البرنامج من قائمة إنهاء المهمة
pid = GetCurrentProcessId()
regserv = RegisterServiceProcess(pid, RSP_SIMPLE_SERVICE)
End Sub
Private Sub Command2_Click()
Dim pid As Long
Dim reserv As Long
'لإعداة إظهار البرنامج في قائمة إنهاء المهمة
pid = GetCurrentProcessId()
regserv = RegisterServiceProcess(pid, _
RSP_UNREGISTER_SERVICE)
End Sub


بعض التعليمات حول الكود :
1/ ضعي زرين أمر (بدون تغيير اسمائهم الافتراضية) وافتحي نافذة الكود الخاصة بالفورم وأزيلي ما فيها وضعي الكود الأزرق ثم إذا ارتدي أن تزيلي البرنامج من قائمة انهاء المهمة فضعي الكود الأحمر , وإذا ارتد أن تعيده بعد حذفه فضعي الكود الأخضر

ولا تضعي ما هو باللون الأصفر


والسلام......

[mona_83]

أخ memouz حطيت الكود في المودل بس ماصار شي
:smailes61:
ممكن بليززز توضح أكثر لو سمحت
=============================

الأخ صقر سويت الخطوات ستب باي ستب :smailes73:
لاكن إذا ضغطت على أحد الأزرار يعطيني مسج إرور (sub or function not defined)


:smailes85:

[mona_83]

help me guys

[(li) صقر (li)]

هل قمت بتغيير أسماء أزرار الأمر ؟إذا كانت الإجابة بالنفي , فأنا آسف جداً فهذا كل ما لدي

[(li) صقر (li)]

هل قمت بتغيير أسماء أزرار الأمر قبل أو بعد وضع الكود ؟
إذا كانت الإجابة بالنفي , فأنا متأسف فهذا كل ما استطيعه

أنا عارف إن العملية دي تعتمد على
حذف إسم البرنامج من قائمة انهاء المهمة
عن طريق حذف إحدى قيم الرجستري

[memouz]

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

[memouz]

هذا هو اختي كود من سطر واحد
Private Sub Form_Load()

App.TaskVisible = False

'لاعادة الظهور : App.TaskVisible =True

End Sub

وضعت الكود في فورم لود أي يعمل مع بدء عمل البرنامج و لا يمكن ظهور البرنامج في التاسك منجر
أرجو أن أكون وفقت

[mona_83]

شكرا كثييييييييير لك memouz
الحقيقة أنا أمس حاولت كثثثثثثثثثثثثثثثثثثثثثثثثثثثثثثثثثثثثثير

دخلت مواقع بريطانية و أسترالية

وحاولت و حاولت إلين ما عرفت الكود

و صدقني يا memouz راح تضحك و تستغرب لمن تكتشف زي ما أنا إكتشفت
إن الكود ما يتعدى (((نصف صطر)))

و هذا هو الكود
Private Sub Form_Load()
App.Title = ""
End Sub

ملاحظة : أشكرك على الرسالة الخاصة

[(li) صقر (li)]

شكراً أخي العزيز على الكود , لقد استفدت منه كثيراً