أريد برنامج لا يتم إنهاؤه

'Sub: DisableCtrlAltDel
'Description: Disables and Enables CTRL+ALT+DEL
'Where to place code: Module
'Notes: If bAble is set to False, the user may use CTRL+ALT+DEL
'       If bAble is set to True, the user may not use CTRL+ALT+DEL
'       WARNING: Remember to enable CTRL+ALT+DEL before your application closes
'
'http://www.littleguru.com
'==================================================

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

اضف هذه الشفره في مديول

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

'Insert this code to your form:

Private Sub DisableCtrlAltDelete(bDisabled As Boolean)
Dim x As Long
x = SystemParametersInfo(97, bDisabled, CStr(1), 0)
End Sub

وهذه الشفره لتعطيل الـ Alt+Ctrl+Delete

Private Sub Command2_Click()
DisableCtrlAltDelete (False)
End Sub

وهذه الشفره لاعادة تشغيل الـ Alt+Ctrl+Delete

Private Sub Command1_Click()
DisableCtrlAltDelete (True)
End Sub

بسم الله الرحمن الرحيم

السلام عليكم ورحمة الله وبركاته ...

أخي العزيز :: A7med_prof ::

أعتقد أن السائل يريد كودًا يعمل على جميع أنظمة التشغيل . والكود الذي طرحته يعمل فقط على 98 و ME .

سؤالي هنا هو ..

ما غرض الاخ السائل الكريم من عمل برنامج لا يمكن غلقه بأي طريقة كانت ؟؟؟؟؟؟؟؟

سوف تجد البرنامج دائما في ال Process ولذلك ضع في كود ال Unload تشغيل لنفس البرنامج مرة ثانية وتحقق اذا كان نظام التشغيل في وضع Shutdown علشان لا تسوي تشغيل للبرنامج

بسم الله الرحمن الرحيم

السلام عليكم ورحمة الله وبركاته ...

عزيزي النبهاني ، مرحبًا بك :

هناك عدة فوائد لهذه الطريقة كما لها العديد من المساوئ . ولكني أعتقد أن مساوئها أكثر من فوائدها.

لا يا أخوه

لا تفهموني خطأ

الغرض من هذا البرنامج عمل برنامج حملية من بعض المواقع السيئة

وقد سألت من قبل عن كيفية أخذ اسم الموقع المحمل و عرفت الطريقة و الآن أسأل عن منع هذا البرنامج من اطفاءه

السلام عليكم

اسمحولى اسال سؤال

هل الاكواد الموضوعة تعمل على xp

وتوقف فاعلية Alt+Ctrl+Delete

بسم الله الرحمن الرحيم

السلام عليكم ورحمة الله وبركاته ...

أخي new.net :

هذان الكودان لا يعملان إلا على ويندوز 98 و ME .

أخي محمد بدوي :

أما عن طريقتك و هي تشغيل البرنامج عند إنهائه فلم تنفع عندما تضعها في Unload

لأنه يمكن إنهاؤه من العمليات

ممكن اضافة هذا الكود

private sub form_load()

app.taskvisible=false

'وهذا الامر لاخفاء البرنامج من مدير المهام

end sub

private sub form_unload(cancel as integer)

cancel=1

end sub

'وبهذا الكود لايمكن انهاء برنامجك الا مع اعادة التشغيل B)