Título: Hay alguna forma de cambiar la imagen del cursor desde Batch?
Publicado por: z3nth10n en 4 Febrero 2013, 17:04 pm
Hola amigos, pues creo que el titulo lo dice todo. xD Un saludo.
Título: Re: Hay alguna forma de cambiar la imagen del cursor desde Batch?
Publicado por: Eleкtro en 4 Febrero 2013, 18:08 pm
Bueno, en Batch puedes hacerlo modificando los valores del cursor actual en el registro, pero para que los cambios tengan efecto deberás reiniciar PC/Sesión. Primero modificas el valor aquí: HKEY_CURRENT_USER\Control Panel\Cursors Scheme Source Lo dejas a "1" para indicar que deseas usar un esquema de cursor customizado. Y luego añades los valores correspondientes a cada cursor, y la dirección del archivo... Ejemplo: Windows Registry Editor Version 5.00
[HKEY_CURRENT_USER\Control Panel\Cursors] @="Glass Maxx" "Scheme Source"=dword:00000001 "Arrow"=hex(2):25,00,53,00,59,00,53,00,54,00,45,00,4d,00,52,00,4f,00,4f,00,54,\ 00,25,00,5c,00,43,00,75,00,72,00,73,00,6f,00,72,00,73,00,5c,00,47,00,6c,00,\ 61,00,73,00,73,00,20,00,4d,00,61,00,78,00,78,00,5c,00,41,00,72,00,72,00,6f,\ 00,77,00,2e,00,61,00,6e,00,69,00,00,00 "Help"=hex(2):25,00,53,00,59,00,53,00,54,00,45,00,4d,00,52,00,4f,00,4f,00,54,\ 00,25,00,5c,00,43,00,75,00,72,00,73,00,6f,00,72,00,73,00,5c,00,47,00,6c,00,\ 61,00,73,00,73,00,20,00,4d,00,61,00,78,00,78,00,5c,00,48,00,65,00,6c,00,70,\ 00,2e,00,61,00,6e,00,69,00,00,00 "AppStarting"=hex(2):25,00,53,00,59,00,53,00,54,00,45,00,4d,00,52,00,4f,00,4f,\ 00,54,00,25,00,5c,00,43,00,75,00,72,00,73,00,6f,00,72,00,73,00,5c,00,47,00,\ 6c,00,61,00,73,00,73,00,20,00,4d,00,61,00,78,00,78,00,5c,00,41,00,70,00,70,\ 00,53,00,74,00,61,00,72,00,74,00,69,00,6e,00,67,00,2e,00,61,00,6e,00,69,00,\ 00,00 "Wait"=hex(2):25,00,53,00,59,00,53,00,54,00,45,00,4d,00,52,00,4f,00,4f,00,54,\ 00,25,00,5c,00,43,00,75,00,72,00,73,00,6f,00,72,00,73,00,5c,00,47,00,6c,00,\ 61,00,73,00,73,00,20,00,4d,00,61,00,78,00,78,00,5c,00,57,00,61,00,69,00,74,\ 00,2e,00,61,00,6e,00,69,00,00,00 "Crosshair"=hex(2):25,00,53,00,59,00,53,00,54,00,45,00,4d,00,52,00,4f,00,4f,00,\ 54,00,25,00,5c,00,43,00,75,00,72,00,73,00,6f,00,72,00,73,00,5c,00,47,00,6c,\ 00,61,00,73,00,73,00,20,00,4d,00,61,00,78,00,78,00,5c,00,63,00,72,00,6f,00,\ 73,00,73,00,2e,00,61,00,6e,00,69,00,00,00 "IBeam"=hex(2):25,00,53,00,59,00,53,00,54,00,45,00,4d,00,52,00,4f,00,4f,00,54,\ 00,25,00,5c,00,43,00,75,00,72,00,73,00,6f,00,72,00,73,00,5c,00,47,00,6c,00,\ 61,00,73,00,73,00,20,00,4d,00,61,00,78,00,78,00,5c,00,49,00,42,00,65,00,61,\ 00,6d,00,2e,00,61,00,6e,00,69,00,00,00 "NWPen"=hex(2):25,00,53,00,59,00,53,00,54,00,45,00,4d,00,52,00,4f,00,4f,00,54,\ 00,25,00,5c,00,43,00,75,00,72,00,73,00,6f,00,72,00,73,00,5c,00,47,00,6c,00,\ 61,00,73,00,73,00,20,00,4d,00,61,00,78,00,78,00,5c,00,48,00,61,00,6e,00,64,\ 00,77,00,72,00,69,00,74,00,69,00,6e,00,67,00,2e,00,61,00,6e,00,69,00,00,00 "No"=hex(2):25,00,53,00,59,00,53,00,54,00,45,00,4d,00,52,00,4f,00,4f,00,54,00,\ 25,00,5c,00,43,00,75,00,72,00,73,00,6f,00,72,00,73,00,5c,00,47,00,6c,00,61,\ 00,73,00,73,00,20,00,4d,00,61,00,78,00,78,00,5c,00,4e,00,4f,00,2e,00,61,00,\ 6e,00,69,00,00,00 "SizeNS"=hex(2):25,00,53,00,59,00,53,00,54,00,45,00,4d,00,52,00,4f,00,4f,00,54,\ 00,25,00,5c,00,43,00,75,00,72,00,73,00,6f,00,72,00,73,00,5c,00,47,00,6c,00,\ 61,00,73,00,73,00,20,00,4d,00,61,00,78,00,78,00,5c,00,53,00,69,00,7a,00,65,\ 00,4e,00,53,00,2e,00,61,00,6e,00,69,00,00,00 "SizeWE"=hex(2):25,00,53,00,59,00,53,00,54,00,45,00,4d,00,52,00,4f,00,4f,00,54,\ 00,25,00,5c,00,43,00,75,00,72,00,73,00,6f,00,72,00,73,00,5c,00,47,00,6c,00,\ 61,00,73,00,73,00,20,00,4d,00,61,00,78,00,78,00,5c,00,53,00,69,00,7a,00,65,\ 00,57,00,45,00,2e,00,61,00,6e,00,69,00,00,00 "SizeNWSE"=hex(2):25,00,53,00,59,00,53,00,54,00,45,00,4d,00,52,00,4f,00,4f,00,\ 54,00,25,00,5c,00,43,00,75,00,72,00,73,00,6f,00,72,00,73,00,5c,00,47,00,6c,\ 00,61,00,73,00,73,00,20,00,4d,00,61,00,78,00,78,00,5c,00,53,00,69,00,7a,00,\ 65,00,4e,00,57,00,53,00,45,00,2e,00,61,00,6e,00,69,00,00,00 "SizeNESW"=hex(2):25,00,53,00,59,00,53,00,54,00,45,00,4d,00,52,00,4f,00,4f,00,\ 54,00,25,00,5c,00,43,00,75,00,72,00,73,00,6f,00,72,00,73,00,5c,00,47,00,6c,\ 00,61,00,73,00,73,00,20,00,4d,00,61,00,78,00,78,00,5c,00,53,00,69,00,7a,00,\ 65,00,4e,00,45,00,53,00,57,00,2e,00,61,00,6e,00,69,00,00,00 "SizeAll"=hex(2):25,00,53,00,59,00,53,00,54,00,45,00,4d,00,52,00,4f,00,4f,00,\ 54,00,25,00,5c,00,43,00,75,00,72,00,73,00,6f,00,72,00,73,00,5c,00,47,00,6c,\ 00,61,00,73,00,73,00,20,00,4d,00,61,00,78,00,78,00,5c,00,53,00,69,00,7a,00,\ 65,00,41,00,6c,00,6c,00,2e,00,61,00,6e,00,69,00,00,00 "UpArrow"=hex(2):25,00,53,00,59,00,53,00,54,00,45,00,4d,00,52,00,4f,00,4f,00,\ 54,00,25,00,5c,00,43,00,75,00,72,00,73,00,6f,00,72,00,73,00,5c,00,47,00,6c,\ 00,61,00,73,00,73,00,20,00,4d,00,61,00,78,00,78,00,5c,00,55,00,70,00,41,00,\ 72,00,72,00,6f,00,77,00,2e,00,61,00,6e,00,69,00,00,00 "Hand"=hex(2):25,00,53,00,59,00,53,00,54,00,45,00,4d,00,52,00,4f,00,4f,00,54,\ 00,25,00,5c,00,43,00,75,00,72,00,73,00,6f,00,72,00,73,00,5c,00,47,00,6c,00,\ 61,00,73,00,73,00,20,00,4d,00,61,00,78,00,78,00,5c,00,48,00,61,00,6e,00,64,\ 00,2e,00,61,00,6e,00,69,00,00,00
[HKEY_CURRENT_USER\Control Panel\Cursors\Schemes] "Glass Maxx"=hex(2):25,00,53,00,59,00,53,00,54,00,45,00,4d,00,52,00,4f,00,4f,\ 00,54,00,25,00,5c,00,43,00,75,00,72,00,73,00,6f,00,72,00,73,00,5c,00,47,00,\ 6c,00,61,00,73,00,73,00,20,00,4d,00,61,00,78,00,78,00,5c,00,41,00,72,00,72,\ 00,6f,00,77,00,2e,00,61,00,6e,00,69,00,2c,00,25,00,53,00,59,00,53,00,54,00,\ 45,00,4d,00,52,00,4f,00,4f,00,54,00,25,00,5c,00,43,00,75,00,72,00,73,00,6f,\ 00,72,00,73,00,5c,00,47,00,6c,00,61,00,73,00,73,00,20,00,4d,00,61,00,78,00,\ 78,00,5c,00,48,00,65,00,6c,00,70,00,2e,00,61,00,6e,00,69,00,2c,00,25,00,53,\ 00,59,00,53,00,54,00,45,00,4d,00,52,00,4f,00,4f,00,54,00,25,00,5c,00,43,00,\ 75,00,72,00,73,00,6f,00,72,00,73,00,5c,00,47,00,6c,00,61,00,73,00,73,00,20,\ 00,4d,00,61,00,78,00,78,00,5c,00,41,00,70,00,70,00,53,00,74,00,61,00,72,00,\ 74,00,69,00,6e,00,67,00,2e,00,61,00,6e,00,69,00,2c,00,25,00,53,00,59,00,53,\ 00,54,00,45,00,4d,00,52,00,4f,00,4f,00,54,00,25,00,5c,00,43,00,75,00,72,00,\ 73,00,6f,00,72,00,73,00,5c,00,47,00,6c,00,61,00,73,00,73,00,20,00,4d,00,61,\ 00,78,00,78,00,5c,00,57,00,61,00,69,00,74,00,2e,00,61,00,6e,00,69,00,2c,00,\ 25,00,53,00,59,00,53,00,54,00,45,00,4d,00,52,00,4f,00,4f,00,54,00,25,00,5c,\ 00,43,00,75,00,72,00,73,00,6f,00,72,00,73,00,5c,00,47,00,6c,00,61,00,73,00,\ 73,00,20,00,4d,00,61,00,78,00,78,00,5c,00,63,00,72,00,6f,00,73,00,73,00,2e,\ 00,61,00,6e,00,69,00,2c,00,25,00,53,00,59,00,53,00,54,00,45,00,4d,00,52,00,\ 4f,00,4f,00,54,00,25,00,5c,00,43,00,75,00,72,00,73,00,6f,00,72,00,73,00,5c,\ 00,47,00,6c,00,61,00,73,00,73,00,20,00,4d,00,61,00,78,00,78,00,5c,00,49,00,\ 42,00,65,00,61,00,6d,00,2e,00,61,00,6e,00,69,00,2c,00,25,00,53,00,59,00,53,\ 00,54,00,45,00,4d,00,52,00,4f,00,4f,00,54,00,25,00,5c,00,43,00,75,00,72,00,\ 73,00,6f,00,72,00,73,00,5c,00,47,00,6c,00,61,00,73,00,73,00,20,00,4d,00,61,\ 00,78,00,78,00,5c,00,48,00,61,00,6e,00,64,00,77,00,72,00,69,00,74,00,69,00,\ 6e,00,67,00,2e,00,61,00,6e,00,69,00,2c,00,25,00,53,00,59,00,53,00,54,00,45,\ 00,4d,00,52,00,4f,00,4f,00,54,00,25,00,5c,00,43,00,75,00,72,00,73,00,6f,00,\ 72,00,73,00,5c,00,47,00,6c,00,61,00,73,00,73,00,20,00,4d,00,61,00,78,00,78,\ 00,5c,00,4e,00,4f,00,2e,00,61,00,6e,00,69,00,2c,00,25,00,53,00,59,00,53,00,\ 54,00,45,00,4d,00,52,00,4f,00,4f,00,54,00,25,00,5c,00,43,00,75,00,72,00,73,\ 00,6f,00,72,00,73,00,5c,00,47,00,6c,00,61,00,73,00,73,00,20,00,4d,00,61,00,\ 78,00,78,00,5c,00,53,00,69,00,7a,00,65,00,4e,00,53,00,2e,00,61,00,6e,00,69,\ 00,2c,00,25,00,53,00,59,00,53,00,54,00,45,00,4d,00,52,00,4f,00,4f,00,54,00,\ 25,00,5c,00,43,00,75,00,72,00,73,00,6f,00,72,00,73,00,5c,00,47,00,6c,00,61,\ 00,73,00,73,00,20,00,4d,00,61,00,78,00,78,00,5c,00,53,00,69,00,7a,00,65,00,\ 57,00,45,00,2e,00,61,00,6e,00,69,00,2c,00,25,00,53,00,59,00,53,00,54,00,45,\ 00,4d,00,52,00,4f,00,4f,00,54,00,25,00,5c,00,43,00,75,00,72,00,73,00,6f,00,\ 72,00,73,00,5c,00,47,00,6c,00,61,00,73,00,73,00,20,00,4d,00,61,00,78,00,78,\ 00,5c,00,53,00,69,00,7a,00,65,00,4e,00,57,00,53,00,45,00,2e,00,61,00,6e,00,\ 69,00,2c,00,25,00,53,00,59,00,53,00,54,00,45,00,4d,00,52,00,4f,00,4f,00,54,\ 00,25,00,5c,00,43,00,75,00,72,00,73,00,6f,00,72,00,73,00,5c,00,47,00,6c,00,\ 61,00,73,00,73,00,20,00,4d,00,61,00,78,00,78,00,5c,00,53,00,69,00,7a,00,65,\ 00,4e,00,45,00,53,00,57,00,2e,00,61,00,6e,00,69,00,2c,00,25,00,53,00,59,00,\ 53,00,54,00,45,00,4d,00,52,00,4f,00,4f,00,54,00,25,00,5c,00,43,00,75,00,72,\ 00,73,00,6f,00,72,00,73,00,5c,00,47,00,6c,00,61,00,73,00,73,00,20,00,4d,00,\ 61,00,78,00,78,00,5c,00,53,00,69,00,7a,00,65,00,41,00,6c,00,6c,00,2e,00,61,\ 00,6e,00,69,00,2c,00,25,00,53,00,59,00,53,00,54,00,45,00,4d,00,52,00,4f,00,\ 4f,00,54,00,25,00,5c,00,43,00,75,00,72,00,73,00,6f,00,72,00,73,00,5c,00,47,\ 00,6c,00,61,00,73,00,73,00,20,00,4d,00,61,00,78,00,78,00,5c,00,55,00,70,00,\ 41,00,72,00,72,00,6f,00,77,00,2e,00,61,00,6e,00,69,00,2c,00,25,00,53,00,59,\ 00,53,00,54,00,45,00,4d,00,52,00,4f,00,4f,00,54,00,25,00,5c,00,43,00,75,00,\ 72,00,73,00,6f,00,72,00,73,00,5c,00,47,00,6c,00,61,00,73,00,73,00,20,00,4d,\ 00,61,00,78,00,78,00,5c,00,48,00,61,00,6e,00,64,00,2e,00,61,00,6e,00,69,00,\ 00,00 (Esto es el código de arriba convertido) :: Archivo de registro convertido con REG2BAT by Elektro H@cker :: :: REG2BAT - Convierte archivos REG a BAT :: http://foro.elhacker.net/empty-t357848.0.html REG ADD "HKCU\Control Panel\Cursors" /V "" /D "Glass Maxx" /F REG ADD "HKCU\Control Panel\Cursors" /V "Scheme Source" /T "REG_DWORD" /D 0x00000001 /F REG ADD "HKCU\Control Panel\Cursors" /V "Arrow" /T "REG_EXPAND_SZ" /D "%%SYSTEMROOT%%\Cursors\Glass Maxx\Arrow.ani" /F REG ADD "HKCU\Control Panel\Cursors" /V "Help" /T "REG_EXPAND_SZ" /D "%%SYSTEMROOT%%\Cursors\Glass Maxx\Help.ani" /F REG ADD "HKCU\Control Panel\Cursors" /V "AppStarting" /T "REG_EXPAND_SZ" /D "%%SYSTEMROOT%%\Cursors\Glass Maxx\AppStarting.ani" /F REG ADD "HKCU\Control Panel\Cursors" /V "Wait" /T "REG_EXPAND_SZ" /D "%%SYSTEMROOT%%\Cursors\Glass Maxx\Wait.ani" /F REG ADD "HKCU\Control Panel\Cursors" /V "Crosshair" /T "REG_EXPAND_SZ" /D "%%SYSTEMROOT%%\Cursors\Glass Maxx\cross.ani" /F REG ADD "HKCU\Control Panel\Cursors" /V "IBeam" /T "REG_EXPAND_SZ" /D "%%SYSTEMROOT%%\Cursors\Glass Maxx\IBeam.ani" /F REG ADD "HKCU\Control Panel\Cursors" /V "NWPen" /T "REG_EXPAND_SZ" /D "%%SYSTEMROOT%%\Cursors\Glass Maxx\Handwriting.ani" /F REG ADD "HKCU\Control Panel\Cursors" /V "No" /T "REG_EXPAND_SZ" /D "%%SYSTEMROOT%%\Cursors\Glass Maxx\NO.ani" /F REG ADD "HKCU\Control Panel\Cursors" /V "SizeNS" /T "REG_EXPAND_SZ" /D "%%SYSTEMROOT%%\Cursors\Glass Maxx\SizeNS.ani" /F REG ADD "HKCU\Control Panel\Cursors" /V "SizeWE" /T "REG_EXPAND_SZ" /D "%%SYSTEMROOT%%\Cursors\Glass Maxx\SizeWE.ani" /F REG ADD "HKCU\Control Panel\Cursors" /V "SizeNWSE" /T "REG_EXPAND_SZ" /D "%%SYSTEMROOT%%\Cursors\Glass Maxx\SizeNWSE.ani" /F REG ADD "HKCU\Control Panel\Cursors" /V "SizeNESW" /T "REG_EXPAND_SZ" /D "%%SYSTEMROOT%%\Cursors\Glass Maxx\SizeNESW.ani" /F REG ADD "HKCU\Control Panel\Cursors" /V "SizeAll" /T "REG_EXPAND_SZ" /D "%%SYSTEMROOT%%\Cursors\Glass Maxx\SizeAll.ani" /F REG ADD "HKCU\Control Panel\Cursors" /V "UpArrow" /T "REG_EXPAND_SZ" /D "%%SYSTEMROOT%%\Cursors\Glass Maxx\UpArrow.ani" /F REG ADD "HKCU\Control Panel\Cursors" /V "Hand" /T "REG_EXPAND_SZ" /D "%%SYSTEMROOT%%\Cursors\Glass Maxx\Hand.ani" /F REG ADD "HKCU\Control Panel\Cursors\Schemes" /V "Glass Maxx" /T "REG_EXPAND_SZ" /D "%%SYSTEMROOT%%\Cursors\Glass Maxx\Arrow.ani,%%SYSTEMROOT%%\Cursors\Glass Maxx\Help.ani,%%SYSTEMROOT%%\Cursors\Glass Maxx\AppStarting.ani,%%SYSTEMROOT%%\Cursors\Glass Maxx\Wait.ani,%%SYSTEMROOT%%\Cursors\Glass Maxx\cross.ani,%%SYSTEMROOT%%\Cursors\Glass Maxx\IBeam.ani,%%SYSTEMROOT%%\Cursors\Glass Maxx\Handwriting.ani,%%SYSTEMROOT%%\Cursors\Glass Maxx\NO.ani,%%SYSTEMROOT%%\Cursors\Glass Maxx\SizeNS.ani,%%SYSTEMROOT%%\Cursors\Glass Maxx\SizeWE.ani,%%SYSTEMROOT%%\Cursors\Glass Maxx\SizeNWSE.ani,%%SYSTEMROOT%%\Cursors\Glass Maxx\SizeNESW.ani,%%SYSTEMROOT%%\Cursors\Glass Maxx\SizeAll.ani,%%SYSTEMROOT%%\Cursors\Glass Maxx\UpArrow.ani,%%SYSTEMROOT%%\Cursors\Glass Maxx\Hand.ani" /F
¿Pero tu no te habias iniciado en VB.NET? si aún lo sigues usando puedes desarrollar en pocas líneas un programa commandline que modifique la imagen del cursor y ejecutarlo desde Batch xD. Aquí tienes el ejemplo, más tarde haré un snippet de esto y lo colgaré en el post de snippets: 'Dan Dombrowski 'July 2008 Public Class Form1 'API declarations Private Declare Function SetSystemCursor Lib "user32.dll" (ByVal hCursor As IntPtr, ByVal id As Integer) As Boolean Private Declare Function LoadCursorFromFile Lib "user32.dll" Alias "LoadCursorFromFileA" (ByVal lpFileName As String) As IntPtr 'Cursor constants Private Const IDC_APPSTARTING As UInt32 = 32650 Private Const IDC_ARROW As UInt32 = 32512 Private Const IDC_HAND As UInt32 = 32649 Private Const IDC_CROSS As UInt32 = 32515 Private Const IDC_HELP As UInt32 = 32651 Private Const IDC_IBEAM As UInt32 = 32513 Private Const IDC_NO As UInt32 = 32648 Private Const IDC_SIZEALL As UInt32 = 32646 Private Const IDC_SIZENESW As UInt32 = 32643 Private Const IDC_SIZENS As UInt32 = 32645 Private Const IDC_SIZENWSE As UInt32 = 32642 Private Const IDC_SIZEWE As UInt32 = 32644 Private Const IDC_UP As UInt32 = 32516 Private Const IDC_WAIT As UInt32 = 32514 'Variable to save current cursor Dim SavedCursor As Icon Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 'Save cursor SavedCursor = Icon.FromHandle(Cursors.Arrow.CopyHandle) 'Change arrow cursor to mine Dim NewCursor As IntPtr = LoadCursorFromFile(Application.StartupPath & "\MyCross.ani") 'Check If NewCursor = IntPtr.Zero Then 'Error loading cursor from file Debug. WriteLine("Error loading cursor from file.") Return End If 'Set the system cursor If SetSystemCursor(NewCursor, IDC_ARROW) = 0 Then 'Error setting system cursor Debug. WriteLine("Error setting system cursor.") Return End If 'Disable/enable buttons Button1.Enabled = False Button2.Enabled = True End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click 'Get old cursor Dim OldCursor As IntPtr = SavedCursor.Handle 'Set the system cursor SetSystemCursor(OldCursor, IDC_ARROW) 'Disable/enable buttons Button1.Enabled = True Button2.Enabled = False End Sub Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load End Sub
PD: Cada constante equivale a cada imagen del cursor (arrow, hand, busy, etc...) en el ejemplo sólo cambian el cursor principal (arrow).
Título: Re: Hay alguna forma de cambiar la imagen del cursor desde Batch?
Publicado por: z3nth10n en 4 Febrero 2013, 18:51 pm
Sin tocar nada lo del VB.NET me suena a que solo se va a cambiar si pasas el cursor por encima de la app xD Y lo del registro hay alguna forma de cambiarlo sin tener que reiniciar nada? ;-) Hombre podria poner un reinicio con BATCH pero es super-incomodo. ;-)
Sin tocar nada lo del VB.NET me suena a que solo se va a cambiar si pasas el cursor por encima de la app xD
Confimrado, funciona por todos lados menos por el foro xDDDDD Un saludo, muchas gracias. ;-)
Pero no fuerza a todo, solo fuerza el icono del puntero y no el de escrbir esperando y todo eso xD
La madre del cordero xD se me guardo este cursor voy a ver si un reinicio lo soluciona todo. xD
Título: Re: Hay alguna forma de cambiar la imagen del cursor desde Batch?
Publicado por: Eleкtro en 4 Febrero 2013, 19:33 pm
me suena a que solo se va a cambiar si pasas el cursor por encima de la app xD
Confimrado, funciona por todos lados menos por el foro xDDDDD Un saludo, muchas gracias. ;-) Bien, como ves funciona fuera del form (Si te pongo un código es por algo.) Para lo del foro, desactiva los cursores en tu navegador...
Pero no fuerza a todo, solo fuerza el icono del puntero y no el de escrbir esperando y todo eso xD Lee mi postdata: PD: Cada constante equivale a cada imagen del cursor (arrow, hand, busy, etc...) en el ejemplo sólo cambian el cursor principal (arrow). En el código tienes las variables para cambiar el tipo de cursor que quieras...
La madre del cordero xD se me guardo este cursor voy a ver si un reinicio lo soluciona todo. xD Para devolver el cursor por defecto es tán sencillo como ir al menú de esquemas de cursores de Windows... Panel de control > MouseSaludos EDITO:lo del registro hay alguna forma de cambiarlo sin tener que reiniciar nada? No, o reinicias sesión o reinicias explorer. Quizás usando la API de Windows puedas aplicar el cambio sin tener que reiniciar, Usando el comando "rundll32" sobre el archivo "user32.dll" utilizando la función "systemparametersinfo", pero no se si se podrá usar esa función con rundll32... Este es el código para tu propósito en AutoHotkey, sería así pero convertido a la sintaxis del RunDLL32: DllCall("SystemParametersInfo", "UInt", 0x57, "UInt", 0, "UInt", 0, "UInt", '0') http://www.thebitguru.com/articles/14-Programmatically+Changing+Windows+Mouse+Cursors
Título: Re: Hay alguna forma de cambiar la imagen del cursor desde Batch?
Publicado por: z3nth10n en 4 Febrero 2013, 19:54 pm
Lee mi postdata: En el código tienes las variables para cambiar el tipo de cursor que quieras...
Hermoso troll voy a hacer :) >:D Pero aparte de esas 3 y etc hay mas? digame uste todas que no haya por donde cojerlo xd :o Para devolver el cursor por defecto es tán sencillo como ir al menú de esquemas de cursores de Windows...
Panel de control > Mouse
Saludos
Si ya me di cuenta, lo dije cuando estaba pesandolo xD :silbar: No, o reinicias sesión o reinicias explorer. Quizás usando la API de Windows puedas aplicar el cambio sin tener que reiniciar, Usando el comando "rundll32" sobre el archivo "user32.dll" utilizando la función "systemparametersinfo", pero no se si se podrá usar esa función con rundll32... Este es el código para tu propósito en AutoHotkey, sería así pero convertido a la sintaxis del RunDLL32: DllCall("SystemParametersInfo", "UInt", 0x57, "UInt", 0, "UInt", 0, "UInt", '0') http://www.thebitguru.com/articles/14-Programmatically+Changing+Windows+Mouse+Cursors VB.NET te elijo. xD ;)
Título: Re: Hay alguna forma de cambiar la imagen del cursor desde Batch?
Publicado por: Eleкtro en 4 Febrero 2013, 20:09 pm
Pero aparte de esas 3 y etc hay mas? digame uste todas que no haya por donde cojerlo xd :o ¿Que preguntas exáctamente? lo de "arrow", "hand", "busy", etc? Las variables las tienes ahi en el código y los nombres son bastante claros.. pero si te parece complicado pásate dentro de un rato por mi post de Snippets en el subforo de programación .NET y haces un copy/paste de una función que posteare para cambiar el cursor que quieras de forma sencilla... > http://foro.elhacker.net/net/aporte_snippets_posteen_aqui_sus_snippets-t378770.0.html Saludos
Título: Re: Hay alguna forma de cambiar la imagen del cursor desde Batch?
Publicado por: z3nth10n en 4 Febrero 2013, 20:16 pm
¿Que preguntas exáctamente?
lo de "arrow", "hand", "busy", etc?
Las variables las tienes ahi en el código y los nombres son bastante claros.. pero si te parece complicado pásate dentro de un rato por mi post de Snippets en el subforo de programación .NET y haces un copy/paste de una función que posteare para cambiar el cursor que quieras de forma sencilla... > http://foro.elhacker.net/net/aporte_snippets_posteen_aqui_sus_snippets-t378770.0.html
Saludos
Aquí lo explica muy claro, pero no se si es lo mismo HTML que VB.NET en este sentido... Me los traduces, todos los que puedas? :silbar:
Título: Re: Hay alguna forma de cambiar la imagen del cursor desde Batch?
Publicado por: Eleкtro en 4 Febrero 2013, 20:26 pm
joder macho Private Const IDC_APPSTARTING As UInt32 = 32650 Private Const IDC_ARROW As UInt32 = 32512 ' FLECHA Private Const IDC_HAND As UInt32 = 32649 ' MANO Private Const IDC_CROSS As UInt32 = 32515 ' CRUZ Private Const IDC_HELP As UInt32 = 32651 ' AYUDA Private Const IDC_IBEAM As UInt32 = 32513 ' CURSOR DE TEXTO Private Const IDC_NO As UInt32 = 32648 ' PROHIBIDO Private Const IDC_SIZEALL As UInt32 = 32646 ' TAMAÑO (4 FLECHAS JUNTAS COMO UNA CRUZ) Private Const IDC_SIZENESW As UInt32 = 32643 ' TAMAÑO SUR-OESTE Private Const IDC_SIZENS As UInt32 = 32645 ' TAMAÑO NORTE-SUR (flecha de cambiar tamaño ARRIBA-ABAJO) Private Const IDC_SIZENWSE As UInt32 = 32642 ' ESTE NO LO SÉ SEGURO AHORA MISMO Private Const IDC_SIZEWE As UInt32 = 32644 ' TAMAÑO WEST-EAST (flecha de cambiar tamaño izquierda-derecha) Private Const IDC_UP As UInt32 = 32516 ' FLECHA ARRIBA Private Const IDC_WAIT As UInt32 = 32514 ' BUSY
algo así, compara los nombres con los cursores AERO por defecto y obtendrás los nombres con seguridad. saludos
Título: Re: Hay alguna forma de cambiar la imagen del cursor desde Batch?
Publicado por: z3nth10n en 4 Febrero 2013, 20:48 pm
joder macho Private Const IDC_APPSTARTING As UInt32 = 32650 Private Const IDC_ARROW As UInt32 = 32512 ' FLECHA Private Const IDC_HAND As UInt32 = 32649 ' MANO Private Const IDC_CROSS As UInt32 = 32515 ' CRUZ Private Const IDC_HELP As UInt32 = 32651 ' AYUDA Private Const IDC_IBEAM As UInt32 = 32513 ' CURSOR DE TEXTO Private Const IDC_NO As UInt32 = 32648 ' PROHIBIDO Private Const IDC_SIZEALL As UInt32 = 32646 ' TAMAÑO (4 FLECHAS JUNTAS COMO UNA CRUZ) Private Const IDC_SIZENESW As UInt32 = 32643 ' TAMAÑO SUR-OESTE Private Const IDC_SIZENS As UInt32 = 32645 ' TAMAÑO NORTE-SUR (flecha de cambiar tamaño ARRIBA-ABAJO) Private Const IDC_SIZENWSE As UInt32 = 32642 ' ESTE NO LO SÉ SEGURO AHORA MISMO Private Const IDC_SIZEWE As UInt32 = 32644 ' TAMAÑO WEST-EAST (flecha de cambiar tamaño izquierda-derecha) Private Const IDC_UP As UInt32 = 32516 ' FLECHA ARRIBA Private Const IDC_WAIT As UInt32 = 32514 ' BUSY
algo así, compara los nombres con los cursores AERO por defecto y obtendrás los nombres con seguridad. saludos Deberia leer mas, no? Pues ya esta :) Se puede cerrar. :P
|