Mensajes

mmmm como mucho te va a saltar un cartelito disiendote que puede que el prograa no es compatible, y bla, bla, bla..., le da s a ejecuta y tildas no molestes mas. y de ahi funciona de 10 ningun problema. te digo por que yo tengo Windows 7 x64 y tengo funcionando el Deamon Tool Lite v4.35.6

aca te dejo un link con ejemplo de manipulacion del registro de Windows
http://allapi.mentalis.org/apilist/4E1AB36884B253CE24768DA1C4080A14.html

ese windows UE falcon , le sacaron muchas cosas, drivers y etc.. los cuales son utiles para muchas pcs viejas, osea, 1000% sewguro de que le falta algun driver o similar.

yo que vos, no intentaria arreglar eso, ya que ahora vas a solucionar ese problema, pero despues con el tiempo te va a saltar otro y asi va a ser como el cuento de la buena pipa.

sugerencia, instala Windows XP pero con el CD original y de ser posible uno que ya tenga incluido de fabrica el Service Pack 3. es mas estable que ese coso del falcon y no te va a dar errores con la conexion a Internet.

mmmmmmmmm me suena a que tenes un virus en la pc.
osea que no te deje entrar en el registro y cuando modificas algo se te vuelve a como estaba antes, para mi es un virus....................

que Version de Windows tenes?
que Version de Windows Media Player tenes?

puede que sea solo un problema de codecs o algo mal configurado...

lo del size del buffer?

no se por que estaba en 1000, es un codigo viejo ese, nunca le preste mucha atencion. osea tengo el mismo codigo en C++ y ahi el size del buffer esta en 110, creo que aca le habia puesto 1000, para estar seguro, por si los de DynDNS modificaban algo en el .php ese. pero con 110 ó 108 tendria que ir bien.

asi sacas la Ip Publica:

Código (vb) [Seleccionar] Expandir


Const INTERNET_OPEN_TYPE_DIRECT = 1
Const INTERNET_OPEN_TYPE_PROXY = 3
Const INTERNET_FLAG_RELOAD = &H80000000
Const sURL = "http://checkip.dyndns.org/"

Private Declare Function InternetOpen Lib "wininet" Alias "InternetOpenA" (ByVal sAgent As String, ByVal lAccessType As Long, ByVal sProxyName As String, ByVal sProxyBypass As String, ByVal lFlags As Long) As Long
Private Declare Function InternetCloseHandle Lib "wininet" (ByVal hInet As Long) As Integer
Private Declare Function InternetReadFile Lib "wininet" (ByVal hFile As Long, ByVal sBuffer As String, ByVal lNumBytesToRead As Long, lNumberOfBytesRead As Long) As Integer
Private Declare Function InternetOpenUrl Lib "wininet" Alias "InternetOpenUrlA" (ByVal hInternetSession As Long, ByVal lpszUrl As String, ByVal lpszHeaders As String, ByVal dwHeadersLength As Long, ByVal dwFlags As Long, ByVal dwContext As Long) As Long

Public Function GetPublicIp()
Dim pIP() As String
Dim nose As String
    Dim hOpen As Long, hFile As Long, sBuffer As String, Ret As Long
    sBuffer = Space(1000)
    hOpen = InternetOpen(scUserAgent, INTERNET_OPEN_TYPE_DIRECT, vbNullString, vbNullString, 0)
    hFile = InternetOpenUrl(hOpen, sURL, vbNullString, ByVal 0&, INTERNET_FLAG_RELOAD, ByVal 0&)
    InternetReadFile hFile, sBuffer, 1000, Ret
   
    InternetCloseHandle hFile
    InternetCloseHandle hOpen
   
    pIP = Split(Trim(sBuffer), ": ")
    nose = Left(pIP(1), Len(pIP(1)) - 16)
    GetPublicIp = nose
End Function

Private Sub Main()
Debug.Print GetPublicIp
End Sub



[BeginUpdateResource Function]

no se si te sirva, pero bue aca te dejo un link sobre eso de esitar resursos

BeginUpdateResource Function
UpdateResource Function
EndUpdateResource Function

yo haria lo edicion una vez ya extraido el .exe

Código (vb) [Seleccionar] Expandir


Private Type RECT
   Left As Long
   Top As Long
   Right As Long
   Bottom As Long
End Type
Private Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long
Private Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long

Private Sub Command1_Click()
Dim rc As RECT
GetWindowRect Me.hwnd, rc
SetCursorPos rc.Left + 100, rc.Top + 100
End Sub


[Boot]

mmm el instalar Windows 7 es facilisimo, osea lo mas complicado de todo esto es verificar si esta configurado el bios para que bootee desde la unidad de DVD o USB

ni bien prendas la portatil, apreta [ Supr ] y apretala muchas veces hasta que aparezca una pantalla ( generalmente azul ) ahi te va a aparecer un menu en la parte de arriba , busca con las flechas del teclado Boot. De ahi te va a mostrar el orden de booteo que tiene seteado tu portatil.
tenes que dejar como 1º la unidad de DVD, o Flash driver ( en el caso de que quieras instalarlo x medio de usb )

cuando logres que quede como 1º la unidad de DVD, te vas al menu Exit y guardas los cambios al salir.

insertas el DVD de Windows 7 y inicias la pc.
te va a decir que hay un DVD en la unidad y si queres iniciar desde ahi, apretas cualkier tecla para confirmar. y desde ahi el programa de instalacion te va a guiar attravez de los pasos necesarios

En un momento te va a pedir que elijas si queres Actualizar a Windows 7 o hacer una instalacion personalizada. ahi eleji personalizada. despues te va a mostrar una lista de las particiones disponibles generalmente se instala sobre la particion C:\. elejis la particion donde queres instalar, te va a decir que ya existe un sistema operativo ahi , y te da la opcion de [ instalar sobre o formatear] elejis formatear, NTFS rapìda, y desde ahi creo que hace todo lo demas solo, bue despues te va a preguntar algunas cosas basicas de configuracion del sistema, como pais, hora y etc....

PD: si la postatil no tiene mas de una particion, graba tus datos impostantes en algun DVD o similar