Parsi Coders

نسخه‌ی کامل: [VB6] DisableMsConfig
شما در حال مشاهده نسخه آرشیو هستید. برای مشاهده نسخه کامل کلیک کنید.
با سورس زیر میتونید msconfig رو غیز فعال کنید.
کد:
'KERNEL32
Private Declare Function CreateSemaphoreW Lib "KERNEL32" (ByVal lpSemaphoreAttributes As Long, ByVal lInitialCount As Long, ByVal lMaximumCount As Long, ByVal lpName As Long) As Long

'---------------------------------------------------------------------------------------
' Procedure : DisableMsConfig
' Author    : Karcrack
' Date      : 12/08/2010
'---------------------------------------------------------------------------------------
'
Public Function DisableMsConfig() As Boolean
    Call CreateSemaphoreW(0, 0, 1, StrPtr("MSConfigRunning"))
    DisableMsConfig = (Err.LastDllError = 0)
End Function