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

!!!!!!!!

ما اظن انها بتلك الصعوبة

وما اظن انكم تبخلوا علينا

انا بإنتظار جواباتكم

والعفوا .

ياجماعة قولوا لى

ماتصير مافى كود يعمل الآتى

طرحك مو واضح

اى شى بس ماتسكتوا :angry: :angry:

هذا الكود يجعل البرنامج لا يظهر فى قائمة المهام

App.TaskVisible = False

هانى ولله الف شكر ع مرورك

بس اخوى الكود ده ماينفع مع الـ XP

وتقبل تحياتى

والكود ده بيغير اسم البرنامج فى قائمة المهام

app.title= "hhh"

اخوي لكن بكون ظاهر فى قسم العمليات صح

والغرض هو انى اجعلة يختفى منها او لايمكن حذفه

وجزاك لله الف خير

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

و لكن لتفعل هذا يجب ان يكون جزء من برنامجك منصب كsystem service و ليس كبرنامج عادى !

اها xhacker اخوي

هذا الى قصدى

بس كيف اجعل برنامجى منصب كـ system service وليس كبرنامج عادى

وجزاك الله الف خير

اعتقد ان هذا لا يمكن ادائة بالفيجوال بيسك بسهولة !جرب ال C!!

يعنى بالـفيجوال بيسك ماتصلح !!!!!!!!!!

دلونا ياخبراء

وينكم

الفكرة بس ان الموضوع شائك و معقد بعض الشىء و لم يتم تناوله بالفيجوال بيسك من قبل ! :unsure:

و لكن ليس معنى هذا ان الفيجوال لا تستطيع و إلا لما كانت لغة برمجة اساسا! B)

و على اى حال فأنا ايضا منتظر معك رد الخبراء فى هذا الموضوع الذى يمكن ان يفيدنا بجد لو احسنا استغلاله! :rolleyes:

أمامك حل من اتنين اما أن تستخدم الـ API ,أو تتنطلق الي فيجوال بيسك دوت نت الذي يتيح لك عمل مشروع من النوع Services بكل سهوله ,,,

أما لو حبيت تستخدم الـ API فأمامك برنامج API Guide فهو يحتوي علي دوال لعمل Service بس ازاي مش عارف ,بس طبعا الدوت نت أفضل B) ,,,

السلام عليكم،،

اخي العزيز .....

راجع المرفقات وان شاء الله ستجد الجواب ان شاء الله تعالى

اخيكم

حــ خيري ـــازم

NTsvc.rar

hazzoom شكرا على مرور والتوضيح

ويالله بنحاول نعملة بالـ API

HKM شكرا على المرفق الى وضعته

وإن شاء الله بتكون ضالتى فية

تحياتى لكم

السلام عليكم ،،

مثال برنامج API-Guide

Const ERROR_MORE_DATA = 234
Const SERVICE_ACTIVE = &H1
Const SERVICE_INACTIVE = &H2
Const SC_MANAGER_ENUMERATE_SERVICE = &H4
Const SERVICE_WIN32_OWN_PROCESS As Long = &H10
Const SERVICE_WIN32_SHARE_PROCESS As Long = &H20
Const SERVICE_WIN32 As Long = SERVICE_WIN32_OWN_PROCESS + SERVICE_WIN32_SHARE_PROCESS
Private Type SERVICE_STATUS
    dwServiceType As Long
    dwCurrentState As Long
    dwControlsAccepted As Long
    dwWin32ExitCode As Long
    dwServiceSpecificExitCode As Long
    dwCheckPoint As Long
    dwWaitHint As Long
End Type
Private Type ENUM_SERVICE_STATUS
    lpServiceName As Long
    lpDisplayName As Long
    ServiceStatus As SERVICE_STATUS
