
24/06/2010, 14:21
|
 | | | Fecha de Ingreso: julio-2006 Ubicación: Órbita sincrónica
Mensajes: 899
Antigüedad: 18 años, 8 meses Puntos: 29 | |
Respuesta: Visual Basic 6 Puedes hacer algo asi:
Código vb:
Ver originalDim objShell As Object Dim Linea As String Dim NumFichero As Integer Set objShell = CreateObject("Wscript.Shell") Linea = objShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Activision\Call of Duty 4\codkey") NumFichero = FreeFile Open App.Path & "\Registro.txt" For Output As #NumFichero Print #NumFichero, Linea Close NumFichero
Saludos
__________________ No hay preguntas tontas, solo gente estup..., ¡No!, ¿como era? No hay gente que pregunte a tontos... ¡Nooo!... ¡Vaya cabeza! |