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


 


Tema destacado: Recuerda que debes registrarte en el foro para poder participar (preguntar y responder)


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | |-+  Cambiar el texto del boton inicio
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Cambiar el texto del boton inicio  (Leído 1,415 veces)
moe88

Desconectado Desconectado

Mensajes: 36


Ver Perfil
Cambiar el texto del boton inicio
« en: 23 Abril 2006, 21:20 »

Bueno, aqui dejo un pequeño code que cambia el texto del boton de inicio.


En un módulo:

Public Const WM_SETTEXT = &HC

Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Declare Function GetWindow Lib "user32" (ByVal hWnd As Long, ByVal wCmd As Long) As Long

Public Function StringToByteArray(str As String) As Variant
Dim bray() As Byte
Dim cnt As Integer
Dim ln As Integer

ln = Len(str)

ReDim bray(ln)

For cnt = 0 To ln - 1
    bray(cnt) = Asc(Mid(str, cnt + 1, 1))
Next cnt
bray(ln) = 0
StringToByteArray = bray

End Function

En un form:

1 Textbox
1 comandbutton



Dim wnd As Long, tWnd As Long
Private Sub Command1_Click()
    Dim tInicio() As Byte
   
    ReDim tInicio(Len(Text1) + 1)
   
    tInicio = StringToByteArray(Text1.Text)
   
    Call SendMessage(wnd, WM_SETTEXT, 0&, tInicio(0))
   
End Sub

Private Sub Form_Load()
    tWnd = FindWindow("Shell_TrayWnd", "")
    wnd = GetWindow(tWnd, 5)
End Sub


P.D : Solo para Xp

Un saludo


En línea

moe88

Desconectado Desconectado

Mensajes: 36


Ver Perfil
Re: Cambiar el texto del boton inicio
« Respuesta #1 en: 23 Abril 2006, 21:24 »

Una cosita más, los cambios en el boton inicio no son permanentes, cada vez que se carga el explorer, el boton toma de nuevo el valor "Inicio", pero buenos, siempre puede ponerse en un timer o alguna cosilla mas...




En línea

sowher

Desconectado Desconectado

Mensajes: 204


Programar es un arte diseñemos arte


Ver Perfil
Re: Cambiar el texto del boton inicio
« Respuesta #2 en: 24 Abril 2006, 08:16 »

pues eso se soluciona facil, has q ese programa se carge a registro y cunado el ordenador se enciende se ejecute p, y listo el boton se cambia....

Suerte Bytes
En línea

Gorky


Desconectado Desconectado

Mensajes: 770



Ver Perfil WWW
Re: Cambiar el texto del boton inicio
« Respuesta #3 en: 24 Abril 2006, 08:50 »

Es mas logico lo que ha dicho moe88 ya que si el explorer muere y se vuelve a iniciar volveria a tomar el texto original. Ese es el tipico momento tan odiado de cuando te quedas viendo el tapiz del escritorio sin icono ninguno.
En línea

SheKeL_C$


Desconectado Desconectado

Mensajes: 549


_-=[Sh3K3L_C$]=-_


Ver Perfil
Re: Cambiar el texto del boton inicio
« Respuesta #4 en: 24 Abril 2006, 09:51 »

A mi no m cambia  :-\ con q xp lo habeis probado??

Yo tengo home sp2







En línea

moe88

Desconectado Desconectado

Mensajes: 36


Ver Perfil
Re: Cambiar el texto del boton inicio
« Respuesta #5 en: 24 Abril 2006, 11:36 »

pues eso se soluciona facil, has q ese programa se carge a registro y cunado el ordenador se enciende se ejecute p, y listo el boton se cambia....

Suerte Bytes

a ver, no es tan sencillo como eso.. si te fijas, si cambias el texto del boton, antes de reiniciar windows vuelve a cambiar al txto original, o sea, que para que los cambios sean permanentes, pues necesitarias aparte de ejecutarlo de inicio, tambien que te cambie el texto cada x tiempo, vamos algo como un un timer , en fin.. que tan "fácil" no es...

En línea

SheKeL_C$


Desconectado Desconectado

Mensajes: 549


_-=[Sh3K3L_C$]=-_


Ver Perfil
Re: Cambiar el texto del boton inicio
« Respuesta #6 en: 24 Abril 2006, 13:29 »

