ya probé eso también, de todos modos lo volví a hacer porque no le di a Restaurar configuración predeterminada, simplemente comprobé que dicha configuración no impidiera hibernar. Igualmente no ha funcionado.

Creo que de algún modo se ha corrompido la estructura del disco duro y Windows no puede guardar los datos de hibernación. Otra cosa no se me ocurre ya

gracias de todos modos

---

vale era el disco duro  

Lo explico por si a alguien le pasa.

Cuando en la instalación de Windows se usa la instalación para formatear el disco y prepararlo para la instalación se crea una partición oculta de 100MB llamada * System Reserved, la cual no tiene letra de unidad y desde un editor de particiones aparece con un asterisco a la izquierda *. Como se puede ver en esta imagen.

Pues resulta que al abrir mi editor, en este caso EasUS Partition, veo que hay una partición residual sin usar con un asterisco * y de 1MB





Usando el mismo editor he redimensionado la partición System Reserved, absorviendo la partición residual de  1MB, Windows ya puede guardar los datos de hibernación y ahora ya hiberna.

Al parecer supongo Windows trataba de usar la partición de 1MB y con este tamaño lógico no puede guardar los datos de hibernación y se para en el camino.


Sin embargo el problema no se acaba aquí, tras hibernar a los 5 segundos, habiéndose apagado el ordenador del todo, vuelve a despertar él solito  

---

El nuevo problema también está resuelto  

He desactivado los Temporizadores de hibernación



No me parece buena solución, más bien un parche porque ¿y si yo quiero realizar una tarea de forma automática a determinada hora y despertar la computadora de forma automática? Entonces no podría.

Ahora la cosa es averiguar qué lo está haciendo reactivarse solo. De momento queda deshabilitado pero no me parece buena solución.  


¿Alguien sabe donde se guarda esta información para averiguar que programa o como eliminar ese temporizador de reactivación?

---

Finalmente averigüé qué reactivava el PC al hibernar. Tengo un ratón Logitech inalhámbrico. Pues simplemente moviendo un poco la mesa o cerrando un cajón, el ratón se mueve ligeramente y esto reactivava el PC. Para evitar que esto ocurra me dirigí a  Panel de Control\Propiedades: Mouse\Pestaña: Harwdare\Botón [Propiedades]\Pestaña: General\Botón: [Cambiar configuración]\Pestaña: Administración de energía\Desactivar->"Permitir que este dispositivo reactive el equipo.



*Debo aclarar que si el Ratón y el Teclado inhalámbricos van juntos, son un pack que comparten el receptor o stick se debe hacer lo propio también con el teclado porque si no el ratón seguirá despertando el PC.



Si a alguien le ocurre y no es por el Mouse o el teclado y pudiera ser algún bot o alguien de forma remota (en un principio pensé que mi problema vendría por aquí) quizás le interese lo que propone un usuario en este foro:

Cómo ver la fuente de activación en Windows 10

Cómo ver los temporizadores de activación activa en Windows 10

(esto respondería a mi pregunta ¿Alguien sabe donde se guarda esta información para averiguar que programa o como eliminar ese temporizador de reactivación?)

---

Esto no se acaba aquí
Me ha estado funcionado Hibernar, sí pero ayer noche después de estar haciendo un uso normal del ordenador y realizando una limpieza a fondo, pero no solo de archivos si no que que experimenté a ver hasta dónde podía borrar rastro de actividad, cual es mi sorpresa cuando me encuentro que nuevamente no puedo hibernar.

Lo primero que hice fue mirar a ver si se había creado nuevamente una partición residual, pero no. Luego ya por experiencia, abrí msconfig.exe
y como sospechaba la pestaña Arranque(Boot), no me permitía realizar acciones, ni configurar nada. De hecho no aparecía el sistema operativo predetermiando (por eso no deja hacer nada)



Como ya sabía que esta información estaba en la clave [HKEY_LOCAL_MACHINE\BCD00000000\] del registro de Windows, ejecuté regedit.exe y pasó que NO ESTABA .

Restauré  el MBR, y  reinicié, pero todo seguía igual.

Lo que hice después es darle letra a la partición *: System Restore para hacerla visible y  ver el contenido y ver que los archivos de arranque y la carpeta BOOT se encontraban allí.  Al hacer esto qué curioso aparece HKEY_LOCAL_MACHINE\BCD00000000\ y el SO predeterminado de la carpeta Arranque (Boot)



Hice una copia de la clave [BCD00000000] por si acaso y volví a quitarle la letra a X:\ . con EasUS Partition y nuevamente el SO predeterminando desapareció de la pestaña Arranque del msconfig.exe.. Así que digo, vale Windows no puede acceder al arranque, ¿por qué antes sí y luego no? ni idea. Realicé varios comandos en consola con privilegios de Administrador con bcdedit sin éxito.

