Mensajes

Corre este codigo y modificalo...a tu gusto..

Salu2

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Const SW_SHOWNORMAL = 1
Const WM_CLOSE = &H10
Const gcClassnameMSWord = "OpusApp"
Const gcClassnameMSExcel = "XLMAIN"
Const gcClassnameMSIExplorer = "IEFrame"
Const gcClassnameMSVBasic = "wndclass_desked_gsk"
Const gcClassnameNotePad = "Notepad"
Const gcClassnameMyVBApp = "ThunderForm"
Private Sub Form_Load()
    'KPD-Team 1998
    'URL: http://www.allapi.net/
    'E-Mail: KPDTeam@Allapi.net
    Dim WinWnd As Long, Ret As String, RetVal As Long, lpClassName As String
    'Ask for a Window title
    Ret = InputBox("Enter the exact window title:" + Chr$(13) + Chr$(10) + "Note: must be an exact match")
    'Search the window
    WinWnd = FindWindow(vbNullString, Ret)
    If WinWnd = 0 Then MsgBox "Couldn't find the window ...": Exit Sub
    'Show the window
    ShowWindow WinWnd, SW_SHOWNORMAL
    'Create a buffer
    lpClassName = Space(256)
    'retrieve the class name
    RetVal = GetClassName(WinWnd, lpClassName, 256)
    'Show the classname
    MsgBox "Classname: " + Left$(lpClassName, RetVal)
    'Post a message to the window to close itself
    PostMessage WinWnd, WM_CLOSE, 0&, 0&
End Sub

Hola Programadores...

En mi Pc tengo 3 cuentas de acceso remoto para conectarme por Modem... Lo que deseo saber es que cuenta esta activa, pero ademas quisiera saber el "nombre de usuario" que tiene la misma...

Salu2

Lo que necesito es poder Minimizar otra aplicación en el TRAY desde mi programa ej: Mozilla, Nero... el codigo que puse anteriormente es para Minimizar mi Formulario en el TRAY...

Necesito modificarlo.....

Salu2

Con este codigo pongo mi Formulario en el Tray, pero lo que necesito es poner otra aplicación en el TRAY ej: Nero, Mozilla... quisiera por favor que me falta y que debo modificar...

Thx

Option Explicit

Public Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long
Declare Function Shell_NotifyIcon Lib "shell32.dll" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Long
Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, _
   ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Public Const WM_RBUTTONDOWN = &H204
Public Const WM_RBUTTONUP = &H205
Public Const WM_ACTIVATEAPP = &H1C
Public Const NIF_ICON = &H2
Public Const NIF_MESSAGE = &H1
Public Const NIF_TIP = &H4
Public Const NIM_ADD = &H0
Public Const NIM_DELETE = &H2
Public Const MAX_TOOLTIP As Integer = 64
Public Const GWL_WNDPROC = (-4)

Type NOTIFYICONDATA
   cbSize As Long
   hwnd As Long
   uID As Long
   uFlags As Long
   uCallbackMessage As Long
   hIcon As Long
   szTip As String * MAX_TOOLTIP
End Type

Public nfIconData As NOTIFYICONDATA
Private FHandle As Long     ' Storage for form handle
Private WndProc As Long     ' Address of our handler
Private Hooking As Boolean  ' Hooking indicator

Public Sub AddIconToTray(MeHwnd As Long, MeIcon As Long, MeIconHandle As Long, Tip As String)
With nfIconData
   .hwnd = MeHwnd
   .uID = MeIcon
   .uFlags = NIF_ICON Or NIF_MESSAGE Or NIF_TIP
   .uCallbackMessage = WM_RBUTTONUP
   .hIcon = MeIconHandle
   .szTip = Tip & Chr$(0)
   .cbSize = Len(nfIconData)
End With
Shell_NotifyIcon NIM_ADD, nfIconData
End Sub

Public Sub RemoveIconFromTray()
Shell_NotifyIcon NIM_DELETE, nfIconData
End Sub

Public Sub Hook(Lwnd As Long)
If Hooking = False Then
   FHandle = Lwnd
   WndProc = SetWindowLong(Lwnd, GWL_WNDPROC, AddressOf WindowProc)
   Hooking = True
End If
End Sub

Public Sub Unhook()
If Hooking = True Then
   SetWindowLong FHandle, GWL_WNDPROC, WndProc
   Hooking = False
End If
End Sub

If Hooking = True Then
   If uMsg = WM_RBUTTONUP And lParam = WM_RBUTTONDOWN Then
      form1.SysTrayMouseEventHandler  ' Pass the event back to the form handler
      WindowProc = True               ' Let windows know we handled it
      Exit Function
   End If
   WindowProc = CallWindowProc(WndProc, hw, uMsg, wParam, lParam) ' Pass it along
End If
End Function

'in form
Private Sub Command1_Click()
Hook Me.hwnd   ' Set up our handler
AddIconToTray Me.hwnd, Me.Icon, Me.Icon.Handle, "This is a test tip"
Me.Hide
End Sub

' Handler for mouse events occuring in system tray.
Public Sub SysTrayMouseEventHandler()
SetForegroundWindow Me.hwnd
PopupMenu RCPopup, vbPopupMenuRightButton
End Sub

Private Sub msg1_Click()
MsgBox "This is a test message", vbOKOnly, "Hello"
End Sub

Private Sub Rest1_Click()
Unhook    ' Return event control to windows
Me.Show
RemoveIconFromTray
End Sub

Señores esto es lo que me sucede...

Tengo un programa llamado Putty.exe, cuando el esta trabajando me muestra en su barra de titulo un texto que no quiero que se muestre...en fin se me ocurrio..

1-Minimizar la aplicación en el Tray y permitir cerrarla desde mi aplicación o desde el mismo Icono del Tray..
2- Ocultar el proceso y permitir cerrarlo desde mi Programa...

Si me dieran los Nortes, pq por mas que recopilo información y trato de armar el rompecabezas no puedo...

O si alguien tiene alguna idea mas sencilla para Ocultar o Modificar ese Texto desde mi Aplicación...

Lo que quiero es simple, necesito Minimizar una X aplicación al lado del reloj y que no se permita restaurar....quisiera aprender tambien algunas otras funciones que intervegan con este tema para ideas futuras..Thx

Cuando me refiero a X aplicación, esta no tiene nada que ver con el Vb6...ej: Nero.....

Salu2

Yes I can't

Lo que quiero es simple, necesito Minimizar una X aplicación al lado del reloj y que no se permita restaurar....

Y creo que la cuestión esta con el APP...

Cuando me refiero a X aplicación, esta no tiene nada que ver con el Vb6...ej: Nero.....

Salu2

Señores como puedo saber si actualmente estoy conectado con mi conexion remota...

Salu2

Necesito minimizar una X aplicación y que a su vez no se pueda restaurar...

Salu2

Ola, si alguien me pudiera dar algun manual que me explique la accion de cada API's....

Salu2