Mensajes

Por si aun quiere la de 32Bits a 16Bits y no a 1Bit XD
http://www.recursosvisualbasic.com.ar/htm/listado-api/211-cambiar-resolucion-imagen.htm

Convierte 32, 24, 256Colores y 1 Bit

SaluDOS!!!

Creo que es mas simple aun..
Existe una forma mas sencilla de mover un control usando la API SendMessage:
Supongamos que quiero mover el Picture2 a mmm, algun lado XD

Código [Seleccionar] Expandir

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 Declare Sub ReleaseCapture Lib "User32" ()
 
Const WM_NCLBUTTONDOWN = &HA1
Const HTCAPTION = 2

Private Sub Picture2_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Call ReleaseCapture
    If Button = vbLeftButton Then
        Call SendMessage(Picture2.hWnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&)
    End If
End Sub
Con eso mueves el Picture2 a cualquier lado.., {al hacerle click y moverlo}
Ahora para que puedas arrastrar el Picture2 y otro control lo acepte debes de establecer su propiedad DragMode a Automático..

Supongamos que queremos arrastrar un Picture2 a un control de Picture1(0) {Picture1 sera una Matriz}
El Picture1 tiene un evento que se llama cada vez que se arrastra un 'algo' encima de este, el evento se llama DragDrop:

Código [Seleccionar] Expandir

Private Sub Picture1_DragDrop(Index As Integer, Source As Control, X As Single, Y As Single)
MsgBox Index
End Sub

Si juntas todo el code.., al arrastrar el Picture2 a un control PIcture1 {Mas preciso a una Matriz de Picture1} te mostrara el Index del control al que haz arrastrado el picture2

Ahí ya tienes una idea, a partir de ahí es sencillo

SaluDOS!!!

No me funciono como esperaba disculpas, es que aun no estoy entendiendo muy bien WMI, me es muy confuso solo llego hasta una parte:
Asi se asignan los permisos:
http://msdn.microsoft.com/en-us/library/aa393591(VS.85).aspx
Funciona junto con esto:
http://msdn.microsoft.com/en-us/library/aa394402(VS.85).aspx
En la ultima parte me quedo, no entiendo muy bien como se asignan los permisos creo que son con un array asi "SeSecurityPrivilege, SeRestorePrivilege, etc" pero no me va, me dice "El Objeto no admite esta propiedad o metodo"

y no se que hago mal, en WMI con Batch mucho menos., y tambien lo nesecito en VB6, si logro algo lo paso a VBS y lo posteo se que sera de gran utilidad para muchos, si logro algo aviso..

SaluDOS!!!

Disculpa no entendi muy bien,
Con Batch lo intente pero no funca correctamente usando WMIC, me devuelve el Handle pero no me devuelve, ni puedo cambiar los permisos, si mejor te sirve ¿puedes usar VBS? creo que es posible usando wmi, puedo ayudarte si es que puedes usar VBS en tu Batch

SaluDOS!!!

Volvi, ahora que tengo mas tiempo ya puedo pasarme por todos los foros que estoy registrado

Cambiar el propietario es sencillo, desde Batch no se, pero manualmente es asi, Click Derecho en la clave que deceas cambiar el propietario, luego click en "Permisos", Click en "Opciones Avanzadas" luego te vas ha la pestaña "Propietario", seleccionas al Users que desees que sea el propietario y Aplicar

Mejor es Agregarte permisos especiales asi no afectas a los permisos que tienen los otros users para modificar, ver, leer esa clave

SaluDOS!!!

No hay commandDilog en VBs creo que no es posible usarlo, existe otro parecido, pero sin la opcion del cuadro de dialogo guardar:
http://foro.elhacker.net/scripting/batchvbs_manual_implementar_un_commondialog_abrir_con_en_batch-t252062.0.html

Lo use en Batch pero puedes sacar el script de alli..

SaluDOS!!!

Solo una critica constructiva
Como la clave esta en:
              \Explorer\RunMRU
En Explorer, lo que debes cerrar el el Explorer.exe y luego volverlo a ejecutar a si volvera a cargar el/los valores de esa ruta del Registro..
Asi no es nesesario reiniciar..

SaluDOS!!!

Bueno, despues de mucho posteo por aqui, recien estoy liberando mi tiempo, y pude hacer esto..
Es un conversor de numeros naturales o decimales a numeros Binarios:

Código (dos) [Seleccionar] Expandir

@Echo off
:Main
set /p nn=Escriba un Numero:/^>
set final=
:bin
set /a num=%nn%
set /a bnn=%num%/2
set /a mod=%bnn%+%bnn%
if ["%mod%"] EQU ["%num%"] (
   Set final=0%final%
) ELSE (
   set final=1%final%
)
if ["%bnn%"] NEQ ["0"] (
   Set /a nn=%bnn%
   Goto:bin
)
Echo %final%
goto:main
Ejemplo:

Código (dos) [Seleccionar] Expandir

Escriba un Numero:/>123456789
111010110111100110100010101

Espero les sirva, ya tienen una funcion mas para agregar a sus calculadoras..
SaluDOS!!!

No...
A lo que yo le entiendo es el cuadro de dialogo de Colores del CommonDialog..
Ahora no puedo hacerlo en mi PC, mas tarde si no responden lo posteo..

SaluDOS!!!

Los controles OCX del WinSock y CommonDialog, son los que faltan en el equipo remoto..
Enviales tu Proyecto MAS el control "COMDLG32.OCX" que esta en la carpeta "System32", y tambien el OCX del WinSock, que no recuerdo  cual era..

Espero te sirva..
SaluDOS!!!