Pensé que al redimensionar debí cambiar el estado del mismo o algo así, entonces ejecuté Paragon Partition Manager, ya que este me permite ocultar unidades y ponerlas en modo oculto (HIDE). Tras hacer esto reiniciar, miré el registro y la clave [BCD00000000] seguía allí, el SO predeterminado  en la lista de la pestaña Arranque del msconfig.exe y podía HIBERAR el PC nuevamente.

No se qué solucionó el problema si el cambio a HIDE de la partición, los comandos con bcdedit o ambas cosas. Pero si alguien se encuentra dicho problema  que sepa que está todo relacionado; la necesidad de Windows de acceso a *:System Restore o la carpeta Boot que contiene el arranque, lo digo porque la carpeta Boot puede estar en C:\ según como se instale el SO; luego entra dendro del pack la clave BCD00000000  y la pestaña Arranque del msconfig.exe.
 
Basta que ver que no existe la clave BCD00000000 o que el SO predeterminado no aparece en la pestaña Arranque del msconfig.exe para saber que tu PC no va a poder Hibernar.

También otro síntoma es que al entrar en Reparar el Equipo con [F8] al arrancar la computadora y realicar el Sartup Repair(Reparación de inicio) se detiene y aparece el siguiente mensaje:

Esto creo que pasa porque no puede acceder al arranque o boot y salta este mensaje.

Luego están estos comandos:

y esto también:



No los llegué a probar y se supone restauran el arranque.

Si me vuelve a pasar y averiguo qué exactamente solucionó el último problema lo publicaré

Saludos

 

No consigo que mi PC hiberne, se apaga la pantalla pero permanece encendido pulso un botón y aparece el incio de sesión de usuario. Simplemente se apaga la pantalla.

Tengo Windows 7
El modo hibernación está activado.
Restaurar Sistema activado
El BIOS está actualizado y con los valores por defecto.

Pero nada no hiberna, recuerdo haber tenido algún problemas similar con la hibernación y lo solucioné pero ahora la verdad es que no se que puede ser.

¿Podría ser algún componente de hardware impida que pueda hibernar? Sospecho de un panel frontal que le he isntalado



voy a ver si restaurando inicio se arregla.

De momento acepto sugerencias

Gracias de antemano

---

Vale parece que es cosa del disco duro.

O sea que Robert Pattinson habrá follado ya más que copito de nieve y yo juntos.

La belleza está en la bella imperfección.

Escribe "mouse wheel picturebox vb6" en google.

Acostúmbrate a buscar info en inglés porque la mayoría de las cosas están en inglés


https://www.recursosvisualbasic.com.ar/htm/listado-api/215-usar-rueda-del-mouse-en-flexgrid-datagrid.htm

Mírate la sección: "Ejemplo 4 - Ejemplo para usar la rueda del mouse en controles Scrollbar"

puedes descargar el código en la página



Nota: No te va a hacer zoom pero cambiando los parámentros puedes hacer que te haga zoom.

En cualquier buscador puedes encontrar un buen montón de ejemplos, es una de las cosas más demandadas, por principiantes; hacer zoom, redimiensonar, mover el scrolll, voltear, usar el wheel  etc.

---

Aquí tienes para el zoom
https://www.recursosvisualbasic.com.ar/htm/listado-api/71-zoom-imagen-stretchbit.htm

---

mas cosas aquí como hacer una lupa

Dim StartX As Single, StartY As Single
 
Private Sub Form_Activate()
    MousePointer = 11
    Picture2.PaintPicture Form1.Picture, 0, 0
    Picture1.PaintPicture Picture2.Image, -20, -20, Picture1.Width + 100, Picture1.Height + 100, _
    Picture1.Left, Picture1.Top, Picture1.Width, Picture1.Height
    Picture1.Line (0, 0)-(Picture1.Width - 1, Picture1.Height - 1), 0, B
    MousePointer = 0
End Sub
Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    StartX = X
    StartY = Y
    Picture1.AutoRedraw = False
End Sub
 
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = 1 Then
        Picture1.Left = IIf(X < StartX, Picture1.Left - (StartX - X), Picture1.Left + (X - StartX))
        Picture1.Top = IIf(Y < StartY, Picture1.Top - (StartY - Y), Picture1.Top + (Y - StartY))
 
        Picture1.PaintPicture Picture2.Image, -20, -20, Picture1.Width + 100, Picture1.Height + 100, _
        Picture1.Left, Picture1.Top, Picture1.Width, Picture1.Height
        Picture1.Line (0, 0)-(Picture1.Width - 1, Picture1.Height - 1), 0, B
    End If
