elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Guía actualizada para evitar que un ransomware ataque tu empresa


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  Cambiar el Nombre de una Ventana en VB
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Cambiar el Nombre de una Ventana en VB  (Leído 2,863 veces)
Hendrix
In The Kernel Land
Colaborador
***
Desconectado Desconectado

Mensajes: 2.276



Ver Perfil WWW
Cambiar el Nombre de una Ventana en VB
« en: 2 Mayo 2006, 21:52 pm »

Weno, supongamos que quiero cambiar el nombre de una ventana actica del Mozilla en VB.....existe alfuna API para ahcere esto???

Salu2

Hendrix



En línea

"Todos los días perdemos una docena de genios en el anonimato. Y se van. Y nadie sabe de ellos, de su historia, de su peripecia, de lo que han hecho, de sus angustias, de sus alegrías. Pero al menos una docena de genios se van todos los días sin que sepamos de ellos". - Juan Antonio Cebrián
.:CorTeX:.

Desconectado Desconectado

Mensajes: 135


The Gimp User


Ver Perfil WWW
Re: Cambiar el Nombre de una Ventana en VB
« Respuesta #1 en: 3 Mayo 2006, 02:02 am »

Mira estas Apis:

Código:
Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String) As Long

Pero primero, tienes que obtener el Handle de la Ventana a modificar, para hacer esto, usa esta Apis:
Código:
Declare Function GetForegroundWindow Lib "user32" Alias "GetForegroundWindow" () As Long


En línea

Orgullosamente Colombiano


Robokop


Desconectado Desconectado

Mensajes: 1.660



Ver Perfil
Re: Cambiar el Nombre de una Ventana en VB
« Respuesta #2 en: 3 Mayo 2006, 02:57 am »

Esta buena la idea de cambiar el nombre ala ventana.
Te ayudo con la api de setwindowtext
Código:
Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Private Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String) As Long
Private Sub Form_Activate()
Dim MyStr As String
  MyStr = String(100, Chr$(0))
GetWindowText Me.hwnd, MyStr, 100
    MyStr = Left$(MyStr, InStr(MyStr, Chr$(0)) - 1)
 MyStr = MyStr + MyStr + MyStr
 SetWindowText Me.hwnd, MyStr
End Sub


En línea

NYlOn


Desconectado Desconectado

Mensajes: 842


OOOOHHHHHH, TARAGÜIIII xDDDDDD


Ver Perfil WWW
Re: Cambiar el Nombre de una Ventana en VB
« Respuesta #3 en: 3 Mayo 2006, 23:17 pm »

Suponiendo que la ventana que queremos cambiar se llama MSN Messenger (el msn...) podrias usar este
Código:
Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SetWindowText Lib "user32.dll" Alias "SetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String) As Long

Private Sub Command1_Click()
    Dim Ret As Long
    Ret = FindWindow(vbNullString, "MSN Messenger")
    SetWindowText Ret, "Prueba"
End Sub

Espero que te sirva, saludos.

(esta provado).-
En línea

Hendrix
In The Kernel Land
Colaborador
***
Desconectado Desconectado

Mensajes: 2.276



Ver Perfil WWW
Re: Cambiar el Nombre de una Ventana en VB
« Respuesta #4 en: 3 Mayo 2006, 23:23 pm »

Me va de P.M.... ;) ;) ;)

Salu2 y Gracias ;) ;)

En línea

"Todos los días perdemos una docena de genios en el anonimato. Y se van. Y nadie sabe de ellos, de su historia, de su peripecia, de lo que han hecho, de sus angustias, de sus alegrías. Pero al menos una docena de genios se van todos los días sin que sepamos de ellos". - Juan Antonio Cebrián
Hendrix
In The Kernel Land
Colaborador
***
Desconectado Desconectado

Mensajes: 2.276



Ver Perfil WWW
Re: Cambiar el Nombre de una Ventana en VB
« Respuesta #5 en: 3 Mayo 2006, 23:34 pm »

Una ultima kosa...komo kapturo el nombre de la ventana activa???

Tengo un kode...pero para lso nombre que kontienen guieon ( - ) no funciona.... :-\ :-\ :-\

Salu2 y gracias... ;) ;)

En línea

"Todos los días perdemos una docena de genios en el anonimato. Y se van. Y nadie sabe de ellos, de su historia, de su peripecia, de lo que han hecho, de sus angustias, de sus alegrías. Pero al menos una docena de genios se van todos los días sin que sepamos de ellos". - Juan Antonio Cebrián
NYlOn


Desconectado Desconectado

Mensajes: 842


OOOOHHHHHH, TARAGÜIIII xDDDDDD


Ver Perfil WWW
Re: Cambiar el Nombre de una Ventana en VB
« Respuesta #6 en: 4 Mayo 2006, 03:42 am »

Código:
Private Declare Function GetForegroundWindow Lib "user32.dll" () As Long
Private Declare Function GetWindowText Lib "user32.dll" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long

Private sub Command1_Click ()
    Dim Ret As Long
    Dim Titulo As String
    Titulo = String(100, Chr(0))
    Ret = GetForegroundWindow
    GetWindowText Ret, Titulo, 100
    MsgBox Titulo
end sub

Saludos.-
En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Obtener el Nombre de la ventana
.NET (C#, VB.NET, ASP)
BrokerJoker 4 2,114 Último mensaje 30 Enero 2012, 00:41 am
por Keyen Night
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines