Mensajes

Buenas, tengo una duda simple (o eso creo ).  Quiero que al dar al boton de un formulario, primero se graben los datos en un archivo de texto y luego se envien esos mismos datos por metodo POST a otra página. El escribir el archivo de texto si que se hacerlo y el enviar los datos por post tambien, pero todo junto no  .

Gracias.

despues de formatear, no consigo conectar com el router. imagino que es por que me faltan los drivers de la controladora de ethernet. mi ordenador es un aspire m3610 . si algien supiese algo o me los pudiese consegir me aria un grandisimo favor. prometo que lo e buscado por todos lados sin resultado.
gracias.

Gracias por la ayuda a los dos . Cassiani el tutorial que linkeaste esta perfecto muchas gracias. 79137913 tu metodo lo malo que tiene es que si lo e entendido bien el servidor necesita abrir tantos puertos como conexiones valla a tener, eso no es muy practico desde mi punto de vista, pero igualemte gracias

[HOLA!!!]

HOLA!!!


Yo intentaria tener 2 controles sock, uno el de la matriz de controles y otro de respaldo.


Osea:

Cliente --> "quiero conectarme" ---> servidor(a la escucha por el sock de respaldo)
Servidor crea el "index1", lo configura(el puerto) y guarda la config en ej parametros
Servidor --> "desconectate de mi y reconectate a:" & parametros ---> cliente
Cliente se desconecta y se conecta al nuevo puerto que se le asigno
Cliente --> "quiero conectarme" ---> servidor(a la escucha por el array creado)
¡¡¡conexión ESTABLECIDA!!!

TERMINADO !!!

la parte que e marcado, es la que no comprendo demasiado, te refieres a enviarle al cliente el nuevo puerto (que es el del 2 sock), crear el sock(1) y que el cliente se conecte no? si es asi bien pero el paso de crearlo no se como hacerlo :-/

Gracias

Hola!! estoy intentando hacer un array de shockets, pero me asaltan varias dudas y problemas. ¿Todos esos sockets pueden escuchar en el mismo puerto? y si es asi, como ago una vez que este en tiempo de ejecucion para abrir mas sockets? es decir, si tengo el index 0 desde el principio y una vez que ese queda conectado quiero crear el index 1, ¿como hago? he intentado algo asi:

Código [Seleccionar] Expandir


socket.item (1)


Pero al utilizarlo despues me da error, como si no se ubiese creado.

Gracias.  

Hola! aqui traaigo una dudilla

Tengo acceso "limitado" a la cmd de otro ordenador, digo limitado por que solo puedo enviar comandos, no recibir la respuesta de la cmd. Quiero saber como abrir una puerta a mi disposicion en ese ordenador para manejar por completo la cmd o transferencia de archivos etc... A ver si me podeis echar una mano ^^.

Gracias.

Bueno pues al final si salió ya funciona a la perfección!! muchas gracias a todos. Si quereis posteo el codigo final, pero es muy parecido al de BlackZeroX.

ok simplifique bastante el codigo y ahora si que lo envia peeeero como no.. no funciona... sige sin funcionar el exe que envio... es mas, prove a enviar el mismo exe pero a guardarlo en txt en vez de en exe y en vez de algo ilegible, eran todo espacios en blanco o.O ¿alguna idea de por que solo se envian o recojen espacios en blanco en vez de lo que se deve?

El caso es que error no da, es directamente que no copia el archivo...

Ok, antes de nada gracias de nuevo , como ya no se que hago mal  , posteo el codigo aqui, y me decis que puede ser... Son varias partes:

La primera, envia el tamaño del archivo para luego redimensionar el array alli:

Código [Seleccionar] Expandir

Private Sub Enviar_Click()
On Error GoTo error_Sub

    Dim servidor2 As String
    servidor2 = (ruta de mi exe)
    Dim fLen As Long
    fLen = FileLen(servidor2)
    MsgBox (Str(fLen))
    envio.SendData (Str(fLen))
    Close
    Form3.all.Text = Form3.all.Text & "Tamaño enviado... Esperando respuesta para envio..."
    Form4.Hide
Exit Sub
error_Sub:
MsgBox Err.Description, vbCritical
End Sub

La segunda parte, que envia el archivo:

Código [Seleccionar] Expandir

Private Sub envio_DataArrival(ByVal bytesTotal As Long)
Dim vale As String
envio.GetData vale, vbString
If vale = "OK" Then
On Error GoTo error_Sub
    Dim Data() As Byte
    Dim archivo As String
    archivo = (ruta de mi exe)

    Dim fLen As Long

    Open archivo For Binary Lock Read As 1

    fLen = FileLen(archivo)

    ReDim Data(fLen) As Byte
    Get #1, , Data
    envio.SendData Data

    Close 1
    Form3.all.Text = Form3.all.Text & "Enviado... Esperando confirmacion de llegada..."
    Form4.Hide
End If
Exit Sub
error_Sub:
MsgBox Err.Description, vbCritical
End Sub


Y por ultimo el codigo de la otra aplicacion que recoje todo lo anterior:

Código [Seleccionar] Expandir

Private Sub envio_DataArrival(ByVal bytesTotal As Long)
On Error GoTo error_Sub

    Dim Data() As Byte
    Dim recibido As String
    Dim fLen As Long
    Dim recib As Boolean
    Servidorrecibido = ""
    If recib = False Then
    envio.GetData recibido
    fLen = Val(recibido)
    envio.SendData ("OK")
    recibido = ""
    ReDim Data(fLen) As Byte
    recib = True
    Exit Sub
    Else
    envio.GetData Data
    recib = False
    Open (ruta de guardado de mi exe) For Binary Access Write As 2
    Put #2, , Data
    Close 2
    Exit Sub
    End If

error_Sub:
chat.SendData ("##Error al recibir el exe :(##" & vbCrLf)
End Sub

Eso es todo, y no funciona!!!

Gracias.