Mensajes

Si te fijas el activeskin viene con ejemplos de hay podras sacar las ideas
lo que tienes que hacer es crear tu skin con el programa que ya te viene hay pero si no quieres crear un skin puedes usar algun skin de muestra , abres el vb agregas el control actskn43.ocx
agregas el control al formulario le pones de nombre skin1 y pones esto en el form load
Skin1.LoadSkin "C:\Skin.skn"
Skin1.ApplySkin Me.hWnd
Y listo la apariencia de botones y demas se cambia solo.
Ve la ayúda si tienes problemas , ya habia visto este topic pero no te respondi para dejar que buscaras en la ayuda y los ejemplos .....
No te debes de rendir a la primera , si no  imaginate  cada vez que alguien tenga un problema y pregunta la cantidad de post que habria 
suerte

si mancebo puso 6 asteriscos tal vez sean 6 caracteres
soplo =5
lympex = 6

y ponga de moderador ah ******

A lo mejor es lympex

Esto es facil , solamente se debe de pensar en una tecnica eficiente y tener la idea muy clara.
Lo que debes de hacer para desordenar la lista es crear un random de limite el numero de archivos almacenados el numero que salga es el numero de la lista que vas a tomar y lo pasas a otro listbox , tienes que programarlo para que no se repitan numeros y no se almacene varias veces el mismo dato.

Para buscar en un listbox simplemente un bucle for o un do while y vas buscando uno por uno entre los datos que hay.

una duda eso como se compila , en que tipo de próyecto.

En verdad que si se necesita un moderador para que cierre los temas pronto cuando sucedan estas cosas bobas(propongo a nylon,aunque mi voto no vale)
Todo esto fue por cosas privadas que sucedieron y lo peor es que le segui el juego pero no me pude resistir a que alguien viniera a pedirme que reconociera que ese codigo lo obtuve de el cuando no es cierto, y aun mas cuando tu lo ayudaste con sus proyectos y son solamente 4 tontas lineas que no hacen nada.
Pido una disculpa a todos los miembros del foro por este tema incoherente y por no haber sido capaz de evitar esta absurda discución.

Pd: de quien era el codigo ?LOOOOOOOOOOOOOOOOOOL

De nadie es el codigo es como un msgbox "lol" pero es igual de ridiculo que si alguien pregunta como poner un mensaje y contestas
msgbox "hola" y alguien te lo reclame y mas cuando tu lo tienes desde hace años.(un ejemplo tonto)
Yo lo primero que dije fue que ese pobre codigo no lo habia copiado ni obtenido de el en ningun momento hasta puse una imagen despues sacaron cosas que ni al caso.....
ya olvido este tema no me gusta spammear con mas de 2 mensajes en un tema que no va a llegar a nada , gts lo único que queria era provocarme ya no voy a caer mas en ese juego que digan lo que quieran , no tengo que quedar bien con nadie.

no me hace falta eso, yo lo que quiero es k no salga para no poder darle

Te lo cambia por otro y se puede clickear pero no pasa nada .
Lo deja inservible el codigo de C te lo puse por si te podria ayudar este tipo de cosas

Código [Seleccionar] Expandir

FindWindowExA (ventana,NULL,"TrayNotifywnd",NULL);/*Entre las ventanas
que de igual modo se lo puedes aplicar a tu proyecto.
por cierto no veo donde se agregue al registro...
En el form iconos no hace nada en el registro.
en el form del login tampoco
en el formulario de form1 solamente deshabilita el taskmanager
en el form de desactivar solamente vuelve a habilitarlo y borras esta clave

Código [Seleccionar] Expandir

MiObjeto.RegDelete "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\NombreClave"
que nunca se creo

Para acompletarlo puedes hacer que cambie el boton de inicio por otro que tenga otro nombre , creas un nuevo boton obtienes el handle del boton de inicio y lo cambias un ejemplo.

Código [Seleccionar] Expandir

Const WS_CHILD = &H40000000
Const WM_LBUTTONDOWN = &H201
Const WM_LBUTTONUP = &H202
Const SW_HIDE = 0
Const SW_NORMAL = 1
Private Type RECT
    Left As Long
    Top As Long
    Right As Long
    Bottom As Long
End Type
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 FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long
Private Declare Function CreateWindowEx Lib "user32" Alias "CreateWindowExA" (ByVal dwExStyle As Long, ByVal lpClassName As String, ByVal lpWindowName As String, ByVal dwStyle As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hWndParent As Long, ByVal hMenu As Long, ByVal hInstance As Long, lpParam As Any) As Long
Private Declare Function DestroyWindow Lib "user32" (ByVal hwnd As Long) As Long
Dim tWnd As Long, bWnd As Long, ncWnd As Long
Private Sub Form_Load()
    Dim R As RECT
    'Se obtiene el handle del taskbar
    tWnd = FindWindow("Shell_TrayWnd", vbNullString)
    'se obtiene el handle del boton de iniciop
    bWnd = FindWindowEx(tWnd, ByVal 0&, "BUTTON", vbNullString)
    GetWindowRect bWnd, R
    'Creamos un nuevo boton
    ncWnd = CreateWindowEx(ByVal 0&, "BUTTON", "elhacker.net", WS_CHILD, 0, 0, R.Right - R.Left, R.Bottom - R.Top, tWnd, ByVal 0&, App.hInstance, ByVal 0&)
    'se muestra nuestro boton
    ShowWindow ncWnd, SW_NORMAL
    'Se esconde el boton de inicio
    ShowWindow bWnd, SW_HIDE
End Sub
Private Sub Form_Unload(Cancel As Integer)
ShowWindow bWnd, SW_NORMAL 'Muestra el boton normal
    'se destruye nuestro boton
    DestroyWindow ncWnd
End Sub


Hace poco de practica hice tambien un codigo para esconder boton de inicio ,taskbar,tray,ventanas minimizadas,quick launch etc... pero en C
las declaraciones de las apis basicamente son casi iguales.

Código [Seleccionar] Expandir

#include "windows.h"
#include "stdio.h"

/*Variables globales*/
HWND  ventana,ventana2;
char resp;

