Menú

Mostrar Mensajes

Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.

Mostrar Mensajes Menú

Mensajes - Serapis

#1101
Para el hsitórico de partidos, yo solía adquir cada año (creo que sigue existiendo), un almanaque que se compra en kioskos y librerías llamado "Don Balón" y que contiene muchos de los datos con los que hacer estadísticas de por lo menos 50 u 80 años atrás... vamos desde la guerra civil... aunque yo fitraba para usar solo datos a partir de los 80, porque con el paos de tiempo cambiaron cosas que luego te complicaba las cosas innecesariamente y no proveían datos útiles...
Para los resultados y tal semana a semana de la vigente temporada, tirada del periódico "el AS" (entonces no había internet, claro está)...

Un problema con las estadísticas de fútbol (y similares), es que basta el cambio de una regla en el terreno del juego, para que cambie considerablemente... por ejemplo cuando un partido ganado empezó a valorarse con 3 puntos (antes eran solo 2), considerar los resultados a final de temporada con una u otra puntuación cambiaba la posición final en el campeonato de algunos equipos. ...luego las estadísticas fluctúan con tales cambios... ahora que han metido el sistema de cámaras para el arbitraje sin duda supondrá otra antes y después que haga que las estadísticas vuelva n a zozobrar durante algún tiempo hasta que 'se asiente' y haya ya un historial que sea una base algo más estable...
#1102
OK... les hecho un vistazo a esos nombres parecen caracteres cirílicos...
He notado también que hay ficheros que pueden tener uno o más null al final del mismo, y si aparece al final, no los retira, ya que VB considera los BString que acaban en null, no considera el último en tanto sea 1 byte por carácter (ANSI)... así que aprovecho de darle un repaso ambos casos.

La lupa que he subido es totalmente hecho por mí, y salvo a mi sobrino que fue quien me lo pidió hace 10 o 12 años, no recuerdo haberlo compartido antes, luego debe tratarse de otra lupa distinta. De todos modos son códigos muy sencillos, pués básicamente son APIs BitBlt, copiando y pegando constantemente... pero que requiere sus líneas de código y no es plan copiar y pegar en cada proyecto...
Los controles de usuario resultan cómodos, porque una vez los compilas, los registras y usas y reutilizas donde haga falta con pocas líneas...
#1103
Cita de: Fran1946 en  6 Febrero 2020, 10:42 AM
...Efectivamente este código soluciona el problema.
Y esto me sugiere que podría volver a utilizar un PictureBox como visor...
Pero necesito un código para poder hacer zoom con la rueda del ratón, y poder mover la imagen con zoom pulsando el botón Iqdo del ratón y mover.

Y tengo código de Lupa pero en una ventana externa, no ampliando imagen en el Picture.

Puedes ayudarme en esto, sería perfecto.

Vayamos por partes...

Para el zoom, basta una lupa...

He desempolvado un viejo control de usuario, le he retirado cosas que lo harían complicado (otros controles que no vienen al caso), hasta dejarlo en su más simple expresión... y puesto en un proyecto de prueba, para que trastees las propiedades y veas que tal va y si te satisface así.
(nota que el proyecto a falta de conocer donde tienes imágenes las toma de %windir% \web\wallpaper\*.jpg tu podrías suplirlo con una ruta alternativa si te place o no tienes localizada dicha ruta)
Las propiedades básicamente son:
- Aumento: 0'04 hasta 4'00 (admite dos decimales).
- AnchoExplora: Píxeles  de ancho captura
- AltoExplora: Píxeles de alto que captura
(las medidas de la lupa resultan de la multiplicación de estos valores por el zoom).
- ModoRastreo: Normal/Invertido (invertido es en negativo).
El resto de funcionalidad ya la ves sobre el propio proyecto.... Basta una lupa para múltiples ventanas, si fuera el caso. Se incluye un segundo form, sin controles que 'toma prestado la lupa' del primario, para examinar el asunto.

Descarga del control y el proyecto de prueba: https://workupload.com/file/8jaeBw22
Y una simple captura de pantalla (dado que la lupa si no se mueve en una imagen estática puede pasar desapercibida, he activado el modo inverso, antes de hace rla captura):


