OMG     

Para empezar no sabia que el BASE64 lo define ese caracter /

No obstante estaba usando la funcion nativa del VB.NET y noc porque no le añade ese caracter me devuelve la STRING que te puse sin él, eso es normal ?

Tienes toda la razón dejame lanzarte una curva que me tiene haciendo swing hace 2 horas.. y ya no tengo cintura, jeje

Estoy tratando de hacer mi propio launcher para el BF3, para ver que linea de comando tengo que ejecutar capture el juego ya abierto y veo esto:

"D:\Juegos\BF3\Redirector.exe" bf3lan://LXdlYk1vZGUgTVAgLU9yaWdpbl9Ob0FwcEZvY3VzIC1vbmxpbmVFbnZpcm9ubWVudCBwcm9kIC1sb2dpblRva2VuIDQtOC0xNS0xNi0yMy00MiAtQXV0aFRva2VuIDQtOC0xNS0xNi0yMy00MiAtcmVxdWVzdFN0YXRlIFN0YXRlX0NsYWltUmVzZXJ2YXRpb24gLXJlcXVlc3RTdGF0ZVBhcmFtcyAiPGRhdGEgcHV0aW5zcXVhZD1cImZhbHNlXCIgZ2FtZWlkPVwiMjk3OFwiIHBlcnNvbmFyZWY9XCIxMDAwMFwiIGxldmVsbW9kZT1cIm1wXCI+PC9kYXRhPiJ8MTAuMjIuMi4yNDB8aHR0cDovLzEwLjIyLjIuMjQwL2Jhbm5lci5wbmd8OTEwfDI1Ng==/

A su vez todo ese sin sentido abre otro proceso:

"D:\Juegos\BF3\LanBf3.exe" -webMode MP -Origin_NoAppFocus -onlineEnvironment prod -loginToken 4-8-15-16-23-42 -AuthToken 4-8-15-16-23-42 -requestState State_ClaimReservation -requestStateParams "<data putinsquad=\"false\" gameid=\"2978\" personaref=\"10000\" levelmode=\"mp\"></data>"

Y todo ok, puedo jugar sin problemas esto es conectado a un server local...

El sin sentido es BASE64:

-webMode MP -Origin_NoAppFocus -onlineEnvironment prod -loginToken 4-8-15-16-23-42 -AuthToken 4-8-15-16-23-42 -requestState State_ClaimReservation -requestStateParams "<data putinsquad=\"false\" gameid=\"2978\" personaref=\"10000\" levelmode=\"mp\"></data>"|10.22.2.240|http://10.22.2.240/banner.png|910|256

Yo paso ese mismo sin sentido a esa aplicacion desde mi aplicación en VB.NET y el Redirector me da un error decodificando el BASE64, que puede estar pasando, lo curioso es que me estaba funcionando sin problemas cambie de Windows 8 a Windows 10 y empezó todo esto..

Esta es la línea que pongo:

parametros = "LXdlYk1vZGUgTVAgLU9yaWdpbl9Ob0FwcEZvY3VzIC1vbmxpbmVFbnZpcm9ubWVudCBwcm9kIC1sb2dpblRva2VuIDQtOC0xNS0xNi0yMy00MiAtQXV0aFRva2VuIDQtOC0xNS0xNi0yMy00MiAtcmVxdWVzdFN0YXRlIFN0YXRlX0NsYWltUmVzZXJ2YXRpb24gLXJlcXVlc3RTdGF0ZVBhcmFtcyAiPGRhdGEgcHV0aW5zcXVhZD1cImZhbHNlXCIgZ2FtZWlkPVwiMjk3OFwiIHBlcnNvbmFyZWY9XCIxMDAwMFwiIGxldmVsbW9kZT1cIm1wXCI+PC9kYXRhPiJ8MTAuMjIuMi4yNDB8aHR0cDovLzEwLjIyLjIuMjQwL2Jhbm5lci5wbmd8OTEwfDI1Ng=="
 
                    Process.Start("D:\Juegos\BF3\Redirector.exe", " bf3Lan://" & parametros)
 

Y nada me da el error que te dije anteriormente

Yo creo que si esta conectado porque logro enviar el mensaje sin problemas desde el SERVIDOR para el CLIENTE, y quiero poder hacer lo mismo del CLIENTE para el SERVIDOR, nada mas entra en ese Sub cuando cierro el Socket !!

Salu2 y gracias cualquier ayuda !!

