Hay alguna forma de cambiar la imagen del cursor desde Batch?

[z3nth10n]

Hola amigos, pues creo que el titulo lo dice todo. xD
Un saludo.

[Eleкtro]

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í:

Código [Seleccionar] Expandir

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:

Código [Seleccionar] Expandir

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)

Código (dos) [Seleccionar] Expandir


:: 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:

Código (vbnet) [Seleccionar] Expandir

'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).

[z3nth10n]

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

[Eleкtro]

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 > Mouse

Saludos



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:

Código [Seleccionar] Expandir

DllCall("SystemParametersInfo", "UInt", 0x57, "UInt", 0, "UInt", 0, "UInt", '0')
http://www.thebitguru.com/articles/14-Programmatically+Changing+Windows+Mouse+Cursors

[z3nth10n]

Lee mi postdata:
En el código tienes las variables para cambiar el tipo de cursor que quieras...

Hermoso troll voy a hacer  
Pero aparte de esas 3 y etc hay mas? digame uste todas que no haya por donde cojerlo xd 

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  

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:

Código [Seleccionar] Expandir

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  

[Eleкtro]

Pero aparte de esas 3 y etc hay mas? digame uste todas que no haya por donde cojerlo xd  

¿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

[z3nth10n]

¿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? 

[Eleкtro]

joder macho

Código (vbnet) [Seleccionar] Expandir


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

[z3nth10n]

joder macho

Código (vbnet) [Seleccionar] Expandir


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.