Hola tengo una duda con esta regla.

/sbin/iptables -P FORWARD ACCEPT
/sbin/iptables -A INPUT -m state --state INVALID -j DROP
/sbin/iptables -A INPUT -m state --state RELATED,ESTABLISHED -j ACCEPT
/sbin/iptables -A INPUT -i lo -j ACCEPT

/sbin/iptables -A INPUT -s 10.10.10.6 -j ACCEPT

/sbin/iptables -t nat -A POSTROUTING -s 10.10.10.6 -o eth1 -j SNAT --to 87.87.87.5
/sbin/iptables -t nat -A POSTROUTING -s 10.10.10.5 -o eth1 -j MASQUERADE

Con la última regla doy acceso a la ip 10.5 a que salga full y funciona de maravillas.

La que esta antes no me funciona yo necesito que la ip 10.6 solo pueda llegar a esta ip 87.87.87.5 que me esta faltanto..

GRacias de antemano

Hola amigos,

Tengo una pequeña situación con una aplicación cliente/servidor, verán su funcionamiento básico de conectarse y desconectarse esta sin problemas la cuestión es que a veces hay LAG y el cliente deja de comunicarse con el servidor por digamos 10 segundos, mas o menos da igual y entonces se desconecta, estoy leyendo acerca de esto en la RED buscando algo como darle un tiempo para que el socket se mantenga esperando señal del otro extremo.

Le añadi una opción de que cada 5 segundos mandara un signal y reciviera una respuesta como el PING y en algunos casos funciona en otros no.

Depurando el servidor encontré que cuando el cierra la conexión dice que se ha forzado la desconexion por la parte remota no obstante en el cliente aun sigue como conectado y al rato es que da el error de que se perdió la conexión...

Alguna idea

Gracias de antemano

Pues si es conmigo la cosa el soft ya esta realizado en fase de pruebas...

Saludos y gracias nuevamente elektro

Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
 
    End Sub
 
    Dim clientSocket As Socket
    Dim byteData(1023) As Byte
 
    Private Sub OnConnect(ByVal ar As IAsyncResult)
        clientSocket.EndConnect(ar)
        clientSocket.BeginReceive(byteData, 0, byteData.Length, SocketFlags.None, New AsyncCallback(AddressOf OnRecieve), clientSocket)
    End Sub
 
    Private Sub OnDisconnect(ByVal ar As IAsyncResult)
        Dim client As Socket = ar.AsyncState
        client.EndDisconnect(ar)
 
        clientSocket.Close()
        clientSocket = Nothing
    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
 
 
    Private Sub btnConnect_Click(sender As Object, e As EventArgs) Handles btnConnect.Click
        clientSocket = New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)
        Dim ipAddress As IPAddress = IPAddress.Parse("127.0.0.1")
        Dim ipEndPoint As IPEndPoint = New IPEndPoint(ipAddress, 8800)
        clientSocket.BeginConnect(ipEndPoint, New AsyncCallback(AddressOf OnConnect), Nothing)
    End Sub
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        clientSocket.BeginDisconnect(False, New AsyncCallback(AddressOf OnDisconnect), clientSocket)
    End Sub
End Class

Cada vez que doy en el Boton desconectar me salta una exepcion en OnReceive de que el objeto esta Dispose, alguien me puede explicar porque es que se dispara ese evento.

Lo otro es que en el lado del servidor no se entera de que el socket fue cerrado, para que el se percatara de esto tendria que hacer una especie de thread cada cierto tiempo verificando si el socket esta vivo ??

Como explican aqui

http://stackoverflow.com/questions/722240/instantly-detect-client-disconnection-from-server-socket

Salu2

Lo que busco es detectar cuando un cliente se conecta y desconecta tanto para el cliente como el servidor.

Pues si que funcionaba el problema radicaba en que yo estaba haciendo un While hasta esperar que se disparara el evento de que ya se habia terminado el BW pero nose donde fue que leí que usar Application.DoEvents no era recomendable que era preferible usar un Thread.Slepp...

En cuanto cambie el Thread.Slepp para DoEvents funciono todo de maravillas..

El While estaba mirando una variable Booleana que se ponia a TRUE en el evento Complete del BW.

Sabrias porque sucedia eso ?

Salu2 y gracias por el código..

Ya terminé el programa y te incluí en los créditos asi como tu página despues te mando captura.

Imports System.IO
Imports System.Management
Imports System.Text
Imports System.Threading
 