Hola bro,

Gracias por tu pronta respuesta...

Como decia aún con tu ejemplo no se solucciona la problemática y es que cuando hago el debug y me detengo a ver la el contenido de la variable es este:

"""Hola"" ""Mundo"" ""Mi"" ""Primer"" ""Mensaje"""

Y yo necesito que este asi:

"Hola" "Mundo" "Mi" "Primer" "Mensaje"

Para pasarlo a otra función...

Toy trabajando con este proyecto

http://tech.reboot.pro/showthread.php?tid=86&highlight=sockets

Y le falta la opción de que el cliente pueda enviar datos al servidor.

El desarrollador añadio esto en el cliente

    Private Sub Send(ByVal msg As String, ByVal clientSocket As Socket)
        'get bytes to send
        Dim sendBytes As Byte() = System.Text.Encoding.ASCII.GetBytes(msg)
        'begin sending (notice the client is sent as an AsyncState)
 
        clientSocket.BeginSend(sendBytes, 0, sendBytes.Length, SocketFlags.None, New AsyncCallback(AddressOf OnSend), clientSocket)
    End Sub
 
    Private Sub OnSend(ByVal ar As IAsyncResult)
        Dim client As Socket = ar.AsyncState
        client.EndSend(ar)
    End Sub
 

Esto al parecer funciona y digo al parecer porque aun no logro recibirlo en el servidor, el autor dice que para ello usen el mismo codigo que tiene el cliente, lo añado y sigue sin funcionar

    Private Sub OnAccept(ByVal ar As IAsyncResult)
        clientSocket = serverSocket.EndAccept(ar)
        serverSocket.BeginAccept(New AsyncCallback(AddressOf OnAccept), Nothing)
        AddClient(clientSocket)
'Línea añadida para recibir dato        
clientSocket.BeginReceive(byteData, 0, byteData.Length, SocketFlags.None, New AsyncCallback(AddressOf OnRecieve), clientSocket)
 
    End Sub
 
    Private Sub OnRecieve(ByVal ar As IAsyncResult)
        Dim client As Socket = ar.AsyncState
        client.EndReceive(ar)
        Dim bytesRec As Byte() = byteData
        Dim message As String = System.Text.Encoding.ASCII.GetString(bytesRec)
        Read(message)
        clientSocket.BeginReceive(byteData, 0, byteData.Length, SocketFlags.None, New AsyncCallback(AddressOf OnRecieve), clientSocket)
    End Sub
 
    Delegate Sub _Read(ByVal msg As String)
    Private Sub Read(ByVal msg As String)
        If InvokeRequired Then
            Invoke(New _Read(AddressOf Read), msg)
            Exit Sub
        End If
        RichTextBox1.Text &= msg
    End Sub
 
 

Depurandolo nunca entra en esos metodos unicamente cuando cierro el cliente es que el entonces entra y genera un error porque el socket esta cerrado y no puede leer nada.

Alguna idea..

Salu2

Gracias lo veré

Salu2

Estoy tratando de que un STRING que se guarda en una variable me quede así:

"Hola" "Mundo" "Mi" "Primer" "Mensaje"

La cuestión es que estoy usando el Chr(34) para crear este resultado pero cuando debugueo la aplicación me doy cuenta que para obtener este resultado el se ve así:

""Hola"" ""Mundo"" ""Mi"" ""Primer"" ""Mensaje""

Ahora esto me representa un problema y es que si quiero trabajar con ese STRING tengo que hacer malabares por las doble comillas, me di cuenta que al insertarlo en un TEXTBOX queda como en el primero, osea que tendría que crear un objeto TEXTBOX pegar el resultado y recuperar el TEXTO de él sin las doble comillas y poder continuar.

Hay alguna otra forma de hacerlo sin necesidad de ese paso ?

Saludos y gracias

Muchas gracias lo analizaré y acomodaré.

Thx a lot..

Holas,

Cuando yo pongo la restriccion de la cantidad de conexiones que puede realizar un usuario al mismo tiempo y este lo sobre pasa el SQUID no me lo debería de informar ?

Salu2

Necesito pasar una estructura:

Usuario
Contraseña
Ip

Pudiera usar la misma idea, verdad?

La duda que tengo y me tiene pensativo es como paso esa estructura de una forma no muy rebuscada (para futuro entendimiento) hacia la otra aplicación y esta la pueda utilizar sin mucha complicación.

Salu2 y gracias de antemano