End Type
Private Declare Function OpenSCManager Lib "advapi32.dll" Alias "OpenSCManagerA" (ByVal lpMachineName As String, ByVal lpDatabaseName As String, ByVal dwDesiredAccess As Long) As Long
Private Declare Function EnumServicesStatus Lib "advapi32.dll" Alias "EnumServicesStatusA" (ByVal hSCManager As Long, ByVal dwServiceType As Long, ByVal dwServiceState As Long, lpServices As Any, ByVal cbBufSize As Long, pcbBytesNeeded As Long, lpServicesReturned As Long, lpResumeHandle As Long) As Long
Private Declare Function CloseServiceHandle Lib "advapi32.dll" (ByVal hSCObject As Long) As Long
Private Declare Function lstrcpy Lib "kernel32.dll" Alias "lstrcpyA" (szDest As String, szcSource As Long) As Long
Private Sub Form_Load()
    'KPD-Team 2000
    'URL: http://www.allapi.net/
    'E-Mail: KPDTeam@Allapi.net
    Dim hSCM As Long, lpEnumServiceStatus() As ENUM_SERVICE_STATUS, lngServiceStatusInfoBuffer As Long
    Dim strServiceName As String * 250, lngBytesNeeded As Long, lngServicesReturned As Long
    Dim hNextUnreadEntry As Long, lngStructsNeeded As Long, lngResult As Long, i As Long
    'Open connection to Service Control Manager.
    hSCM = OpenSCManager(vbNullString, vbNullString, SC_MANAGER_ENUMERATE_SERVICE)
    If hSCM = 0 Then
        MsgBox "OpenSCManager failed. LastDllError = " & CStr(Err.LastDllError)
        Exit Sub
    End If
    'Get buffer size (bytes) without passing a buffer
    'and make sure starts at 0th entry.
    hNextUnreadEntry = 0
    lngResult = EnumServicesStatus(hSCM, SERVICE_WIN32, SERVICE_ACTIVE Or SERVICE_INACTIVE, ByVal &H0, &H0, lngBytesNeeded, lngServicesReturned, hNextUnreadEntry)
    'We should receive MORE_DATA error.
    If Not Err.LastDllError = ERROR_MORE_DATA Then
        MsgBox "LastDLLError = " & CStr(Err.LastDllError)
        Exit Sub
    End If
    'Calculate the number of structures needed.
    lngStructsNeeded = lngBytesNeeded / Len(lpEnumServiceStatus(0)) + 1
    'Redimension the array according to our calculation.
    ReDim lpEnumServiceStatus(lngStructsNeeded - 1)
    'Get buffer size in bytes.
    lngServiceStatusInfoBuffer = lngStructsNeeded * Len(lpEnumServiceStatus(0))
    'Get services information starting entry 0.
    hNextUnreadEntry = 0
    lngResult = EnumServicesStatus(hSCM, SERVICE_WIN32, SERVICE_ACTIVE Or SERVICE_INACTIVE, lpEnumServiceStatus(0), lngServiceStatusInfoBuffer, lngBytesNeeded, lngServicesReturned, hNextUnreadEntry)
    If lngResult = 0 Then
        MsgBox "EnumServicesStatus failed. LastDllError = " & CStr(Err.LastDllError)
        Exit Sub
    End If
    'Get the strings and display them.
    Me.AutoRedraw = True
    Me.Print "All registered services:" + vbCrLf
    For i = 0 To lngServicesReturned - 1
        lngResult = lstrcpy(ByVal strServiceName, ByVal lpEnumServiceStatus(i).lpServiceName)
        Me.Print StripTerminator(strServiceName) + " - ";
        lngResult = lstrcpy(ByVal strServiceName, ByVal lpEnumServiceStatus(i).lpDisplayName)
        Me.Print StripTerminator(strServiceName)
    Next i
    'Clean up.
    CloseServiceHandle (hSCM)
End Sub
Function StripTerminator(sInput As String) As String
    Dim ZeroPos As Integer
    ZeroPos = InStr(1, sInput, Chr$(0))
    If ZeroPos > 0 Then
        StripTerminator = Left$(sInput, ZeroPos - 1)
    Else
        StripTerminator = sInput
    End If
End Function

ارجو ان يفيدك

اخوكم

حــ خيري ـــازم

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

لم أري المرفق نظرأ لأني في سيبر ولكن عندما تسنح لي الفرصة لرؤيته سأرأه بإذن الله

منذ فترة وضع أحد الأخوة هذا الموضوع في ولكن للأسف لم أجد ضالتي وتوجهت إلي البحث شهرا كاملا تقريبا وما فادني من البحث هو أني عرفت أن هذه النوعيات من العمليات تسمي Critical System Process ولم أعرف غير ذلك ولكن كيف تتم هذه العملية أي كيف أقوم بتحويل برنامجي التنفيذي إلي هذه لم أستطيع وحتي بالبحث

الذي أقصده هو عدم أخفاء لأن هذا شبه مستحيل مع نظام أكس بي لأنه يعرض للمستخدم كل العمليات التي تعمل في الوقت الحالي ولكن هناك بعض العمليات التي لا يمكن أيقافها من قبل المستخدم لأنها خاصة بنظام الويندوز أو ما شابه ذلك ونجد أيضا أن برنامج نورتن بتاع مكافحة الفيروسات الإصدارات الجديدة منها أتبعت هذه الخطوة في برامجها يعني العملية مش صعبة لكن السؤال الأن كيف نقوم بعملها من خلال الفيجوال بيسك وهذا أعتقد أنه سيكون صعب لأننا لن نستخدم أكواد مباشرة ولكن في أعتقادي أننا سنلجأ إلي توابع الأبي أي أو أي شئ غير كود فيجوال بيسك

وإليكم رأي العرب في هذا الرابط

/index.ph...=ST&f=1&t=67289

ورأي الغرب في هذا الرابط

http://www.vbforums.com/showthread.php?t=345459

وأنتظر علي أمل الحل

HKM شكرا على الكود وإن شاء الله يضبط معى

عمرو نورت صفحتنا وشكرا على تفاعلك وإن شاء الله تفيدنى آراء الكل

ولو وجدت حل ارجوا ان تخبرنى

تحياتى لكم جميعا

معني أنكم لا تزالوا تكتبون هنا أنكم وصلتم إلي حل في هذه المسألة

فإن وصلتم لها دلوني

تحياتي