comment
IRC Chat
play_arrow
Este sitio utiliza cookies propias y de terceros. Si continúa navegando consideramos que acepta el uso de cookies. OK Más Información.

Mostrar y ocultar iconos del escritorio

  • 0 Respuestas
  • 1579 Vistas

0 Usuarios y 1 Visitante están viendo este tema.

Desconectado Juan

  • *
  • Underc0der
  • Mensajes: 159
  • Actividad:
    0%
  • Reputación 0
  • Ex-Drinky
    • Ver Perfil
« en: Agosto 30, 2010, 06:35:37 pm »
Ahi le sva el source:

Código: Visual Basic
  1. 'By Drinky94
  2. Option Explicit
  3. Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" ( _
  4.     ByVal hWnd1 As Long, _
  5.     ByVal hWnd2 As Long, _
  6.     ByVal lpsz1 As String, _
  7.     ByVal lpsz2 As String) As Long
  8. Private Declare Function ShowWindow Lib "user32" ( _
  9.     ByVal hwnd As Long, _
  10.     ByVal nCmdShow As Long) As Long
  11. Const SW_SHOW = 5
  12. Const SW_HIDE = 0
  13. Enum Estado
  14.     Visible = 1
  15.     Oculto = 0
  16. End Enum
  17. Public Function Iconos(queacer As Estado)
  18.     Dim ventana As String
  19.     Dim modo As String
  20.     ventana = FindWindowEx(0&, 0&, "Progman", vbNullString)
  21.     If queacer = 0 Then
  22.         modo = ShowWindow(ventana, SW_HIDE)
  23.     Else
  24.         modo = ShowWindow(ventana, SW_SHOW)
  25.     End If
  26. End Function
  27.  


salu2!
« Última modificación: Mayo 12, 2014, 03:29:17 pm por Expermicid »

 

¿Te gustó el post? COMPARTILO!



[VB] Escritorio Remoto

Iniciado por ProcessKill

Respuestas: 2
Vistas: 2312
Último mensaje Julio 01, 2010, 08:17:28 pm
por 303010
Cambiar Iconos del MsgBox

Iniciado por ANTRAX

Respuestas: 0
Vistas: 1592
Último mensaje Julio 26, 2010, 03:51:38 pm
por ANTRAX