Mensajes

No tio, a ver. se le esta dando un mal uso a los foros de programacion.

Esto no sirve para que postees tus problemas y que otros usuarios saquen en adelnte los códigos que no has sabido programar. Esto sirve para postear dudas, se te ofrece en bandeja el planteamiento a seguir para dar con la solución, pero no podemos darte TODO el trabajo hecho.

Usa el foro para postear tus dudas, cuando estés atrancado en una función y te da error, cuando quieres hacer algo y no sabes por donde empezar, etc...

Aqui se te ofrecerá el planteamiento, asi como parte del código que tendrás que usar, nombre de las APIS, etc... no podemos programar por ti.

Aunque si lo que buscas es alguien que programe por ti: www.rentacoder.com (es una web donde "alquilas" programadores, puedes pedirles lo que quieras, ellos te lo programas y luego te pasan la factura )

No trabajamos gratis, ayudar si que lo hacemos, pero trabajar no

[CLICK AQUI!]

si;


tan facil como usar el buscador: CLICK AQUI!

Código [Seleccionar] Expandir


Winsock1.Connect "www.server.com", 80


Una vez conectado envias esa petición "tal cual" con:

Código [Seleccionar] Expandir


Winsock1.SendData "datos!!"



Estas flipando si crees que alguien te lo va a dar todo hecho, usa el botón buscar que hay mucho hablado sobre Winsock en estos foros! 

Ignoraba la existencia de la funcion Replace en VB6.

Ese código reemplazaria todo los caracteres en el texto o solo uno?

Si, reemplazaria todos los caracteres de ese string

Por cierto elmaro, eso que has puesto es lo mismo que lo mio, no?

eso es sencillo, pero necesitas un servidor web o un servidor ftp para realizar la comprobación...

Yo lo haría asi:

Declaras una variable local con la version actual, por ejemplo:

Código [Seleccionar] Expandir

version = 1.5

Luego descargamos nuestro archivo de internet con la API DownloadToFileA:

Código [Seleccionar] Expandir

Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long

Private Sub Command1_Click()
    Screen.MousePointer = vbHourglass
    File = URLDownloadToFile(0, "http://www.miserver.com/config.dat", App.Path & "\config.dat", 0, 0)
    Screen.MousePointer = vbNormal       
End Sub


Ahora con el archivo descargado, lo leemos con la funcion OPEN y el operador INPUT. Leemeos el contenido y lo comparamos con la variable, si son distintas lanzamos la API DownloadToFileA otra vez para descargar la nueva version, una vez descargada la ejecutamos y finalizamos nuestra aplicacion antigua con un END


No te doy todo el codigo, solo el planteamiento, si no puedes pregunta donde te atrancas e intentaremos ayudarte un poco mas

Saludos!!

A ver, aver, con el SpeedXP hay mucha confusión...

El control o función empleado por la mayoria de programas para medir la velocidad son TIMERS. Cuando descargamos un archivo por iexplorer, fireox, emule, etc... hay un control timer que nos muetra: descarga: 200.5 kb/segundo (por ejemplo)

Lo que hace SpeedXP es detectar esos Timer y les sube el interval, de esta manera vemos cosas como: descarga: 5628 kb/segundo

Pero esa velocidad es falsa xD

Eso va bien para juegos online, por ejemplo si te metes el SpeedXP con el counter strike podrás correr el doble de la velocidad normal xD

Saludos!!

otra forma más sencilla seria:

Código [Seleccionar] Expandir

Texto = Replace(Text1.Text, vbCrLf, "%0A")

Este código remplaca el caracter vbCrLf por el caracter %0A, si no te sirve prueba este:

Código [Seleccionar] Expandir

Texto = Replace(Text1.Text, Chr(13), "%0A")

Saludos!!

muy bueno el juego, si señor...
esta chula la tommy gun XDDD

A mi el que mas me gusta es la Chaos Grenade

[Tanks]

Hola gente!

Supongo que conocereis el antiguo juego "Tanks", donde 2 jugadores tenian que disparar sus tanques midiendo el angulo del tiro y la fuerza, calculando tambien factores como el viento.

Bien, este antiguo juego ha sufrido muchisimas evoluciones y una de ellas es "Pocket Tanks". Me lo he descargado, asi como todas las ampliaciones de armas que existen por el momento y solo decir que es una gozada. En total son 145 armas distintas y muy divertidas, con distintos efectos, daños, potencias, etc. Podeis ver imagenes del juego en su web oficial asi como las armas que encontrareis:

http://www.blitwise.com/ptanks.html
http://www.blitwise.com/ptanksdepot.html

Yo he recopilado todos los packs (los gratuitos y los de pago) y he hecho un zip para que los probeis. Seguro que os gustará el juego


Para instalar el juego completo

1) Descargar el zip desde aqui: DOWNLOAD PTANKS
2) Descomprimir los archivos en una carpeta
3) Instalar primero: "Pocket Tanks Deluxe.exe"
4) Instalar luego TODOS los demas packs: Ambush, Power, Fire, Color, Metero, Flame, etc...
5) Instalar tambien: ptfireworks100.exe y ptgravity.exe (son los ultimos packs)
6) A jugar!! xD

Seguro que el juego no os dejara indiferente. Lo que mas me gusta son la cantidad de armas que trae, todas distintas y divertidas

[en que parte del codigo escribiriamos "gusano"?]

No entiendo lo que hace el programa  
Supongamos que programamos un troyano, en que parte del codigo escribiriamos "gusano"?. No le veo el sentido al programa...
Otra cosa, muchos programas no malisiosos usan sockets (estos no se inventaron para hacer troyanos precisamente...) asique estarias detectando programas normales como malisiosos. Lo mismo con la direccion del Registro...

Si estas programando solo con el objetivo de practicar, pues sigue adelante. Sino, no le veo mucho futuro al proyecto  

Saludos.-

Veamos, hay gente que al programar usa como nombre de funciones: SpreadWorm() o DeleteFile(). Este programa buscar string's que SUELEN tener los virus/gusanos/troyanos/etc...

Evidentemente que hay programas que usan el MSWINSOCK sin ser troyanos. Pero si al pasar el scanner vemos k tiene las strings del registro, mas el winsock, mas la palabra troyan y cosas asi... pues yo sospecharía.

No es para nada, ni pretende ser, un Antivirus. Solo es un método para buscar strings dentro de una aplicación ya compilada (siempre y cuando no tenga encriptacion)