[gachboy]

سلام.چطور میتونیم ایکن برنامه ای از کنار ساعت برداریم؟
یا از پیغام دادنشون جلوگیری کنیم،مثلا وقتی فایروال disable میکنیم
پیغام میده،چطور باید از دادن پیغام جلوگیری کنیم؟

[Amin_Mansouri]

درود
شما باید هندل پنچره رو پیدا کنی hide کنی
یه مثال میزنم ببین :

کد:

Option Explicit
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds 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 SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Private Const SWP_SHOWWINDOW = &H40
Private Const SWP_HIDEWINDOW = &H80
Private Const SWP_NOMOVE = &H2
Private Const SWP_NOSIZE = &H1
Private Const SWP_NOACTIVATE = &H10
Private Const SW_HIDE = 0
Private Const SW_SHOW = 5

Sub HideMyApp()
    Dim hwd As Long

    hwd = FindWindow(vbNullString, "Untitled - Notepad")
    If hwd > 0 Then
        'ShowWindow hwd, SW_HIDE
         SetWindowPos hwd, 1, 0, 0, 0, 0, SWP_HIDEWINDOW Or SWP_NOMOVE Or SWP_NOSIZE
    End If
End Sub

Sub ShowMyApp()
    Dim hwd As Long
    hwd = FindWindow(vbNullString, "Untitled - Notepad")
    If hwd > 0 Then
        'ShowWindow hwd, SW_SHOW
        SetWindowPos hwd, 1, 0, 0, 0, 0, SWP_SHOWWINDOW Or SWP_NOMOVE Or SWP_NOSIZE
    End If
End Sub

[gachboy]

از کنار ساعت نه از taskbar

[Amin_Mansouri]

میدونم
سورس باید تو فروم گذاشته باشم
بگردید
به هر حال شما باید هندل رو بدست بیاری
تو سورس بالا یاد میگرید هندلو بدست بیاری
و مخفی کنی
کافیه هندل برنامه مورد نظر خود رو پیدا کنی مخفی کنی
http://www.freevbcode.com/ShowCode.asp?ID=671
http://support.microsoft.com/kb/88476