Mensajes

el filecopy no permite realizar copias de ficheros abiertos te recomiendo :

Declare Function CopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long

puedes hacerlo mediante mod_rewrite o redirigiendo con funciones php (header y derivados) o http refresh etc

El código es un caos total, guardar el margen y demás es fundamental para una lectura rápida, cuando veo que no se guarda el margen me vienen dos cosas a la cabeza, que el que programa es un "guarro" o que ha copy&pasteado de otro lugar

Existe un fallo en la temperaturadeldisco, cuando se recorre un array/colección de elementos se le debe indicar en donde metes el siguiente elemento, agregándolo se supone que "funciona" y digo "funciona" porque a mi me marca 0 de temperatura 

Código [Seleccionar] Expandir

Private Function TemperaturaDelDisco() As Integer
    Dim objWMI, objInstances, objInstance
    Dim sData() As String
    Dim strServer As String: strServer = "."
    Set objWMI = GetObject("winmgmts://" & strServer & "/root\WMI")
    Set objInstances = objWMI.InstancesOf("MSStorageDriver_ATAPISmartData", 48)
On Error Resume Next
    For Each objInstance In objInstances
        With objInstance
            sData = Split(Join(.VendorSpecific, ","), ",")
            TemperaturaDelDisco = sData(115)
        End With
    Next objInstance  <--
End Function 

falta el data source correcto que si es local sería localhost y el user pass si es que tienen

en lo del on error se se ha olvidado poner exit sub para que no entre cuando todo vaya bien
el on error goto sirve para controlar/informar de errores durante la ejecución de dicha función/procedimiento

Código [Seleccionar] Expandir

Private Sub Form_Load()
On Error GoTo Error

'bla bla bla ...

exit sub    '<---
Error:
    MsgBox "No puedes redimensionar un array ESTATICO"

    Err = 0
End Sub

en el evento Form_Resize para cuando cambie manualmente las dimensiones

e inicialmente el objeto screen con las propiedades de ancho y lardo de la pantalla (creo k en twips)

no he entendido que es lo que quiers hacer, pero si es mostrar los datos de ambas tablas como si fuesen una

select reino from (select reino from u_reinos union select nivel from z_ciencia_nivel) as tablita

esto es más tema de sql que vb


si no es eso especifica :X

cobein no los maleduques!!


si necesitas conocer los parámetros o las APIs tienes una herramienta llamada API-Guide muy bien documentada y con ejemplos de uso completitos, cuando tengas una duda concreta acude al foro ...

si el capturar datos en la entrada no me resulta ningun problema!!


el problema que tengo es que cuando genero la conexión mysql toma el foco y la siguiente instrucción del .bat no se ejecuta hasta que termina la sesion de mysql!!

estoy mirando todos los parámetros que tiene mysql (buff) y creo que he encontrado uno que lo hace -e

pero he optado por meter la consulta en el script que crea la base de datos  (tonto de mi no darme cuenta antes xD)

y como se puede iniciar una entrada de archivo al iniciar sesión wualá

Código [Seleccionar] Expandir

rem %u% indica una variable con el nombre del user y %p% su contraseña ;D
mysql -hlocalhost -u%u% -p%p% < sql_datos.sql


gracias por intentar ayudarme

No funciona, al hacer eso aparece un echo con el mensaje

"eval(gzinflate(base64_decode(urldecode("jbgkjl........uigyuig")));

en vez del texto descifrado

Saludos!

esta claro que haces algo mal xD