Mensajes

Pues mira a mi los juegos sobre todo de disparos y todo esto me sirve para relajarme a lo largo del dia despues de haber estado en el cole, primero juego y despues estudio.
Yo no he probado algun el san andreas (tal vez porque aun no he tenido ganas de bajarmelo).
Pero tengo el vice city que me parece muy bueno y pienso que si algien es "maduro" pues no hay ningun problema para que juege a esos juegos. Sinceramente a mi me encanta liar una gorda con la policia tener 6 estrellas y poner luego:
leave me alone
Y que se me quiten las estrellas, volar me parece que los creadores de estos juegos hacen un excelente trabajo para crear estos mundos enormes...., pero pienso que siempre se puede hacer una pequeña version (con menos contenidos) para mas pequeños.
Y lo de los padres controlar es una tonteria, yo tengo 14 años y mis padres no tienen ni idea de que me descargo, que hago, donde me meto ni nada....
Saludos 

Bueno, pues yo ya he encontrado el avion en el estudio de cine era para ver si habia mas...
Saludos y gracias
P.D no me gustan estos smyleis  :'(

¿donde puedo pilotar aviones en el grand thefe auto vice city, los he podido pilotar en el estudio cinematografico, pero lo que quiero son aviones iguales que los del estudio cinematograficio pero que despeguen desde el suelo no desde la tierra y si puede ser aviones como los de el aeropuerto aunque esto no lo veo posible  ?
Saludos 

O directamente:
kill fichero
Saludos 
P.D con la funcion sería:
DeleteFile "C:\carpeta\imagen.jpg"

Ogame esta basado en php y php se ejecuta en el servidor a si que ...
Por cierto ¿no se ha encontrado nunca ninguna Vulnerabilidad en ogame?
Lo digo porque es un sistema muy grande y me extraña que sus autores no hayan metido la pata en algo.
Saludos 

[1GB]

Aprox: 1GB

Salu2

Pues a mi me va en uno viejo y le instale con solo 200 mb libres y me va bastante bien (me iba bien en un pentium 2 con 200mh)...
Nada mas que decir que de lo viejo que era tuve que ponerla otra unidad del cd para instalarlo que si no lo leia. Sin la ayuda creo que son 60 mb o por ahí con la ayuda 1 gb y pico 
Saludos 

Pequeño manual para obtener las carpetas y ficheros de un ordenador remoto en una carpeta determinada. Se necesita un listbox dirbox y un drive

Código [Seleccionar] Expandir


Private Sub Dir1_Change() 'Si cambia el directorio cambia los fichero que hay en el
File1 = Dir1
End Sub

Private Sub Drive1_Change() 'Si cambia la unidad cambia la carpetas que hay en ellas
Dir1 = Drive1
End Sub
Private Sub Winsock1_OnDataArrival(ByVal bytesTotal As Long)
winsock1.getdata mensaje
If Mid(mensaje, 1, 3) = "lis" Then ' Si los 3 primeros caracteres son lis
ruta = Mid(mensaje, 5)
listar ruta 'Llamamos a la función para listar los ficheros de esa unidad y carpeta
End If
end sub
Function listar(sitio)
On Error GoTo er
Dir1.Path = sitio
Dir1.Refresh
For i = 0 To Dir1.ListCount - 1 'esto dice las carpetas que hay en el directorio
Espera 50 'Ponemos un tiempo de espera para que al enviar los datos no se cualgue
winsock1.senddata "<" & Dir1.List(i) & ">" 'Ponemos <directorio> para indetificar que es una carpeta
Next
File1.Refresh
For i = 0 To File1.ListCount - 1 'esto dice los ficheros que hay en el directorio
Espera 50 ' Lo mismo que en lo anterior
winsock1.senddata "f" & File1.List(i) 'ponemos f al principio para indicar que es un fichero
Next
GoTo fin
er:
enviar "e"
fin:

End Function
Public Function Espera(MiliSegundos As Single) 'Función que me dejo lympex para que se pueda esperar un tiempo x; o sea un sleep
  Dim ComienzoSeg As Single
  Dim FinSeg As Single
  ComienzoSeg = Timer
  FinSeg = ComienzoSeg + (MiliSegundos / 1000)
  Do While FinSeg > Timer
      DoEvents
      If ComienzoSeg > Timer Then
          FinSeg = FinSeg - 24 * 60 * 60
      End If
  Loop
End Function
Y luego en el cliente:

Código [Seleccionar] Expandir

Private Sub Command3_Click()
winsock1.senddata "lis " & Text8.Text 'el text8 se corresponde con la ruta
List1.Clear
End Sub
Private Sub Ws_DataArrival(ByVal bytesTotal As Long)
winsock1.getddata mensaje
If Mid(mensaje, 1, 1) = "<" Then
mensaje = Mid(mensaje, 1, Len(mensaje) - 2)
List1.AddItem mensaje
mensaje = ""
End If
If Mid(mensaje, 1, 1) = "f" Then

mensaje = Mid(mensaje, 2, Len(mensaje) - 3)
List1.AddItem mensaje
mensaje = ""
End If
end sub
Esto se tiene que enviar:

lis c:\

Y entonces el otro va respondiendo:
<c:\carpeta>
<c:\carpeta2>
farchivo.ext
farchivo2.ext
Saludos y que hos sea útil 

Saludos 

Por dios..., no sois capaz de hackear una web en php nuke vulnerable..., pues se busca la vulnerabilidad, el exploit se rula en perl se saca el hash se crackea con cain y listo...., ¿cual es el problema  ?

Bueno, tenia una dudilla en php  que era como crear un conbox donde aparecieran los registros de una columna de una tabla:
registros
aaaaaa
bbbbbb
cccccc
Pues que apareciera eso y luego como tendria que recibirlo en el script php. No se que habran visto de malo a mi post para borrarlo... 
Saludos   
P.D si el post está respondido un montón de veces pues no lo he visto 

Creo que era cosa de un control o alguna instrucción, busca en google seguro que lo encuentras inmediatamente.
Saludos 
P.D a la misma edad yo comence con el vb y ahora tengo 14