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

Instale Debian Jessie y tengo configurada la eth0 y eth1 de la siguiente manera

eth0 (wan)
address 100.0.20.15
netmask 255.255.255.252
gateway 100.0.20.14

eth1 (lan)
address 192.168.20.8
netmask 255.255.255.0
network 192.168.20.0
broadcast 192.168.20.255

los dns son:
100.0.20.5
100.0.20.9

yo puse la misma configuracion de la wan en mi windows 7 y funciona de maravillas, no es problema de del isp, no logro resolver ningun dns si me pudieran orientar un poco..

Gracias de antemano

Hola,

Quería saber sobre el funcionamiento de este Snippet publicado por Elektro para esperar a que una aplicación termine de cargar..

 
Timer_CheckCPU.Tag = "photoshop"          'Nombre del proceso a chequear
Timer_CheckCPU.Enabled = True
While Not Timer_CheckCPU.Tag = ""
         Application.DoEvents()
End While
 
 
#Region " Wait For Application To Load "
 
    Private Declare Function ReadProcessMemory Lib "kernel32" (ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByVal lpBuffer As Integer, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Integer
    Private WithEvents Timer_CheckCPU As New Timer
 
    Dim Memory_Value_Changed As Boolean
    Dim CPU_Changed As Boolean
    Dim CPU_Time As Boolean
    Dim Running_Time As Boolean
    Private _desiredTime_ms As Integer = 1500
 
    Private Sub Timer_CheckCPU_Tick(sender As Object, ev As EventArgs) Handles Timer_CheckCPU.Tick
        Timer_CheckCPU.Enabled = False
        Dim pProcess() As Process = Process.GetProcessesByName(Timer_CheckCPU.Tag)
        Dim hprocess As Process = pProcess(0)
        If hprocess Is Nothing Then
            Running = False
            Timer_CheckCPU.Enabled = True
            Return
        End If
        Running = True
        Memory = hprocess.PrivateMemorySize64
        CPUTotal = hprocess.TotalProcessorTime.TotalMilliseconds
 
        If AllConditionsGood() Then
            If Not (_countdown.IsRunning) Then
                _countdown.Reset()
                _countdown.Start()
            End If
            Dim _elapsed As Long = _countdown.ElapsedMilliseconds
            If _elapsed >= _desiredTime_ms Then
                Timer_CheckCPU.Tag = ""
                Return
            End If
        Else
            _countdown.Reset()
        End If
        Timer_CheckCPU.Enabled = True
    End Sub
 
    Private Function AllConditionsGood() As Boolean
        If CPU_Time Then Return False
        If Memory_Value_Changed Then Return False
        If Running_Time Then Return False
        Return True
    End Function
 
    Private _countdown As New Stopwatch
 
    Private _Running As Boolean = False
    Public WriteOnly Property Running() As Boolean
        Set(ByVal value As Boolean)
            _Running = value
            If value Then
                Running_Time = False
            Else
                Running_Time = True
            End If
        End Set
    End Property
 
    Private _CPUTotal As Double
    Public WriteOnly Property CPUTotal() As Double
        Set(ByVal value As Double)
            CPU = value - _CPUTotal 'used cputime since last check
            _CPUTotal = value
        End Set
    End Property
 
    Private _CPU As Double
    Public WriteOnly Property CPU() As Double
        Set(ByVal value As Double)
            If value = 0 Then
                CPU_Time = False
            Else
                CPU_Time = True
            End If
            _CPU = value
        End Set
    End Property
 
    Private _Memory As Long
    Public WriteOnly Property Memory() As Long
        Set(ByVal value As Long)
            MemoryDiff = Math.Abs(value - _Memory)
            _Memory = value
        End Set
    End Property
 
    Private _MemoryDiff As Long
    Public WriteOnly Property MemoryDiff() As Long
        Set(ByVal value As Long)
            If value = _MemoryDiff Then
                Memory_Value_Changed = False
            Else
                Memory_Value_Changed = True
            End If
            _MemoryDiff = value
        End Set
    End Property
 
#End Region

Necesito verificar los modulos de ese proceso una vez que termine de cargar.. pero no me funciona me devuelve menos modulos de los esperados..

Gracias de antemano

Hola,

Estoy tratando de mover un Label dentro de las dimensiones de un Form, con el siguiente código pero estoy obteniendo un error de que debe ser un valor positivo en la parte de r.Next...

 
Dim r As New Random()
 
            Dim x As Integer = r.Next(Me.ClientRectangle.Height - Label1.Width)
            Dim y As Integer = r.Next(Me.ClientRectangle.Height - Label1.Height)
            Dim p As New Point(x, y)
 
            Me.Label1.Location = p
 
        End If
 
 

Gracias cualquier ayuda..

Salu2

Holas,

Ayer estaba todo bien ya hoy cuando la enciendo se me queda la pantalla bloqueada no me muestra la hora ni responde a nada del mando...

La abri tan solo para mirar si tenia algo quemado a simple vista porque no se nada de electronica o tenia algun olor relacionado a eso y nada parece estar bien.

Mi pregunta es la misma tiene un puerto RS232 no tengo un cable a la mano pero mañana si lo conseguire, tengo pensado conectarlo a la caja y tratar de ver si dice u hace algo..

Me pueden dar un minimo tecnico de si estos aparatos tienen algun estandar a la hora de debuguearlos, comandos basicos, igual si me pudieran decir como es lo de la comunicacion por ese cable, tengo pensando hacerlo con un programa se llama Putty pero bueno nose como se trabajaria.

Gracias cualquier ayuda

Hi,

Voy a Goolear a ver que aparece de igual manera no esta tener toda la ayuda posible..

Saludos

Hola,

Señores dejenme hacerles una pregunta.

Tengo 2 Laptop:

Dell: INSPIRON 3558

Asus: X556UA

Yo quisiera formatear la DELL porque tiene el sistema en íngles y no logro ponerle el paquete de lenguaje en español.

Me dijeron que estas laptos tienen su sistema fundido por decirlo de alguna manera que no debo formatear porque podria quedarme con ella como un lindo pisapapeles, hasta cierto punto creo que algo de esto es real porque la Dell viene con C: nada mas y cuando la particione se puso lenta insoportable tuve que eliminarla y entonces volvio a como era.

Me dicen que ellas tienen un sistema para restaurar el sistema de fabrica, como si fuese un formateo, como doy con este sistema porque no logro activarlo con ninguna tecla desde el MSDOS cuando arranca, por supuesto estoy haciendo algo mal.

Esto es cierto ??

Hola,

Leyendo este tema

http://foro.elhacker.net/net/iquesthacer_una_pausa_a_un_backgrounworker_en_vbnet-t405073.0.html;msg1906376

Me surge algunas dudas cuando trato de aplicarlo en mi proyecto.

Tengo un sub que verifica los procesos que estan corriendo en el Pc:

Tendría que quedar así supongo..

Private Sub MyWorker_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) _
    Handles MyWorker.DoWork
 
        Do While MyWorker.CancellationPending = False 
 
                _busy.WaitOne(5000)        'Creo un intervalo de 5 segundos para ejecutar el Sub
                CheckProcess()
 
        Loop
 
        e.Cancel = True
 
    End Sub

Tengo otro sub que igual verifica los módulos de una aplicación que supongo tendria que hacer otro backgroundworker

Tengo un Laptop DELL con Windows 10 Home 64x en ingles, quiero ponerlo en español, tengo que bajar algun paquete especifico para el o es algo general ?

Salu2 y gracias

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