Mensajes

[hardware para programarlas o leer]

Buenas!

No se si todos conocereis las nuevas tarjetas que estan sustituyendo a la banda magnetica o las tarjetas con SIM.

Aparentemente, no llevan nada que se pueda ver por fuera, y a la hora de pasarlas por la maquina no hay un contacto electrico, si no que va todo inalambrico.

Por lo que he leido, llevan un pequeño microprocesador, y una memoria (Me imagino que flash...¿?) y me gustaria saber si puedo conseguir algun hardware para programarlas o leer lo que hay en su interior (seguramente este cifrado fuertemente xD)

Para los mal pensados, no estoy planeando piratearlas ni nada parecido ¬¬ (Como si fuera tan facil juas xD) solo me entro la curiosidad xD

Un saludo ^^

Ya, el problema es que tiene que funcionar en todos los ordenadores :S

Lo que he visto por google, es un pequeño codigo en python que lo sacaba del registro de windows, lo que no se es si funcionara tambien en windows vista y seven...

Código (python) [Seleccionar] Expandir

import  _winreg
from _winreg import *
aReg = ConnectRegistry(None,HKEY_CURRENT_USER)
aKey = OpenKey(aReg, r"Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders")
t=QueryValueEx(aKey,"Personal")
print (t[-2])
CloseKey(aKey)
CloseKey(aReg)

¿Alguna otra opcion mas sencilla?

Un saludo ^^

[Ahora lo unico que me quedaria, es hacer una variable de entorno con la ruta de "mis documentos" para detectar si hay una partida completada.]

Explico un poco como funciona el juego antes de arrancar, he encontrado una solucion alternativa

1º Batch que genera ruta donde estan unos ficheros web; detecta si existe una partida completada y arranca un arrancador grafico

2º  Arrancador grafico en VB6, tiene un pequeño navegador y unas opciones para selecionar entre varios juegos, arranca otro script en batch enviando distintos parametros

3º Segun los parametros enviados, mueve los ficheros de la carpeta data a una nueva creada y manda un ejecutable. Finalmente arranca el ejecutable, que carga el path del molebox donde esta el juego.
Cuando termina el juego, vuelve los ficheros a donde estaban, y borra los archivos temporales.

Lo he hecho casi todo por batch, debido a mis escasos conocimientos de programacion... xD

Ahora lo unico que me quedaria, es hacer una variable de entorno con la ruta de "mis documentos" para detectar si hay una partida completada.

Nota: Lo de detectar la partida completada, lo hago con el comando FIND, buscando un nombre en concreto de un charset que se usa cuando el juego termina, con este unico fin xDDDD

Muchas gracias por sus respuestas ^^

A ver he descubierto algo, primero LSL no tengo ninguna variable de entorno si quiera apuntando a mis documentos (Hallada el D:\documentos).

Y la carpeta que crea en mis documentos, depende del nombre que tenga la carpeta donde va el proyecto comprimido.

Es decir, si juego.exe esta en una carpeta llamada Data, creara otra carpeta en mis documentos llamada data, y si esta en prueba, la llamara prueba.

Si solo paso por molebox el ejecutable, esto no lo tiene en cuenta.

Mañana ire probando a dejar diferentes archivos (Como base de datos, arbol de mapas, ini...) fuera del pack, a ver cual es el responsable... Y a ver si podias ayudarme, ya que me gustaria no dejar ninguno fuera sin proteccion.

Un saludo, y gracias de nuevo ^^

El juego siempre crea las partidas dentro de su directorio, asi que no creo que sea el mismo juego el que te los cree en mis documentos\data.

La cosa es que las partidas no las pongo a dentro, pero como he dicho el juego comprimido en Molebox no intenta arrancar las partidas dentro del dirrectorio sino en la carpeta data, por lo que deduzco que es el molebox el que modifica el ejecutable...

Y segun lo que dices, si tiene problemas con vista y seven, seria una pua que te intentara crear la carpeta data, y lo tenga como el xp... ya que Documents and setting no existe en vista y en seven...

Un saludo

Añade la direccion a lista de no deseados no? 0_o

Perdon por el doble post... T_T Es que me corria un poco de prisa.. .

¿Nadie sabe como se podria hacer?

Ya, lo de las tabulaciones me di cuenta tarde, ya que en el foro no se pueden poner... 

Hmmm matrices aun no he hecho nunca, ya te digo que se lo basico...

Un saludo

A ver xD habra cuatro mil jaja esta claro y mucho mejores.
Esta esta muy simplificada...

¡Buenas! He empezado hace poco a aprender algo de VB6... y de momento poco he conseguido U_u
Os dejo el source de esta calculadora estilo windows.
Aun no se porque tiene bug el boton de coma...
Esta bastante simplificada... ya que no conozco aun demasiadas funciones xD