End Sub
 
Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Picture1.AutoRedraw = True
End Sub
 
 

https://mega.nz/#!6N0lAQDJ!dkAZKkUnQxmX9xS7ZF6Kz-fnQdb1O1-TES9kaB3w9so

---

62 - Redimensionar imágenes en un PictureBox al estilo Vista previa de imagen

---

En este enlace un buen montón de códigos para tratamiento de imágenes.


https://onedrive.live.com/?authkey=%21AGLMrn20g0JGtX0&id=C9DBA2BC5A16373B%21115&cid=C9DBA2BC5A16373B

los bots son muy difíciles de detectar. Chequea tu conexión,

Abre el cuadro "ejecutar" (Tecla windows + R) una vez abierto teclea "resmon.exe" sin comillas y pulsa "Aceptar", se abrira el monitor de recursos. Ahí puedes ver el rendimiento del CPU, la memoria, y la red.  Los bots hacen uso de red y cpu así que si dejas el ordenador en inactivada y ves que el CPU trabaja más de la cuenta (se ven picos altos en la gráfica) y por otro lado el uso de red. Procura que no haya nada descargando o actualizándose (actualizaciones automáticas), desactiva servicios como "ervicio de transferncia inteligente en segundo plano, Windows Update y la actualización automática del antivirus, al igual aplicaciones que tengas activado las actualizaciones automáticas. Entonces nada debería enviar o recibir información a través de la red y en cuyo caso el interambio de datos debe ser muy pequeño, sin picos altos.

El CPU igual, pero ten en cuenta que con solo mover la barra de desplazamiento del Monitor de Recursos ya haces uso del CPU y verás como cada vez que lo hagas sale un pico en la gráfica. Además tu CPU puede tener núcleos, entonces no habrá solo una gráfica habrán distintas para cada núcleo.

Hay que estar rato observando.

Puedes hacer uso del Servicio AntiBotnet que ofrece la Oficina de Seguridad del Internauta. Este servicio comprueba si tu  IP está asociada a una Botnet, pero ojo, no el PC si no la IP.

una vez detectado un problema es cuestión de encontrar la fuente.


Puede que alguien te aconseje instalar X programa mágico que elmina posibles BOTS, pero en mi opinión no me fiaría mucho porque puede que justo al instalar dicho programa estés introduciendo un bot en tu PC o un troyano.

 

Con los rifirafes que tengas con otro usuario  yo ahí no me meto, menos si es del staff de este foro que no se si será, que aquí son muy susceptibles.

En cuanto a lo del picture el error se produce porque para cargar una imagen debes hacer uso de LoadPicture() para la propiedad Picture de la imagen. Al cargar un nombre extraño no entiende determinados carácteres y se reemplazan por interrogantes, por ejemplo [C:\directorio\鋼拉絲Steel Brushed Stainless.jpg] queda como  [C:\directorio\???Steel Brushed Stainless.jpg]. Dado que el archivo ???Steel Brushed Stainless.jpg no existe da error. Da igual el cuadro de diálogo que uses al final debes meterlo en la propiedad la cual va a recibir un directorio que no existe. Por no hablar que no cargar algunos tipos de imagen como imágenes PNG.

Abría que investigar un poco el tema, ahora mismo no se me ocurre nada al respeto para solucionarlo.


Aquí tienes la explicación, realmente no es un problema del Picture si no de VB6:

http://www.cyberactivex.com/UnicodeTutorialVb.htm

pues la policía 

a ver, esto lo que hace es inhabilitar la ventana Photos_PhotoCanvas que contiene la imagen. De este modo no se puede usar el ratón (solo en Photos_PhotoCanvas)

 
 
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 EnableWindow Lib "user32" _
(ByVal hwnd As Long, ByVal fEnable As Long) As Long
 
 
Private Sub Command1_Click()
Dim hPhotos_PhotoCanvas As Long
Dim hPhoto_Lightweight_Viewer As Long
 
TITULODELAVENTANA = "Desierto.jpg - Visualizador de fotos de Windows"
 
'//handle de la ventana
hPhoto_Lightweight_Viewer = FindWindow("Photo_Lightweight_Viewer", TITULODELAVENTANA)
 
'//handle del Photos_PhotoCanvas
hPhotos_PhotoCanvas = FindWindowEx(hPhoto_Lightweight_Viewer, ByVal 0&, "Photos_PhotoCanvas", vbNullString)
 
Call EnableWindow(hPhotos_PhotoCanvas, vbFalse)
End Sub
 

