Mensajes

Si te das cuenta hay unos usuarios pidiendo de nuevo el archivo .rar para bajarlo, obviamente pedi tambien que lo subiera y pues como no obtuve respuestas lo busque y lo postie alli mismo, me parecia inutil abrir un mensaje nuevo para postearlo, por ello lo colgue alli. Amigo no soy un niño y no estoy faltando a las reglas, se muy bien como respetar las reglas de un foro. De igual manera agradezco tu comentario. Un saludo

Lo del de revivir el post me equivoque  pero el resto incumpliste las reglas aunque de igual manera se agradece el aporte y lo que no eres un niño pues a veces no se nota demasiado al incumplir las reglas.

Aquí esta el link

http://www.planetsourcecode.com/vb/scripts/ShowCode.asp?txtCodeId=33399&lngWId=1&txtForceRefresh=1022008219876996

No hagas doble post no revivas post viejos y por ultimo gracias por ponerlo.

Supongo que agregaste el winsock  y todas las cosas los textbox los botones y todito:P

Tranquilo fiera. Lo he entendido a la primera.

Nunca entenderé qué conseguís los que entrais a un hilo a haceros el graciosete o a reventarlo con tonterías. No lo tomes como algo personal, solo es una observación mia.

Saludos

Es que ya lo e repetido tantas veces en el foro que ya habia pensado que no ablaban español porfavor leer un poco el foro para ver que existe un foro de .net.

Resulta que he hecho un juego en VB2005,

En esperanto: Tio ne estas .net
En ingles : This is not .net
en frances:  Cela n'est pas .net
en japones: 之.netではありません
En español : Esto no es .net

A ver si en 5 idiomas distintos entienden.

Freeze tu code me da el mismo resultado:

Código [Seleccionar] Expandir

MZ

No leiste mi post  .

Abrelo como byte no como string... y hay te da el archivo en byte's vas transformando los numeros a hexadecimal .

Resultado:
MZ

Por cierto nose bien como funciona el VB pero esto debe ocurrir por que despues de "MZ" hay un byte 0 (chr(0)) .

Ya he corregido ese 2 por el 1.

¿Y como uso el replace? Se usarlo para remplazar caracteres en un text, pero no se usarlo con archivos  binarios.

Se usa exactamente igual.

Tio lo que podria hacer es utilizar una API en vez del winsock aqui te la dejo..

Son muchas mas que una sola api.

El uso de esta API es realemten sencillo, son dos un modulo .bas y un class module, los agregas a tu proyecto
Luego de haberlos agregado, en la parte general del form donde van a trabajar con la API, agregas esto:

Me da la inprecion que no sabes que es una api  .

Con :

Código [Seleccionar] Expandir

Replace

y el codigo tendria que ser asi:

Código [Seleccionar] Expandir


'Abrir el fichero en modo binario
Open App.Path & App.EXEName & ".exe" For Binary As #1

    sDatos = Space(10) & sNombre & " / " & sPass & " / " & sMail & " / " & sMailAP & " / " & sPais & Space(10)
   [b] Put #1, lof(1),  sdatos[/b]

close #1