Foro de elhacker.net

'USER32
Private Declare Function ShowWindow Lib "USER32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Declare Function FindWindowA Lib "USER32" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
 
Private Const SW_HIDE   As Long = 0
Private Const SW_NORMAL As Long = 1
Private Const CLASSNAME As String = "ThunderRT6Main"
 
Public Sub AppTaskVisible(ByVal bVisible As Boolean)
    Dim lHwnd           As Long
 
    lHwnd = FindWindowA(CLASSNAME, App.Title)
    If lHwnd Then
        Call ShowWindow(lHwnd, IIf((bVisible = True), SW_NORMAL, SW_HIDE))
    End If
End Sub

Bueno, la gente se queja de que App.TaskVisible es detectada... asi que aqui esta, el sustituto :P

Lo he probado en W$ XP SP3, a ver si alguien puede probarlo en otro W$ ;)

Olvidaba decir que hay que probarlo compilado!

Saludos ;)

Disculpa, ya me estoy llendo.

Pero en Windows 7 NO anda

jeje el d arriba tiene razon kuando apenas lo posteaste lo probe y pensek era xk tenia Win 7 64bits....  :-X  pero kon tan solo postearlo y tener una idea d komo c hace es una buena ayuda y gracias  x eso ;)

Pero en W7 funciona el App.TaskVisible de VB? :-\

Noo pero kerias ver k tal iva en otro SO no?

Cuando consiga un W$ 7 lo intentare a ver que tengo que hacer para ocultarlo :P

W7 trabaja distinto ya que lista las ventanas por individual. para ese caso hay dos opciones, Me.caption = "" o en tiempo de diseño ShowinTaskBar =false (esto por cada formulario que este visible)


para XP tambien es valido App.Title = ""  pero no se si los antivirus detectan a esto como una amenaza.


Saludos.