Si no termina de gustarte, hay muchas lupas por la red que puedas probar y usar... seguramente en foros como:
-www.planet-source-code.com
-www.vbforums.com
-www.freevbcode.com
-forums.codeguru.com
-www.recursosvisualbasic.com.ar
-www.vb-helper.com
-etc, etc...

Solventa lo de la lupa, y luego expones el siguiente problema que tengas...
#1104
Que el Trump'oso' salga indemne, solo significa que el juez está vendido.

Como se suele decir: "para cada roto hay un descosido."
#1105
Cita de: Fran1946 en  5 Febrero 2020, 17:14 PM
...Yo utilizaba para ver la comparación un PictureBox, que sería más logico utilizar, pero este control tiene muchos problemas de errores al cargar ciertas imágenes con nombres muy raros, como estos ejemplos que son reales:

!B,wfDHgBGk~$(KGrHgoOKj!EjlLmZDmvBKs6y)CFe!~~_3.jpg
鋼拉絲Steel Brushed Stainless.jpg
MATI BELEN, COVA Y ROSANA, CON ADRIANA, Y JOSE ANTONIO.jpg

Ninguno de estos archivos los carga PictureBox sin dar error, y por supuesto no los visualiza. Y además no puedo evitar ni sortear el error, si se produce, sin que se cierre el programa.
Bueno, en efecto, VB6 no se las lleva bien cuando en un nombre se colocan caracteres ANSI y UNICODE...
Lo cual no quiere decir que no tenga solución.

Te pongo un código de ejemplo que soluciona el caso, mediante una simple API...
Y luego una imagen... nota que la imagen es una captura de tu mensaje, pero el nombre d ela imagen es el mismo que tu tienes ahí arriba y nota como la imagen se carga perfectamente con este modo...

Código (vb) [Seleccionar]


Private Const INVALID_HANDLE_VALUE      As Long = -1
Private Const MAX_PATH                  As Long = 260
Private Const SHORT_PATH                As Long = 14

Private Type FILETIME
  dwLowDateTime                        As Long
  dwHighDateTime                       As Long
End Type
Private Type WIN32_FIND_DATA
  dwFileAttributes                     As Long
  ftCreationTime                       As FILETIME
  ftLastAccessTime                     As FILETIME
  ftLastWriteTime                      As FILETIME
  nFileSizeHigh                        As Long
  nFileSizeLow                         As Long
  dwReserved0                          As Long
  dwReserved1                          As Long
  cFileName                            As String * MAX_PATH
  cAlternate                           As String * SHORT_PATH
End Type

Private Declare Function FindFirstFile Lib "kernel32" Alias "FindFirstFileA" (ByVal lpFileName As String, lpFindFileData As WIN32_FIND_DATA) As Long


' Código dle botón que carga la imagen:
Private Sub Command1_Click()
   Dim Ruta As String
   
   cdlg.ShowOpen   ' Cdlg, es un control CommonDialog...
   If (Len(cdlg.FileName) > 0) Then
       Ruta = ResuelveRuta(cdlg.FileName)
       if (len(ruta)>0) then
           Set Picture1.Picture = LoadPicture(Ruta)
       end if
   End If
End Sub