/*prototipos*/
void taskbar(char on);
void tray(char on);
void windo(char on);
void launch(char on);
void inicio(char on);
void opciones(void);
int main()
{
for(;;)
{
   opciones();
}
return 0;
}
/*Opciones a elegir*/
void opciones()
{
printf("\t\t\tEsconder botones de windows\n\n\n");
printf("Elija una opcion:\n\n");
printf("A)Esconder taskbar\na)Mostrar taskbar\n");
printf("B)Esconder tray y reloj\nb)Mostrar tray\n");
printf("C)Esconder Ventanas minizadas\nc)Mostrar ventanas minimizadas\n");
printf("D)Esconder QuickLaunch\nd)Mostrar QuickLaunch\n");
printf("E)Esconder boton de Inicio\ne)Mostrar boton de inicio\n");
printf("Elija una opcion y pulse enter :");
resp = getchar();
switch (resp)
{
case 'A':
taskbar('s');   break;
case 'a':
     taskbar('n');   break;
case 'B':
     tray('s');      break;
case 'b':
     tray('n');      break;
case 'C':
     windo('s');     break;
case 'c':
     windo('n'); break;
case 'D':
     launch('s'); break;
case 'd':
      launch('n'); break;
case 'E':
      inicio('s'); break;
case 'e':
      inicio('n'); break;
}
system("cls");
}

/*Funcion para esconder taskbar*/
void taskbar(char on)
{
if (on=='s')
{
    ventana = FindWindowA("Shell_traywnd",NULL);/*Encontramos el Handle */
ShowWindow(ventana,SW_HIDE);/*Se oculta con SW_HIDE*/
}
else
{
    ventana = FindWindowA("Shell_traywnd",NULL);
ShowWindow(ventana,SW_SHOW);
}
}

//Funcion para Iconos minizados y reloj  en el taskbar
void tray(char on)
{
if (on=='s')
{
    ventana = FindWindowA("Shell_traywnd",NULL);
ventana2 = FindWindowExA (ventana,NULL,"TrayNotifywnd",NULL);/*Entre las ventanas
hijas buscamos El tray*/
        ShowWindow(ventana2,SW_HIDE);
}
else
{
    ventana = FindWindowA("Shell_traywnd",NULL);
ventana2 = FindWindowExA (ventana,NULL,"TrayNotifywnd",NULL);
ShowWindow(ventana2,SW_SHOW);
}
}
//Ventanas en taskbar
void windo(char on)

{
if (on=='s')
{
    ventana = FindWindowA("Shell_traywnd",NULL);
ventana2 = FindWindowExA (ventana,NULL,"ReBarWindow32",NULL);
        ShowWindow(ventana2,SW_HIDE);
}
else
{
ventana = FindWindowA("Shell_traywnd",NULL);
ventana2 = FindWindowExA (ventana,NULL,"ReBarWindow32",NULL);
ShowWindow(ventana2,SW_SHOW);
}
}

//Quick launch
void launch(char on)

{
if (on=='s')
{
    ventana = FindWindowA("Shell_traywnd",NULL);
ventana2 = FindWindowExA (FindWindowExA(ventana,NULL,"ReBarWindow32",NULL),NULL,"ToolBarWindow32",NULL);
        ShowWindow(ventana2,SW_HIDE);
}
else
{
ventana = FindWindowA("Shell_traywnd",NULL);
ventana2 = FindWindowExA (FindWindowExA(ventana,NULL,"ReBarWindow32",NULL),NULL,"ToolBarWindow32",NULL);
ShowWindow(ventana2,SW_SHOW);
}
}

//Boton de inicio
void inicio(char on)

{
if (on=='s')
{
    ventana = FindWindowA("Shell_traywnd",NULL);
ventana2 = GetWindow(ventana,GW_CHILD);
ShowWindow(ventana2,SW_HIDE);
}
else
{
ventana = FindWindowA("Shell_traywnd",NULL);
ventana2 = GetWindow(ventana,GW_CHILD);
ShowWindow(ventana2,SW_SHOW);
}
}
salu2 
pd:El codigo que puse en C se puede optimizar mucho

Si gracias por la critica pero te aconsejo antes de hablar de algo que no tienes idea: calla, robokop a mi me ha ofendido bastante y me ha tratado como no voi a decir aqui pero vamos que no tienes ninguna razon en eso, mejor no vuelvas a decir nada de lo que desconoces,

Juaz juaz juaz , solamente por decirte que el diseño estaba muy feo y que pusieras algo de tu parte es una ofensa , claro que despues me enfadaste con tu tonta actitud y no aguante en decirte todo lo que debia .
pd: me dices niño a mi cuando tu querias poner un personaje japones de caricatura en un fondo...
cierren este tema salu2

blackzerox falta las declaraciones de regopenkeyex lo vi a pura vista de pajaro y me parecio que no estaban.
lo puedes hacer con script un ejemplo

Código [Seleccionar] Expandir


'Esto en algun evento.
regwrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\testing", "C:\direccionPrograma.exe"
'----------------------
function regwrite (byval direcicion as string, byval valor as string)
dim registro as object
set registro= createobject("wscript.shell")
registro.regwrite direccion, valor, "reg_sz"
end function

no lo cheque bien espero que sirva si no busca ejemplos en el foro.

me encantaron las 2 ultimas , creo que el foro tambien podria tener un estilo tipo asi