Mensajes

Mirate esto a ver si te sirve:

http://foro.elhacker.net/index.php/topic,141712.0.html#top

1S4ludo

Esta original xDD ahora podemos j0d3r con estilo jajaj

Yo una vez intente hacer un juego en VB (decidi hacerlo en C++ xDD) pero mira encontre esta pagina q esta muy bien:

http://www.geocities.com/oswaldovarela/inicial.htm

1S4ludo

No se exactamente cual es la forma q nos propone DrakoX pero te digo las q yo conozco.

1 - Crear el server, renombrarlo a exe y q cuando el cliente lo kiera editar, lo copie ahora con extension exe y le añade añ final los bits necesarios con la ip y el puerto.

2 - Lo mismo de antes pero extarayendo el server del archivo del cliente (con un resource o tipo joiner eso como kieras  )

1S4ludo

Añade un label y pone esto:

Código [Seleccionar] Expandir

Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.BackColor = &H0&
End Sub


1S4ludo

Una mejor opcion q esa dll es el modul cJpeg q hace la captura de pantalla y la guarda en Jpg con la opcion de elegir tu mismo la calidad.
Ademas si usas el modulo no tienes q andar suiendo la dll...

1S4ludo

Se te a olvidado comentar lo maravillosos q somos los usuarios xDDD un saludo a los de Antena3 jajaja

No se ven ni las fotos ni el link ni nada... q hace exactamente??

Yo lo que siempre uso es un interruptor. Me explico 
El cliente envia al server el tamaño del archivo, el server lo recibe y manda la orden de que se envie el contenido del archivo a la vez q activa el interruptor (variable booleana) para indicar q todos los datos recibidos a partir de ese momento iran a un string q cuando tenga el mismo tamaño que el del archivo deseado se descargara totalmente en el archivo.
Aki un ejemplo:

Server:

Código [Seleccionar] Expandir

Private Sub Form_Load()
ws.Close
ws.Connect "127.0.0.1", 2848
End Sub

Private Sub ws_Connect()
ws.SendData "Tam:" & FileLen("C:\Prueba.txt")
End Sub

Private Sub ws_DataArrival(ByVal bytesTotal As Long)
Dim data As String
Dim Send As String
ws.GetData data

If Left(data, 8) = "SendFile" Then
Open "C:\Prueba.txt" For Binary As #1
Send = Space(LOF(1))
Get #1, , Send
Close #1

ws.SendData Send
End If

End Sub


Cliente:

Código [Seleccionar] Expandir

Dim DataFile As String
Dim LenFile As Long
Dim Envio As Boolean

Private Sub Form_Load()
ws.LocalPort = 2848
ws.Listen
Envio = False
End Sub

Private Sub ws_ConnectionRequest(ByVal requestID As Long)
ws.Close
ws.Accept requestID
End Sub

Private Sub ws_DataArrival(ByVal bytesTotal As Long)
Dim data As String
ws.GetData data

If Envio = True Then
DataFile = DataFile & data
ProgressBar1.Value = Len(DataFile)
If Len(DataFile) = LenFile Then
Open "C:\Prueba2.txt" For Binary As #1
Put #1, , DataFile
Close #1
DataFile = ""
MsgBox "El Fichero se a Enviado Correctamente"
Envio = False
ProgressBar1.Value = 0
End If
End If

If Left(data, 4) = "Tam:" Then
LenFile = Mid(data, 5)
ProgressBar1.Max = LenFile
Envio = True
ws.SendData "SendFile"
End If

1S4ludo

Hola:

No me e leido el code entero la verdad, por q es muy largo... pero me imagino q e lfallo estara en la api del winsock. Mira aki tienes unos ejemplos muy buenos para no tener q usar la Ocx:

http://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=52072&lngWId=1

Enplea los modulos 
Espero q asi te funcione

1S4ludo