pues tengo una ligera idea de que quizás si se pueda. Espera a que pruebe.

usa un do While

 
 
Do While HWNDParent = 0
   HWNDParent = [Buscar handle visualizador de windows]
   DoEvents '//esto es para evitar que la apliación se quede pillada
Loop
 
 
'Do While hwnd = 0
'[Abrir imagen en el visualizador de windows correspondiente]
'DoEvents
'Loop
 
 
 

---

pues no se que habrás hecho  

Usa ShowWindow y el comando HIDE_WINDOW = 0. Si lo has usado no funciona es que no lo harás bien digo yo. miratelo

 
 
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 GetClassName Lib "user32" Alias "GetClassNameA" _
(ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long
Private Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long
 
Private Declare Function GetNextWindow Lib "user32" Alias "GetWindow" _
(ByVal hwnd As Long, ByVal wFlag As Long) 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
 
 Const HIDE_WINDOW = 0
 Const SHOW_OPENWINDOW = 1
 Const GW_HWNDNEXT = 2
 Const GW_CHILD = 5
 
 Dim TITULODELAVENTANA As String
Dim hPhoto_Lightweight_Viewer As Long
Dim hPhotos_NavigationPane As Long
Dim hPhotos_NavigationBar As Long
Dim hPhotos_ButtonEx_1 As Long
Dim hPhotos_ButtonEx_2 As Long
Dim hPhotos_ButtonEx_3 As Long
Dim hPhotos_ButtonEx_4 As Long
Dim hPhotos_ButtonEx_5 As Long
Private Sub Command1_Click()
 
TITULODELAVENTANA = "Desierto.jpg - Visualizador de fotos de Windows"
'Orden de padre a hijos
'1.Photo_Lightweight_Viewer
'-----Photos_NavigationPane
'------------Photos_NavigationBar
'----------------------Photos_ButtonEx
 
'//handle de la ventana
hPhoto_Lightweight_Viewer = FindWindow("Photo_Lightweight_Viewer", TITULODELAVENTANA)
 
'//handle del panel
'handle de Photo_Lightweight_Viewer
handlePhotos_NavigationPane = FindWindowEx(hPhoto_Lightweight_Viewer, ByVal 0&, "Photos_NavigationPane", vbNullString)
 
'//Handle del control de botones
'handle de hPhotos_NavigationBar
handlePhotos_NavigationBar = FindWindowEx(handlePhotos_NavigationPane, ByVal 0&, "Photos_NavigationBar", vbNullString)
 
 
'//BOTONES
'//Como Photos_ButtonEx no tiene hijos a partir de aquí se usa  GW_HWNDNEXT
'//para obtener el handle del siguiente botón (ventana)
 
'handle de Photos_ButtonEx (la lupa)
hPhotos_ButtonEx_1 = FindWindowEx(handlePhotos_NavigationBar, ByVal 0&, "Photos_ButtonEx", vbNullString)
 
'handle de Photos_ButtonEx (botón maximizar)
hPhotos_ButtonEx_2 = GetWindow(hPhotos_ButtonEx_1, GW_HWNDNEXT)
 
'handle de Photos_ButtonEx (botón "izquierda")
hPhotos_ButtonEx_3 = GetWindow(hPhotos_ButtonEx_2, GW_HWNDNEXT)
 
'handle de Photos_ButtonEx (botón diapositivas)
hPhotos_ButtonEx_4 = GetWindow(hPhotos_ButtonEx_3, GW_HWNDNEXT)
 
'handle de Photos_ButtonEx (botón "derecha")
hPhotos_ButtonEx_5 = GetWindow(hPhotos_ButtonEx_4, GW_HWNDNEXT)
 
 
'quitar hPhotos_ButtonEx_1
Call ShowWindow(hPhotos_ButtonEx_1, HIDE_WINDOW)
 
 'quitar hPhotos_ButtonEx_2
Call ShowWindow(hPhotos_ButtonEx_2, HIDE_WINDOW)
 
  'quitar hPhotos_ButtonEx_5
Call ShowWindow(hPhotos_ButtonEx_5, HIDE_WINDOW)
 
End Sub
 
Private Sub Command2_Click()
'mostrar hPhotos_ButtonEx_1
Call ShowWindow(hPhotos_ButtonEx_1, SHOW_OPENWINDOW)
 
 'mostrar hPhotos_ButtonEx_2
Call ShowWindow(hPhotos_ButtonEx_2, SHOW_OPENWINDOW)
 
  'mostrar hPhotos_ButtonEx_5
Call ShowWindow(hPhotos_ButtonEx_5, SHOW_OPENWINDOW)
 
End Sub