' Función que resuelve el problema de los nombres con caracteres Unicode dentro del nombre...
Private Function ResuelveRuta(ByVal Ruta As String) As String
   Dim j As Long, k As Long, WFD As WIN32_FIND_DATA
   
   j = FindFirstFile(Ruta, WFD)
   If (j <> INVALID_HANDLE_VALUE) Then
       k = InStrRev(Ruta, "\")
       
       If (Left$(WFD.cAlternate, 1) <> Chr(0)) Then
           ResuelveRuta = Left$(Ruta, k) & WFD.cAlternate
       Else
           ResuelveRuta = Left$(Ruta, k) & WFD.cFileName
       End If
   Else
       ResuelveRuta = ""
   End If
End Function

Private Sub Form_Load()
   cdlg.InitDir = App.Path
End Sub




Otros problemas que tengas con los picturebox, se pueden ir viendo, si describes el problema en cuestión.
#1106
Seguridad / Re: Ayuda con virus
5 Febrero 2020, 14:58 PM
Si miras con detenimiento, la info que proporciona la página de VT con el enlace que das, en la ficha 'Behaviour' (Comportamiento), lo primero es bloquear la IP: 52.12.179.226 que parece ser donde esté alojado o rebote el comunicador con el troyano.
También si despliegas los 'resúmenes' (pulsando en la flechita hacia abajo), podrías ver por ejemplo el chorro de acceso al registro... eso y los módulos cargados, pueden dar una vaga idea de las pretensiones del troyano... un poco más profundo es pulsar en la misma página a la derecha 'full report'... y examinarlo a conciencia.

Yo te sugiero que actualices tu antivirus, y reiniciar el equipo en el modo a prueba de fallos, y pasar ahí el antivirus con todas las opciones desplegadas (análisis total de ficheros en disco y memoria)... cuando termine presta atención a los logs. Un buen lugar sobre desinfección es el foro de infospyware, que está especializado en el tema...
-https://forospyware.com/

Los ejecutables o instaladores, hay que pasarlos siempre por la página de VT, antes de ejecutarlos, despés ya es más problemático.
#1107
Pués si, matas moscas a cañonazos.... te guste o no aceptarlo.
Querer controlar mediante programación la interfaz de usuario de otra aplicación, es matar moscas a cañonazos.
La interfaz de usuario, como su nombre indica está pensada para ser utilizada por personas... para aplicaciones hay multitud de librerías que permiten invocar su funcionalidad, para hacer lo que pretendas hacer (modificar brillo, contraste, saturación, girar imagen, etc...), con sus respectivos parámetros... sin complicaciones estúpidas que uno se impone como una barrera...

Entiendo que uno no quiera implementar determinada funcionalidad, porque o bien no sabe como hacerlo o bien no quiere perder demasiado tiempo en hacerlo, pero perderlo en pretender controlar la interfaz de otro programa además tan limitado... es lo que es.

Te preguntaba en mi mensaje anterior, por la funcionalidad, simplemente para sugerirte opciones más amplias, sencillas (de usar) y válidas, si se tratara (por ejemplo) de algo como girar una imagen cambiar brillo, guardar una imagen, etc, pués ofrecerte ejemplos de código, si fueran demasiadas cosas o bien más complejas sugerirte alguna librería... pero si prefieres no dar explicaciones en tu "proceso bastante complicado, que es irrelevante", entonces sigue con el camino que llevas...
#1108
Dudas Generales / Re: Datos cuenta bancaria
5 Febrero 2020, 03:41 AM
Ni idea sobre dicho banco... pero en general, al crear una cuenta, a través de la red, antes de poder usarla se requiere verificar que los datos que aporta la persona que crea la cuenta sean reales, así que algunas geestiones es imposible saltarlas, porque tienen ese cometido... paypal, por eejmplo te hace un pago/cobro de una pequeña cantidad a la cuenta bancaria proporcionada, y te piden que señales cuanto es dicha cantidad, cosa que solo podrás verificar si en efecto es tu cuenta (o tienes acceso real a dicha cuenta)... luego de confirmada, hacen la operación inversa, para que el saldo quede 'en paz'...

En tu caso, parece que se requiere demostrar que al menos la persona vive/está en una ciudad donde existe un cajero de dicho banco, así además se confirma desde que ciudad haces la transferencia... es decir que por ejemplo un ciudadano chino, que viva en China, no podría crearse una cuenta (al menos fácilmente)...
#1109
Cita de: Fran1946 en  4 Febrero 2020, 13:39 PM
...Después visualiza, utilizando el Visualizador de fotos de Windows, las originales y las procesadas para poder compararlas...
Me temo que estás cazando moscas a cañonazos...
Define adecuadamente eso de: "...procesarlas para compararlas..."
#1110
Cita de: FJDA en  1 Febrero 2020, 20:26 PM
... Estoy por rellenar una hoja de reclamaciones o algo así para denunciar a dicho dependiente si sirve de algo. ¿Qué opináis?¿Debería hacerlo o dejarlo pasar?
Vuelve otro día... le hablas en inglés y a ver si te atiende en inglés... luego cambia a castellano a ver qué hace... si te habla en catalán, entonces yo si pondría reclamación porque queda claro que te está discriminando por el idioma...