Public Class BWorkerProc
 
    ''' <summary>
    ''' The BackgroundWorker object.
    ''' </summary>
    Private WithEvents MyWorker As New ComponentModel.BackgroundWorker
 
    ''' <summary>
    ''' ManualResetEvent object to pause/resume the BackgroundWorker.
    ''' </summary>
    Private _busy As New ManualResetEvent(True)
 
    Public Property StopState As Boolean
 
    ''' <summary>
    ''' 'Flag para enviar los procesos
    ''' </summary>
    ''' <returns></returns>
    Public Property SendProc As Boolean
 
    ''' <summary>
    ''' This will start the BackgroundWorker.
    ''' </summary>
    Public Sub StartBackgroundTask()
 
        StopState = False
 
        MyWorker.WorkerSupportsCancellation = True
        MyWorker.RunWorkerAsync()
 
    End Sub
 
    ''' <summary>
    ''' This is the work to do on background.
    ''' </summary>
    Private Sub MyWorker_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles MyWorker.DoWork
 
        Do Until MyWorker.CancellationPending
 
            'Check weird process
            GetProccesPath()
 
            'Send Process
            SendProcess()
 
        Loop
 
        e.Cancel = True
 
    End Sub
 
    ''' <summary>
    ''' This happens when the BackgroundWorker is completed.
    ''' </summary>
    Private Sub MyWorker_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) _
    Handles MyWorker.RunWorkerCompleted
 
        If e.Cancelled = True Then
            'MsgBox("Thread cancelled")
            StopState = True
        ElseIf e.Error IsNot Nothing Then
            'MsgBox("Thread error")
 
        Else
            'MsgBox("Thread Done!")
 
        End If
 
    End Sub
 
    ''' <summary>
    ''' This will pause the BackgroundWorker.
    ''' </summary>
    Public Sub Pause()
 
        If MyWorker.IsBusy Then
            _busy.Reset()
            'MsgBox("Thread Paused!")
        End If
 
    End Sub
 
    ''' <summary>
    ''' This will resume the BackgroundWorker.
    ''' </summary>
    Public Sub [Resume]()
        _busy.[Set]()
        'MsgBox("Thread Resumed!")
    End Sub
 
    ''' <summary>
    ''' This will cancel the BackgroundWorker.
    ''' </summary>
    Public Sub Cancel()
        _busy.[Set]() ' Resume worker if it is paused.
        MyWorker.CancelAsync() ' Cancel it.
    End Sub
 
 
End Class
 
 

El cancela el worker pero no se activa el RunWorkerComplete nunca...

Hola,

Que podria suceder para que una BW no se detuviera, le estoy dando la orden de cancelar y en el evento que se dispara cuando finaliza puse una variable publica que la voy comprobando con un while hasta que se haga true para poder continuar, llega bien hasta el Mywork.CancelAsync pero no se dispara el evento de que finalizo, verifique y tampoco sigue trabajando verificando ninguna de las funciones que tiene, cuando lo inicializo declaro que puede detenerse.

Es que necesito agregar a un array valores y en ese BW hay una funcion que cada cierto tiempo la usa para hacer comprobaciones.

Leyendo di con una funciona SymLock pero trate de usarla y me dio el mismo mensaje de que la coleccion ha sido modificada.

Edito: Podria ser que cuando hago el cancel no miro primero si esta ocupado (busy). ?

Me respondo..

http://stackoverflow.com/questions/2079428/unable-to-delete-image-after-opening-it-in-vb-net-app

El problema es que Image.FromFile mantiene el archivo abierto...

Salu2

Imports System.Drawing.Drawing2D
 
Public Class Form1
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
 
        Dim Dimensiones As New Size
 
        Dimensiones.Width = 600 : Dimensiones.Height = 400
 
        Resize_Image(Image.FromFile("C:\Fraps\Screenshots\Prueba.bmp"), Dimensiones).Save("C:\Fraps\Screenshots\Prueba1.bmp")
 
    End Sub
 
    Public Function Resize_Image(ByVal sender As Image, ByVal size As Size) As Image
 
        If (size.Width <= 0) Then
            Throw New ArgumentException(paramName:="width", message:="Value bigger than 0 is reqired.")
 
        ElseIf (size.Height <= 0) Then
            Throw New ArgumentException(paramName:="height", message:="Value bigger than 0 is reqired.")
 
        Else
            Dim bmp As New Bitmap(size.Width, size.Height, sender.PixelFormat)
            Using g As Graphics = Graphics.FromImage(bmp)
                With g
                    .CompositingQuality = CompositingQuality.Default
                    .InterpolationMode = InterpolationMode.Default
                    .PixelOffsetMode = PixelOffsetMode.Default
                    .SmoothingMode = SmoothingMode.Default
                    .DrawImage(sender, 0, 0, bmp.Width, bmp.Height)
                End With
            End Using
            Return bmp
 
        End If
 
    End Function
 
End Class

Me sigue diciendo que mi aplicación tiene la imagen en uso, cuando trato de eliminarla.

Salu2 y muchas gracias ya volvi a descargar tus librerias actualizadas...

    Private Function Resize_Image(ByVal img As Image, ByVal Width As Int32, ByVal Height As Int32) As Bitmap
        Dim Bitmap_Source As New Bitmap(img)
        Dim Bitmap_Dest As New Bitmap(CInt(Width), CInt(Height))
        Dim Graphic As Graphics = Graphics.FromImage(Bitmap_Dest)
        Graphic.DrawImage(Bitmap_Source, 0, 0, Bitmap_Dest.Width + 1, Bitmap_Dest.Height + 1)
        Return Bitmap_Dest
    End Function

Porque no puedo eliminar la imagen source una vez que termina la operación dice que esta en uso.

Próbe con otros codigos que tengo que usan Using, tambien hize Dispose a cada imagen y nada sigue en uso..

Salu2