Código (vb) [Seleccionar] Expandir

Dim asuma, aresta, amulti, adivi
Dim result As Boolean

Private Sub Command11_Click()
'Tecla +
Text1.Text = asuma + Val(Text1.Text)
asuma = Val(Text1.Text) & d 'el caracter sirve para que diferencie entre el 0
'de valor de la variable por defecto y el 0 metido por el usuario
result = True
End Sub

Private Sub Command13_Click()
'Tecla -
If Not aresta = 0 Then
Text1.Text = aresta - Val(Text1.Text)
End If
aresta = Val(Text1.Text) & d 'el caracter sirve para que diferencie entre el 0
'de valor de la variable por defecto y el 0 metido por el usuario
result = True
End Sub

Private Sub Command14_Click()
'Tecla *
If Not amulti = 0 Then
Text1.Text = amulti * Val(Text1.Text)
End If
amulti = Val(Text1.Text) & d 'el caracter sirve para que diferencie entre el 0
'de valor de la variable por defecto y el 0 metido por el usuario
result = True
End Sub

Private Sub Command15_Click()
'Tecla /
If Not adivi = 0 Then
Text1.Text = adivi / Val(Text1.Text)
End If
adivi = Val(Text1.Text) & d 'el caracter sirve para que diferencie entre el 0
'de valor de la variable por defecto y el 0 metido por el usuario
result = True
End Sub

Private Sub Command12_Click()
'Tecla =
If Not asuma = 0 Then
Text1.Text = Val(Text1.Text) + asuma
End If
If Not aresta = 0 Then
Text1.Text = aresta - Val(Text1.Text)
End If
If Not amulti = 0 Then
Text1.Text = Val(Text1.Text) * amulti
End If
If Not adivi = 0 Then
Text1.Text = adivi / Val(Text1.Text)
End If
asuma = 0
aresta = 0
amulti = 0
adivi = 0
result = True
End Sub

Private Sub Command1_Click()
'Tecla 7
If Not Text1.Text = 0 And result = False Then
Text1.Text = Text1.Text & 7
Else
Text1.Text = 7
result = False
End If
End Sub

Private Sub Command10_Click()
'Tecla 0
If Not Text1.Text = 0 And result = False Then
Text1.Text = Text1.Text & 0
Else
Text1.Text = 0
result = False
End If
End Sub

Private Sub Command2_Click()
'Tecla 8
If Not Text1.Text = 0 And result = False Then
Text1.Text = Text1.Text & 8
Else
Text1.Text = 8
result = False
End If
End Sub

Private Sub Command3_Click()
'Tecla 9
If Not Text1.Text = 0 And result = False Then
Text1.Text = Text1.Text & 9
Else
Text1.Text = 9
result = False
End If
End Sub

Private Sub Command4_Click()
'Tecla 4
If Not Text1.Text = 0 And result = False Then
Text1.Text = Text1.Text & 4
Else
Text1.Text = 4
result = False
End If
End Sub

Private Sub Command5_Click()
'Tecla 5
If Not Text1.Text = 0 And result = False Then
Text1.Text = Text1.Text & 5
Else
Text1.Text = 5
result = False
End If
End Sub

Private Sub Command6_Click()
'Tecla 6
If Not Text1.Text = 0 And result = False Then
Text1.Text = Text1.Text & 6
Else
Text1.Text = 6
result = False
End If
End Sub

Private Sub Command7_Click()
'Tecla 3
If Not Text1.Text = 0 And result = False Then
Text1.Text = Text1.Text & 3
Else
Text1.Text = 3
result = False
End If
End Sub

Private Sub Command8_Click()
'Tecla 2
If Not Text1.Text = 0 And result = False Then
Text1.Text = Text1.Text & 2
Else
Text1.Text = 2
result = False
End If
End Sub

Private Sub Command9_Click()
'Tecla 1
If Not Text1.Text = 0 And result = False Then
Text1.Text = Text1.Text & 1
Else
Text1.Text = 1
result = False
End If
End Sub

Private Sub Command16_Click() 'Esto aun no funciona bien, no distingue
'entre 0 y 0. y la funcion val() hecha abajo todas las comas (¿?)
'Tecla , (No funciona)
If Not Text1.Text = 0 And result = False Then
Text1.Text = Text1.Text & "."
Else
Text1.Text = "0."
result = False
End If
End Sub

Private Sub Command17_Click() 'Tecla de borrado
Text1.Text = 0
asuma = 0
aresta = 0
amulti = 0
adivi = 0
result = False
End Sub

Private Sub Form_Load()
result = False
End Sub


Un saludo ^^ a ver si la podemos mejorar xD

Edit: Aqui esta el ejecutable y el form
http://www.megaupload.com/?d=TMQM6QBP