eso no sirve. solamente te da 10 reinicios
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úCitarlas netbooks educativas que distribuye el Programa Conectar Igualdad fueron desarrolladas exclusivamente por el proveedor con este objetivo, es decir que no son modelos que se ofrecen comercialmente en el mercado.
CitarEsto es, el reemplazo del firmware del motherboard (BIOS), la configuración del BIOS o el formateo del disco duro no invalidan o afectan en ninguna manera la efectividad del sistema de seguridad antirrobo.
CitarDado que la inviolabilidad depende del servidor que administra las netbooks de su zona, el mismo posee similar tecnología de seguridad (TPM) que las netbooks (basado en hardware), impidiendo así, la posibilidad de clonación no autorizada de los servidores.
Citarcada computadora posee un dispositivo de seguridad que garantiza la inviolabilidad de las máquinas resguardando la información que contienen
Cita de: Crazy.sx en 9 Marzo 2012, 03:23 AM
No sean pavos y estudien, no tienen ni la menor idea del tiempo que están perdiendo en tratar de descifrar el código, etc., etc. en lugar de hacer algo productivo para Uds. mismos.
Option Explicit
'PROOF OF CONCEPT / PRUEBA DE CONCEPTO
'ELEMENTAL CODE (Milton Candelero)
'5/3/2012 (dd/mm/aaaa)
'UPDATE MODULE / MODULO DE ACTUALIZACION
'En caso de uso y/o modificacion, respetar los creditos.
'Hecho para Lordzito ya que su version era fea, ineficiente, y tenia muchisimas comprobaciones de si le habian sacado una linea que decia "By lordzito" ¬¬
Const OldVer As Double = 666 'Version actual (solo admite formato x.x NO USAR FORMATOS COMO x.x.x.x)
Const URLVer As String = "URL del txt" 'url del txt
Const URLSetup As String = "URL del archivo" 'url del archivo
'EDITAR LAS CONSTANTES DE ARRIBA!!
'SINO ESTO NO VA A FUNCIONAR.
'***********************************************************
Dim NewVer As Double
Dim ff As Integer
Dim sVersion As String
'(USO DOUBLES para que si yo tengo la version 1.6 y el txt dice 1.5 no me obligue a actualizar)
'URLDownloadToFile es una de las formas mas feas de bajar un archivo, pero bueh, que se le va a hacer :P
Private Declare Function URLDownloadToFile _
Lib "urlmon" _
Alias "URLDownloadToFileA" ( _
ByVal pCaller As Long, _
ByVal szURL As String, _
ByVal szFileName As String, _
ByVal dwReserved As Long, _
ByVal lpfnCB As Long) As Long
'Verifica y contesta TRUE si hay actualizaciones nuevas y FALSE si no las hay.
Public Function UpdateAvailable() As Boolean
Call URLDownloadToFile(0, URLVer, "c:\Version.txt", 0, 0)
ff = FreeFile
Open "c:\Version.txt" For Binary As ff#
sVersion = Space(LOF(1))
Get #ff, , sVersion
Close #ff
NewVer = CDbl(sVersion)
If NewVer > OldVer Then UpdateAvailable = True Else UpdateAvailable = False
End Function
'Descarga el archivo indicado en la constante "URLSetup"
Public Function DownloadSetup(Optional sPath As String = "c:\SETUP.exe")
Call URLDownloadToFile(0, URLSetup, sPath, 0, 0)
End Function