مخفی کردن Start

[Sima18]

سلام دوستان عزیز :
من یه سوال دیگه در مورد مخفی کردن Start دارم اگه بهم بگین لطف بزرگی در حقم کردین دوستان :)

[اَرژنگ]

سوالتان چیه؟

[Zero.Zero]

khob soaleshoon hamon mozoshe dige makhfi kardan Start

[Zero.Zero]

khob soaleshoon hamon mozoshe dige makhfi kardan Start
Arzhang jouuuuuuuuun

[Payman62]

میخواد دکمه استارت ویندوز رو مخفی کنه.

[اَرژنگ]

این کار به چه دردی میخوره؟

[Payman62]

این کار به چه دردی میخوره؟
به هیچ دردی نمیخوره تنها مورد استفادش ایجاد مزاحمت برای دیگرانه. شاید ایشون میخواد یه تروجان بنویسه.

[S_VB.max]

Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
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 Const BUT_SHOW = 5
Private Const BUT_HIDE = 0
Dim Butttonhwnd As Long
Private Sub Form_Load()
Butttonhwnd = FindWindow("Shell_TrayWnd", "")
Butttonhwnd = FindWindowEx(Butttonhwnd, 0, "Button", vbNullString)
ShowWindow Butttonhwnd, BUT_HIDE 'To Hide

'ShowWindow Butttonhwnd, BUT_SHOW 'To Show
End Sub

[هانی هاشمی]

خیلی جالب بود دستت درد نکنه
اما بی نظم نوشتیش