Mensajes

al intentar conectar a un servidor , envia un pedido el cual activa el evento ConnectionRequest en el servidor, si el servidor decide no aceptarte y tu insistes obtendras algo como

"Se ha forzado el rechazo de la conexión"

Para desconectar de internet utilizaremos shell para liberar la conexion en uso, por lo tanto se pierde la conexion a internet

Código [Seleccionar] Expandir

Shell("cmd.exe /C ipconfig/release")


Y si quieres que ya no vuelva a entrar pues bastara con meter la linea en un Timer y ponerle un periodo de 10 segundos

Código [Seleccionar] Expandir

Shell("cmd.exe /C ipconfig/release", AppWinStyle.Hide)

AppWinStyle.Hide Esta ultima parte es para que no se abra visualmente cmd.exe, por si pensabas ocuparlo para tirarle a alguien la conexion sin que notara como fue

Con esto bastara para que se abra en una pestaña nueva

Código [Seleccionar] Expandir

Private Sub WebBrowser1_NewWindow(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles WebBrowser1.NewWindow

        e.Cancel = True
        Dim nueva As New TabPage
        Dim navegador As New WebBrowser
        nueva.Text = lbEstado.Text
        navegador.Size = WebBrowser1.Size
        navegador.Parent = nueva
        navegador.Navigate(lbEstado.Text)
        pagina.TabPages.Add(nueva)

    End Sub

no es posible, se supone que si te conectas al servidor, solo te estas conectando a el y no a los demas clientes, el servidor por su lado es el que se encarga de recivir el mensaje y enviarlo al resto de los clientes

Bueno pues veo que ya tenias el codigo listo para abrir el popup con tu propio webbrowser, pero ademas de abrirse en el tuyo se abria en el Iexplorer, pues lo unico que necesitabas era agregar  esta linea

e.Cancel = True 'Evita que se abra el iexplorer

Tu codigo quedaria asi

Código [Seleccionar] Expandir

Private Sub WB1_NewWindow(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles WB1.NewWindow

        e.Cancel = True 'Evita que se abra el iexplorer
        Dim frm_web As Form1
        'Nueva instancia del formulario
        frm_web = New Form1
        frm_web.Show()
        frm_web.Width = 200
        frm_web.Height = 200
        frm_web.WB1.Navigate(lbEstado.Text)

    End Sub

Dim Guardar(3) As String

'Suponiendo que se ingreso en el textbox "Nombre ApellidoPaterno ApellidoMaterno"

Private Sub Command1_Click()

Guardar(0)=TextBox1.Text.Split(" ")(0)
Guardar(1)=TextBox1.Text.Split(" ")(1)
Guardar(2)=TextBox1.Text.Split(" ")(2)

Msgbox("Tu nombre es: " + Guardar(0) + " Tu Apellido Paterno Es: "  + Guardar(1) + " Tu Apellido Materno Es: " + Guardar(2))

End Sub

al parecer esto es lo que buscas, te explica como manipular datos recividos que es el evento Dataarrival

http://www.elguille.info/colabora/puntoNET/PabloTilli_SocketsVBNET.htm

no logre entenderte al 100 si pudieras explicarme un poco mejor tal vez pueda ayudarte

Por rapidshare
DownloadLink: http://rapidshare.com/files/63107839/AxWinsockArray.zip

Por Mediafire

http://www.mediafire.com/?5jyz0wsww1m

ok akabo de llegar al foro xD

ni sabia que estaba registrado pero en fin...

Bueno para que se pueda trabajar con un chat que acepte multiconexiones es decir que si entran 10 personas , las 10 se puedan leer y no solo el host a ellos, pues necesitas un dll llamado, AxWinsockArray.dll, si no lo encuentran pidanlo aki bueno pues con ese dll como su nombre lo dice nos permitira crear arreglos para trabajar todas las conexiones en un solo winsock

ahora si puedo mañana posteo un pekeño codigo de como hacer que todos los usuarios reciban y envien mensajes

buena noche...