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 :P
(http://img172.imageshack.us/img172/2505/hackhr6.png)
ni lo queria en realidad pero nada mas para el ocio
Oye, lo podrias colocar, me gustaria probarlo. :D
Gracias!!
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
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
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