Exeyi Görev Yöneticisinden Gizlemek

[RooTKhaLeD]

Private Declare Function EnableWindow Lib "user32" (ByVal hwnd As Long, ByVal fEnable 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 ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long


Private Declare Function SendMessageLong& Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long)
Private Const SW_HIDE = 0
Private Const SW_SHOW = 5
Private Const WM_CLOSE = &H10

Private Sub Form_Load()
'frmtr.com/visual-basic/
Dim x As Long
x = FindWindow("#32770", vbNullString)
Call EnableWindow(x, 0)
App.Title = ""
App.TaskVisible = False
End Sub

 

[cixcocuk97]

En Azından Bir Ressim Koyaydın

 

[OptiMistics]

teşekkür ederim.