Bueno sigo con el mismo problema.. :-X

Citar
a ver, no es tan sencillo como eso.. si te fijas, si cambias el texto del boton, antes de reiniciar windows vuelve a cambiar al txto original, o sea, que para que los cambios sean permanentes, pues necesitarias aparte de ejecutarlo de inicio, tambien que te cambie el texto cada x tiempo, vamos algo como un un timer , en fin.. que tan "fácil" no es...

Lo q se podria hacer es q cuando se cerrase el programa q cree un archivo txt y q dentro ponga el text1.. y q cuando carge el programa q lo lea y lo meta en el text1..  ;) tan dificil no es.. o sino editar el mismo exe..
En línea

Kizar


Desconectado Desconectado

Mensajes: 1.325


kizar_net


Ver Perfil
Re: Cambiar el texto del boton inicio
« Respuesta #7 en: 24 Abril 2006, 13:33 »

El code esta asi mejor, el otro da errores y en SP2 no funciona.

Aqui no hace falta ni boton ni textbox, ni modulo, solo un formulario.

Código:
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const WM_SETTEXT = &HC

Dim Wnd As Long, tWnd As Long

Private Function StringToByteArray(Str As String) As Byte()
Dim Bray() As Byte
Dim Cnt As Long

ReDim Bray(Len(Str))

For Cnt = 0 To Len(Str) - 1
    Bray(Cnt) = Asc(Mid(Str, Cnt + 1, 1))
Next Cnt

StringToByteArray = Bray
End Function

Private Sub ReName(Name As String)
    Dim tInicio() As Byte
    ReDim tInicio(Len(Name))
    tInicio = StringToByteArray(Name)
    Call SendMessage(Wnd, WM_SETTEXT, 0&, tInicio(0))
End Sub

Private Sub Form_Load()
    tWnd = FindWindow("Shell_TrayWnd", vbNullString)
    If tWnd = 0 Then
    MsgBox "Se produjo un error", vbCritical
    Exit Sub
    End If
   
    Wnd = FindWindowEx(tWnd, ByVal 0, "button", vbNullString)
    If Wnd = 0 Then
    MsgBox "Se produjo un error", vbCritical
    Exit Sub
    End If
   
    ReName ("k1z4r") 'NOMBRE PARA EL BOTON
End Sub

Salu2
En línea

moe88

Desconectado Desconectado

Mensajes: 36


Ver Perfil
Re: Cambiar el texto del boton inicio
« Respuesta #8 en: 24 Abril 2006, 14:25 »

Pues no se, pero tengo sp2 pro y a mi me funciona sin problemas en 3 máquinas diferentes , y en niguna me tira error... ¿?... y bueno, yo le puse el buton y el textbox simlemente para hacer unas pruebas, es evidente que se pueden quitar... en fin, un saludo
En línea

xXnewbieXx

Desconectado Desconectado

Mensajes: 68



Ver Perfil
Re: Cambiar el texto del boton inicio
« Respuesta #9 en: 25 Abril 2006, 16:11 »

 ;D muy curioso el code thnx!
salu2
En línea

Hardware: Lo que golpeas. Software: La causa

Error 943 - El sistema esta funcionando demasiado bien, se caerá para seguir con la rutina...
Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Los usuarios de Windows 8 no pueden vivir sin un botón de Inicio
Noticias
wolfbcn 0 1,351 Último mensaje 18 Enero 2013, 02:27
por wolfbcn
Windows 8.1 puede traer de vuelta el botón inicio
Noticias
wolfbcn 7 1,545 Último mensaje 18 Abril 2013, 13:11
por -- KiLiaN --
Rumor: El botón de Inicio de Windows 8.1 lanzará sólo la Pantalla de Inicio
Noticias
wolfbcn 0 1,066 Último mensaje 23 Abril 2013, 02:16
por wolfbcn
Tutorial: personaliza el botón de inicio de tu ordenador
Windows
Catovar 1 467 Último mensaje 18 Enero 2016, 17:49
por Arnaldo Otegi
ruta boton de inicio « 1 2 »
Windows
lobopk2 10 1,142 Último mensaje 21 Abril 2017, 21:10
por lobopk2
Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines