قفل کردن دکمه Start و کلیدهای میانبر آن

[ferankyy]

سلام خدمت تمامی دوستان من میخواستم ببینم چطور دکمه Start و کلیدهای میانبری که مربوط به این دکمه میشه رو قفل کرد ؟؟ :متفکر: :قلب:

[reza_mn]

فایل Explorer که در حال اجراست رو از طریق توابع ای پی آی Close کنید

[Felony]

فایل Explorer که در حال اجراست رو از طریق توابع ای پی آی Close کنید

ایشون میخواد دکمه ی Start و کلیدهای میانبرش رو غیر فعال کنن ، نه کل رابط کاربری ویندوز رو ...

برای این کار با به دست آوردن هندل دکمه ی Start اون رو غیر فعال کنید و به وسیله ی هوک کردن توابع API به صورت سراسری میتونید کلید های میانبرش رو هم بردارید .

[ferankyy]

خیلی ممنون دوستان ولی میشه یه نمونه آموزش هم بزارید تا من بیشتر بفهمم . :لبخندساده::قلب:

[Felony]

این کدها را در قسمت General وارد کنید :


Private Declare Function FindWindow Lib "User32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal lParam As Long) As Long
Const WM_CLOSE = &H10

کد زیر رو هر جا که میخواهید دکمه ی Start غیر فعال شود بنویسید :


Dim MainClass As Long
Dim ChildClass As Long
MainClass = FindWindow("Shell_TrayWnd", vbNullString)
ChildClass = FindWindowEx(MainClass, 0&, "Button", vbNullString)

'Disable window
Call EnableWindow(ChildClass, False)

برای فعال شدن دوباره ی دکمه ی Start مقدار رو از False به True تغییر بدید .

در مرود هوک در VB هم اطلاعی ندارم ...

[ferankyy]

سلام من کد هایی که گفتی رو اضافه کردم ولی این Error میده :

http://takdid.parsaspace.com/22.jpg

[parselearn]

http://barnamenevis.org/forum/showthread.php?t=144282

[Felony]

سلام من کد هایی که گفتی رو اضافه کردم ولی این Error میده :

http://takdid.parsaspace.com/22.jpg
عکس رو خودت دیدی ؟ مطمئنی در رابطه با Error هست ؟