Mensajes

jeje, es que pocas veces he visto tutos de esos. Solo uno antiquisimo (en una revista) de como usar imagenes para dar mas "look" (usando puro efectos de hovers), pero en vb6 podrias hacer eso cortando tu PSD y "repartiendo" todo

Sino programa en flash jaja, ahi si que salen cosas lindas


PD: Emm... por msn? no recuerdo tu nick (seguro lo cambiaste jaja)

MMm..... solo con imagenes simulando hovers y demas efectos, O sino aprende a usar WPF que es muy lindo el resultado

Código (php) [Seleccionar] Expandir


//Prefil...
$perfil = file_get_contents('http://foro.elhacker.net/index.php?&action=.xml;sa=profile;u='.$post[1]);
$perfil = preg_replace("/[\n\t\r]+/" , "", $perfil);
$nick = preg_replace("/.*<name><!\[CDATA\[(.*)\]\]><\/name>.*/", "Hola $1!", $perfil);
///....
if($genero==$perfil){ $genero = false; }
if($lugar==$perfil){ $lugar = "Ubicacion no definida"; }
if($edad==$perfil){ $edad = "Edad no definida"; }
if($hayUser){
$mensaje = "$nick\n\n  $posts\n  $lugar\n  $edad\n  Tu ip es $ip.\n  $agent";
}else{
$mensaje = "    Tu ip es: $ip\n\n  Para descubrir más de mis\npoderes, mirame en un post\ndonde Castg! comente." ;
}
//...

Espectacular Castg! Solo hay algo que no entiendo. Porque comparas las extracciones con el resultante del perfil (genero==perfil, etc) o sea... en el perfil siempre va a haber algo no? (siempre que se visite desde aca ) no creo que nunca sean iguales.... Por mas que extraigas desde expreiones regulares. Siempre a................ no iba a decir nada, me confundi y pense que se mezclaba con la parte de los explode 

Lo que si esos if (genero==perfil, etc) podrian ir dentro de donde definis "hayUser=true"
me parece que estan demas si hayUser es false, aunque alguna milesima de segundo te daran para retardar la imagen jaja

La gran pregunta....funciona con usuarios ocultos? Y si veo la pagina desde la cache de google jaja y si lo veo desde tu perfil? 

Esta muy lindo

Espero que algun dia liberes algo (no el codigo, sino la forma en como se haria )

ya se veia que estaban experimentando en algo

Solo en los arrays. El metodo que di funciona (sean arrays o no) para clases personalizadas uqe por defecto se copian por referencia

dimitrix, me gusta, cuando pueda armo el mio

sencillo mira, te dejo este video.



http://www.screencast.com/users/JuanM_L/folders/Jing/media/b57b9d1d-fbf5-466c-9950-4027e705decf

wow... impresionante (y sin palabras jaja) Muy bueno,nunca lo hubiera descubierto. Aunque igual, la forma de grabar el video esta buenisima

Podrias agregar alguna funcion en la clase persona que devuelva un dataRow, y agregarlo al datagrid

Ej (muuuy simple)

Código (vbnet) [Seleccionar] Expandir


Public Class Persona
    '.........
    Public Funciont ConvertirADataRow() as DataRow
          dim dr as new DataRow() ' Esto no creo que funcione :P, puedes usar arrays o instanciar de DataGrid.NewRow()
          dr.Cells.Add(Nombre)
          dr.Cells.Add(Apellido)
          ' ....
          Return dr
     End Function
End Class


O algo asi, lo hice muy al boleo, dudo que funcione, pero es algo parecido a lo que buscas

Encontre mi proyecto de ejemplo
Si tienes esta clase (no importa que tenga propiedades, eventos, etc, se copia igual

Código (vbnet) [Seleccionar] Expandir


Class Persona
  Public Nombre as String
  Public Apellido as String
End Class


Lo que haces es agregarle el atributo Serializable, y si quieres la interfaz IClonable que te agrega el metodo Clone (aunque no recuerdo porque no me funciono a mi, asi que implemente el metodo Clonar solo
No olvides de importar los espacios de nombres, son vitales para que funcione el codigo

Te quedaria asi

Código (vbnet) [Seleccionar] Expandir


Imports System.Runtime.Serialization
Imports System.Runtime.Serialization.Formatters.Binary
Imports System.IO

<Serializable()> _
Class Persona
  Public Nombre as String
  Public Apellido as String

  Public Function Clonar() As Persona
  End Function
End Class


y en la funcion Clonar pones esto:

Código (vbnet) [Seleccionar] Expandir


       Dim clon As Persona  ' Objeto donde se va a copiar por valor

       ' Serializadores, objeto en memoria
       Dim formatter As IFormatter = New BinaryFormatter()
       Dim str As Stream = New MemoryStream()

       formatter.Serialize(str, Me)  ' Copiamos a un stream en la memoria
       str.Seek(0, SeekOrigin.Begin) ' Vamos al principio para volver a "leer"
       clon = CType(formatter.Deserialize(str), Persona) ' Lo leemos y lo guardamos en el objeto "clonado"

       Return clon


Por lo cual todo junto te quedaria asi:

Código (vbnet) [Seleccionar] Expandir


Imports System.Runtime.Serialization
Imports System.Runtime.Serialization.Formatters.Binary
Imports System.IO

<Serializable()> _
Class Persona
  Public Nombre as String
  Public Apellido as String

  Public Function Clonar() As Persona
       Dim clon As Persona

       Dim formatter As IFormatter = New BinaryFormatter()
       Dim str As Stream = New MemoryStream()

       formatter.Serialize(str, Me)
       str.Seek(0, SeekOrigin.Begin)
       clon = CType(formatter.Deserialize(str), Persona)

       Return clon
  End Function
End Class


Tal vez alguno diga que tenga un par de bugs o algo asi. Nose, a mi me funciono   jeje

Espero que te sirva!

Nota: La funcion Clonar esa sirve literalmente para cualquier cosa, se puede adaptar para clonar cualquier clase del net framework (el unico requisito es que sea serializable ovbio no? )

¡¡¡no tengo internet en casa!!!

JAJAA....como me mato la foto esa....la voy a guardar ;-D

por otro lado, yo tambien apoyo a esos fantasmitas