Consulta (Solucionado)

[̿̿̿̿̿̿̿̿̿̿̿̿̿̿̿̿̿̿̿̿̿̿̿̿̿̿̿]

Alguien tiene ese codigo que una vez postearon por a qui el que cambia el nombre del boton inicio

de antemano gracias

[̿̿̿̿̿̿̿̿̿̿̿̿̿̿̿̿̿̿̿̿̿̿̿̿̿̿̿]

ya olvidenlo ya lo encontre miren 



ni lo queria en realidad pero nada mas para el ocio

[jotahacker]

Oye, lo podrias colocar, me gustaria probarlo.
Gracias!!

[wACtOr]

yo lo que hacia para cambia el nombre era editar el explorer. exe con el reshack y buscaba el valor inicio, logo lo moidificaba y loguardaba como explorer2.exe

lo en el registro en:

HKEY_LOCAL_MACHINE\Software\Microsoft\Windows NT\Winlogon\
en la clave Shell, modificaba el explorer.exe por explorer2.exe y reiniciaba. es un metodo un poc xapucero, pero lo lei hace muxo y decidi probarlo.

espro que te sirva

[̿̿̿̿̿̿̿̿̿̿̿̿̿̿̿̿̿̿̿̿̿̿̿̿̿̿̿]

wACtOr buena opcion.

jotahacker sera un placer.

En formulario

Código (vb) [Seleccionar] Expandir

Dim wnd, tWnd As Long
Private Sub Command1_Click()

    Dim X() As Byte
   
    ReDim X(Len(Text1) + 1)
   
    X = StringToByteArray(Text1.Text)
   
    Call SendMessage(wnd, WM_SETTEXT, 0&, X(0))
   
End Sub
Private Sub Form_Load()
    tWnd = FindWindow("Shell_TrayWnd", "")
    wnd = GetWindow(tWnd, 5)
End Sub




En modulo

Código (vb) [Seleccionar] Expandir


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