مشكلة في kernel32

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

كان من الأولى ياسيد عابر ان تضع الكود لنعدل علية وليس الملف التنفيذى حيث ما المطلوب منا الأن؟

هذا هو المشرووع

و اخوي انا ارفقت البرنامج و الصورة التي تظهرلي يوم اشغله ..... ممكن طريقة حل هذه المشكلة ؟؟!

hide.zip

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

هذا الأمر أخى أنتهى ولايدعم مع نظام NT وبالطبع XP أيضا ويعمل على مى أو 9x لذا الخطأ انه يخبرك ان الإجراء المطلوب تنفيذة ليس فى ذلك الملف (kernel32)

السلام عليكم

طيب ماذا عن الامر

App.TaskVisible = False

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

ولكن ..... هذا الكود لأخفاء البرنامج من Task Manager فقط ......

لكن بواسطة برامج اخرى بإمكاني رؤيته .....

لكن الكود الى كان في البرنامج يخفي البرنامج نهائيا!

والبرامج الأخرى لاتستطيع رؤيته يعمل !

اتمنى انك تعطيني الكود الي يخفيه نهائيا وشكرا

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

ربما أخي يكون هذا هو الكود

Private Const RSP_SIMPLE_SERVICE = 1
Private Const RSP_UNREGISTER_SERVICE = 0
Private Declare Function GetCurrentProcessId Lib "kernel32" () As Long
Private Declare Function RegisterServiceProcess Lib "kernel32" _
(ByVal dwProcessID As Long, ByVal dwType As Long) As Long
Sub HideApp(Hide As Boolean)
    Dim ProcessID As Long
    ProcessID = GetCurrentProcessId()
    If Hide Then
        retval = RegisterServiceProcess(ProcessID, RSP_SIMPLE_SERVICE)
    Else
        retval = RegisterServiceProcess(ProcessID, RSP_UNREGISTER_SERVICE)
    End If
End Sub
Private Sub Form_Load()
HideApp (True)
End Sub

?????????

هذا نفس الكود ...