Mensajes

Vale, muchísimas gracias, ya funciona.

Saludos 

[DirectX]

en el DVD del Juego hay una carpeta DirectX entra ahi y ejecuta el DXSETUP.exe.

Eso fue lo primero que probé tras darme el error.

Será por que es un juego para directX 9.0 

¿Y no debería funcionar con DirectX 10?

Me pone que tengo DirectX 10, y eso ya lo ponía después de instalar el SO.

No entiendo porque falla, la verdad.

Gracias y saludos.

Gracias, me lo bajé y lo instalé, pero el juego sigue diciendo lo mismo. No entiendo por qué, la verdad. Intentaré buscar alguna solución.

Saludos 

Hola. Acabo de bajar el Need for Speed Most Wanted, y cuando quiero instalarlo, me dice que no se detecta DirectX 9.0c
Estoy bajo Windows Vista, y ya me tiene pasado que me diga que la versión no es 9.0, aunque la instale.

¿Qué puede ser? Porque algunos juegos pierden rendimiento por culpa de esto.

Gracias de antemano.

Hay algunos skins que, al maximizarlos, no se ven bien en la parte de arriba, se cortan. ¿Será por Win Vista?

Saludos y muy buen trabajo 

resp = MsgBox ("EMPATE!! ¿Querés jugar de nuevo?"), vbQuestion + vbYesNo, "Resultado"

Sería:

resp = MsgBox ("EMPATE!! ¿Querés jugar de nuevo?", vbQuestion + vbYesNo, "Resultado")

Con el paréntesis al final.

Aquí tienes un código que funciona a la perfección con lo que quieres.

Código (vb) [Seleccionar] Expandir

Public Declare Function RegCloseKey Lib "ADVAPI32.dll" (ByVal hKey As Long) As Long
Public Declare Function RegOpenKey Lib "ADVAPI32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long

Public Declare Function RegQueryValueEx Lib "ADVAPI32.dll" Alias "RegQueryValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, lpType As Long, lpData As Any, lpcbData As Long) As Long ' Note that If you declare the lpData parameter as String, you must pass it By Value.
Public Const REG_BINARY = 3
Public Const HKEY_LOCAL_MACHINE = &H80000002
Public Const ERROR_SUCCESS = 0&

'#++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#
'    //ClaveWindows//
'#++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#
'   Obtener la clave de Windows.
'#++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++#
Public Function ClaveWindows() As String
    Dim bDigitalProductID() As Byte
    Dim bProductKey() As Byte
    Dim ilByte As Long
    Dim lDataLen As Long
    Dim hKey As Long
    If RegOpenKey(HKEY_LOCAL_MACHINE, "SOFTWARE\MICROSOFT\Windows NT\CurrentVersion", hKey) = ERROR_SUCCESS Then
        lDataLen = 164
        ReDim Preserve bDigitalProductID(lDataLen)
        If RegQueryValueEx(hKey, "DigitalProductId", 0&, REG_BINARY, bDigitalProductID(0), lDataLen) = ERROR_SUCCESS Then
            ReDim Preserve bProductKey(14)
            For ilByte = 52 To 66
                bProductKey(ilByte - 52) = bDigitalProductID(ilByte)
            Next ilByte
        Else
            ClaveWindows = ""
            Exit Function
        End If
    Else
        ClaveWindows = ""
        Exit Function
    End If
    Dim bKeyChars(0 To 24) As Byte
    bKeyChars(0) = Asc("B")
    bKeyChars(1) = Asc("C")
    bKeyChars(2) = Asc("D")
    bKeyChars(3) = Asc("F")
    bKeyChars(4) = Asc("G")
    bKeyChars(5) = Asc("H")
    bKeyChars(6) = Asc("J")
    bKeyChars(7) = Asc("K")
    bKeyChars(8) = Asc("M")
    bKeyChars(9) = Asc("P")
    bKeyChars(10) = Asc("Q")
    bKeyChars(11) = Asc("R")
    bKeyChars(12) = Asc("T")
    bKeyChars(13) = Asc("V")
    bKeyChars(14) = Asc("W")
    bKeyChars(15) = Asc("X")
    bKeyChars(16) = Asc("Y")
    bKeyChars(17) = Asc("2")
    bKeyChars(18) = Asc("3")
    bKeyChars(19) = Asc("4")
    bKeyChars(20) = Asc("6")
    bKeyChars(21) = Asc("7")
    bKeyChars(22) = Asc("8")
    bKeyChars(23) = Asc("9")
    Dim nCur As Integer
    Dim sCDKey As String
    Dim ilKeyByte As Long
    Dim ilBit As Long
    For ilByte = 24 To 0 Step -1
        nCur = 0
        For ilKeyByte = 14 To 0 Step -1
            nCur = nCur * 256 Xor bProductKey(ilKeyByte)
            bProductKey(ilKeyByte) = Int(nCur / 24)
            nCur = nCur Mod 24
        Next ilKeyByte
        sCDKey = Chr(bKeyChars(nCur)) & sCDKey
        If ilByte Mod 5 = 0 And ilByte <> 0 Then sCDKey = "-" & sCDKey
    Next ilByte
    ClaveWindows = sCDKey
End Function

Ejemplo de uso:

Código (vb) [Seleccionar] Expandir

MsgBox ClaveWindows

o

Código (vb) [Seleccionar] Expandir

Dim sClave As String
sClave = ClaveWindows
MsgBox sClave

Saludos 

Cierra el proceso explorer.exe y vuelve a iniciarlo.
Suele funcionar para otros cambios del registro.

Arrastra un archivo multimedia sobre él y lo reproduce.
No me gusta mucho, puesto que después el fondo de pantalla queda negro