Hola

Iré al grano, utilizando la función Process.GetProcesses() puedo obtener información del los procesos del sistema así como el Handle o el MainWindowHandle de la ventana principal de un proceso.

El problema es que en algunos casos  MainWindowHandle  devuelve 0

Recordé un viejo código de VB que tenía por ahí. Y tras un buen rato probando lo conseguí pasar a VB.NET, ya que usa APIs y si no se usa bien devuelve error o valores nulos.

Se necesita el ID de un proceso para obtener el handle principal, y dado que la clase  Process no devuelve valor nulo con los IDs obtengo todos los Handles en la lista.


Ahí va el code  :

////OBTENER HANDLE PROCESO////

#Region "Obtener Handle Proceso"
Public Module modProcessHandle
    <DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)> _
    Private Function FindWindow(ByVal lpClassName As String, _
    ByVal lpWindowName As String) As IntPtr
    End Function
    <DllImport("user32.dll", ExactSpelling:=True, CharSet:=CharSet.Auto)> _
    Public Function GetParent(ByVal hWnd As IntPtr) As IntPtr
    End Function
    <DllImport("user32.dll", ExactSpelling:=True, CharSet:=CharSet.Auto)> _
    Private Function GetWindow(ByVal hWnd As IntPtr, _
    ByVal wCmd As Integer) As IntPtr
    End Function
    <DllImport("user32.dll", ExactSpelling:=True, CharSet:=CharSet.Auto)> _
    Private Function GetWindowThreadProcessId(ByVal hWnd As IntPtr, _
    ByRef lpdwProcessId As Integer) As IntPtr
    End Function
 
 
    Public Function GetProcessHandle(ByVal ProcessId As Integer) As IntPtr
        Dim HwndTemporal As IntPtr
        Dim idProc As Integer = 0
        Dim HWND As IntPtr = IntPtr.Zero
        Const GW_HWNDNEXT = 2
        HwndTemporal = FindWindow(Nothing, Nothing)
        ' Loop hasta que encuentra una coincidencia o no hay más identificadores de ventana:
        Do Until HwndTemporal = IntPtr.Zero
            ' Comprueba que no tenga ninguna ventana 'Parent'
            If GetParent(HwndTemporal) = IntPtr.Zero Then
                GetWindowThreadProcessId(HwndTemporal, idProc)
                If ProcessId.Equals(idProc) Then
                    HWND = HwndTemporal 'Devuelve el handle encontrado
                    Return HWND
                    Exit Do ' Salir de bucle 
                End If
            End If
            idProc = 0
            'Siguiente identificador de ventana
            HwndTemporal = GetWindow(HwndTemporal, GW_HWNDNEXT)
        Loop
        Return HWND
    End Function
 
End Module
#End Region

Aquí un ejemplo de como usarlo para obtener una lista con los procesos en ejecución sus handles y su Class Name.

Option Strict On
Option Explicit On
Imports System.Runtime.InteropServices
Imports System.Text
 
Public Class Form1
    <DllImport("user32.dll", CharSet:=CharSet.Auto)>
    Private Shared Function GetClassName(ByVal hWnd As IntPtr, _
   ByVal lpClassName As System.Text.StringBuilder, _
   ByVal nMaxCount As Integer) As Integer
    End Function
    Dim ClassName As StringBuilder = New StringBuilder(256)
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        ListView1.Columns.Add("Name", 100)
        ListView1.Columns.Add("MainHandle", 100)
        ListView1.Columns.Add("ClassName", 200)
        ListView1.Columns.Add("MainHandle", 100)
        ListView1.Columns.Add("ClassName", 200)
        ListView1.View = View.Details
        ListView1.FullRowSelect = True
        'Recorre los procesos y agrega la información al ListView
        For Each Proceso In Process.GetProcesses()
            Dim Handle As IntPtr = modProcessHandle.GetProcessHandle(Proceso.Id)
            If Handle <> IntPtr.Zero Then
                'Nombre Proceso
                ListView1.Items.Add(Proceso.ProcessName)
 
                'MainWindowHandle
                ListView1.Items(ListView1.Items.Count - 1).SubItems.Add _
                    (Conversion.Hex(Proceso.MainWindowHandle.ToInt32))
                'ClassName
                ClassName.Clear()
                GetClassName(CType(Proceso.MainWindowHandle.ToInt32, IntPtr), ClassName, ClassName.Capacity)
                ListView1.Items(ListView1.Items.Count - 1).SubItems.Add(ClassName.ToString)
 
                'MainWindowHandle
                ListView1.Items(ListView1.Items.Count - 1).SubItems.Add(Conversion.Hex(CInt(Handle)))
                'ClassName
                ClassName.Clear()
                GetClassName(Handle, ClassName, ClassName.Capacity)
                ListView1.Items(ListView1.Items.Count - 1).SubItems.Add(ClassName.ToString)
 
            End If
        Next
    End Sub
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
    End Sub
End Class
#Region "Obtener Handle Proceso"
Public Module modProcessHandle
    <DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)> _
    Private Function FindWindow(ByVal lpClassName As String, _
    ByVal lpWindowName As String) As IntPtr
    End Function
    <DllImport("user32.dll", ExactSpelling:=True, CharSet:=CharSet.Auto)> _
    Public Function GetParent(ByVal hWnd As IntPtr) As IntPtr
    End Function
    <DllImport("user32.dll", ExactSpelling:=True, CharSet:=CharSet.Auto)> _
    Private Function GetWindow(ByVal hWnd As IntPtr, _
    ByVal wCmd As Integer) As IntPtr
    End Function
    <DllImport("user32.dll", ExactSpelling:=True, CharSet:=CharSet.Auto)> _
    Private Function GetWindowThreadProcessId(ByVal hWnd As IntPtr, _
    ByRef lpdwProcessId As Integer) As IntPtr
    End Function
 
 
    Public Function GetProcessHandle(ByVal ProcessId As Integer) As IntPtr
        Dim HwndTemporal As IntPtr
        Dim idProc As Integer = 0
        Dim HWND As IntPtr = IntPtr.Zero
        Const GW_HWNDNEXT = 2
        HwndTemporal = FindWindow(Nothing, Nothing)
        ' Loop hasta que encuentra una coincidencia o no hay más identificadores de ventana:
        Do Until HwndTemporal = IntPtr.Zero
            ' Comprueba que no tenga ninguna ventana 'Parent'
            If GetParent(HwndTemporal) = IntPtr.Zero Then
                GetWindowThreadProcessId(HwndTemporal, idProc)
                If ProcessId.Equals(idProc) Then
                    HWND = HwndTemporal 'Devuelve el handle encontrado
                    Return HWND
                    Exit Do ' Salir de bucle 
                End If
            End If
            idProc = 0
            'Siguiente identificador de ventana
            HwndTemporal = GetWindow(HwndTemporal, GW_HWNDNEXT)
        Loop
        Return HWND
    End Function
 
End Module
#End Region

Como demostración he hecho que se muestre en una columna los handles obtenidos con la clase Process y otra columna con los handles obtenidos con el snippet. Se puede ver que con algunos procesos ocultos, es decir no son visibles, se devuelve valor 0, pero con el snippet se obtiene el handle sin problemas. Además se obtienen los nombres de clase (ClassName) que sin los Handles de las ventanas no es posible obtenerlos. Por lo menos que yo sepa.

La primera columna ClassName se obtiene con MainWindowHandle del Procces. La segunda columna ClassName se obtiene con los handles obtenidos con el snippet.


Si hay otra forma más sencilla, decídmelo 


El código original VB6 está en el siguiente enlace:
CodeVB

Espero que os sirva...

Saludos

Hola
Los antivirus borran mis programas. ¿Cómo evitarlo?

sl2

Hola

Pues el asunto ya lo explica todo. Extraigo el código de una página web y no aparecen caracteres especiales como los acentos y creo que la 'ñ' tampoco.

Mi código es el siguiente:

         Dim UrlCode As String = Nothing
        Dim myHttpWebRequest As System.Net.HttpWebRequest = _
            CType(System.Net.WebRequest.Create("https://foro.elhacker.net/net/el_codigo_html_extraido_de_una_web_no_muestra_acentos_aeo-t444215.0.html;msg2046878#msg2046878"),  _
                System.Net.HttpWebRequest)
        myHttpWebRequest.UserAgent = "Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.2; .NET CLR 1.1.4322; .NET CLR 2.0.50727)" '".NET Framework Test Client"
        ' The response object of 'HttpWebRequest' is assigned to a 'HttpWebResponse' variable.
        Dim myHttpWebResponse As System.Net.HttpWebResponse = CType(myHttpWebRequest.GetResponse(), System.Net.HttpWebResponse)
        ' Display the contents of the page to the console.
        Dim streamResponse As System.IO.Stream = myHttpWebResponse.GetResponseStream()
        Dim streamRead As New System.IO.StreamReader(streamResponse)
 
        UrlCode = streamRead.ReadToEnd
 
        streamRead.Close()
        streamResponse.Close()
        myHttpWebResponse.Close()

En lugar del acento aparece un cuadrito 'cami[]n'

Gracias

---

Ya lo solucioné, añadiendo System.Text.Encoding.

  Dim streamRead As New System.IO.StreamReader(streamResponse, System.Text.Encoding.GetEncoding(1252))

También me ha servido poner System.Text.Encoding.Default

Dim streamRead As New System.IO.StreamReader(streamResponse, System.Text.Encoding.Default)

Parece ser que es debido a la conversión de la Web a Unicode  que hace Net.

Hola
Estoy buscando donde ver online la serie 'Los ángeles de Charlie (1976)'. Busco en Google y me sale seriesyonkies por ejemplo pero a la hora de verlo no hay manera, me dice o que actualice Flash que ya lo he actualizado oy firefox que también lo tengo actualizado, pero desde el propio firefox no desde el enlace que te proponen ¿lógico no?.

¿Dónde puedo verla?

Gracias

---

Bueno, he vuelto a probar y ahora me lleva a una página en blanco.

Hola

El otro día me conecté a la red usando el móvil como modem. Mi movil  tiene límite de datos, y pasado 1 GB, me cobran 1 € cada 100 mb. En fin, un timo. Es para uso mínimo

El caso es que me conecté desde XP y afortunadamente tengo un programa que hice yo mismo para controlar subida y la bajada.  Se que hay herramientas para verlo pero se muestra en bytes y no suma la bajada y la subida, lo cual lo que cuenta es todo en este caso.

Por suerte me percaté pronto de que había algo descargando sin parar y desconecté la conexión. Hice lo siguiente:
- Mediante el Firewall de mi antivirus bloquee la conexión de programas que tratan de utilizar a la red.
-Desconecté Windows Update. Además ya lo tenía en avisarme y no descargar.
-Mediante un programa What's Running, compruebo que se conecta a la red. También desde consola.

Veo que sea lo que sea usa svchost.exe

Por mucho que haga no conseguía averiguar qué es lo que se estaba descargando y qué programa lo hacía. Hasta que  me puse con los servicios. Al final resulta que era: Servicio de transferencia inteligente en segundo plano

Lo deshabilité y listo ya no descargaba nada en absoluto. Sólo cuando navegaba ya que al hacerlo se descargan y envían datos.

Si tengo deshabilitado Windows Update ¿Qué programa usaba o qué se descargaba a través de este servicio?

Gracias

Hola

Mediante este código obtengo los bytes enviados y recibidos por la red.

  Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As EventArgs) _
    Handles Timer1.Tick
        Dim nics As System.Net.NetworkInformation.NetworkInterface()
        nics = System.Net.NetworkInformation.NetworkInterface.GetAllNetworkInterfaces()
 
        For Each nic As NetworkInterface In nics
            Dim S As Integer = nic.NetworkInterfaceType
 
            If nic.OperationalStatus = 1 Then 
                If S = NetworkInterfaceType.Wireless80211 Or S = NetworkInterfaceType.Ethernet Then
                    Dim ipv4Stats As System.Net.NetworkInformation.IPv4InterfaceStatistics
                    ipv4Stats = System.Net.NetworkInformation.NetworkInterface.GetAllNetworkInterfaces.First.GetIPv4Statistics
                    Label1.Text = String.Format("Enviado: {0} bytes", ipv4Stats.BytesSent.ToString("##,##"))
                    Label2.Text = String.Format("Recibido: {0} bytes", ipv4Stats.BytesReceived.ToString("##,##"))
 
                End If
                If S = NetworkInterfaceType.Ppp Then
                    Dim ipv4Stats As System.Net.NetworkInformation.IPv4InterfaceStatistics
                    ipv4Stats = System.Net.NetworkInformation.NetworkInterface.GetAllNetworkInterfaces(1).GetIPv4Statistics
                    Label1.Text = String.Format("Enviado: {0} bytes", ipv4Stats.BytesSent.ToString("##,##"))
                    Label2.Text = String.Format("Recibido: {0} bytes", ipv4Stats.BytesReceived.ToString("##,##"))
                End If
            End If
        Next
    End Sub

 Pero no cuadra con los mostrados por Windows a través del cuadro "Estado de Conexión de red inalámbrica":





Gracias

Hola

Estoy intentando cargar una imagen que tengo en la carpeta Recursos del proyecto en
un  botón. pero no lo consigo porque no se poner la dirección de imagen

He probado esto:

  <Button>
<Image Height="18" Source="/WpfApplication1;component/Resources/Ir.png" Stretch="Fill" Width="18"/>
</Button>

y esto:

  <Button>
<Image Height="18" Source="/Resources/Ir.png" Stretch="Fill" Width="18"/>
</Button>

y esto:

  <Button>
<Image Height="18" Source="Res/Ir.png" Stretch="Fill" Width="18"/>
</Button>

Pero nada no se carga

Gracias

---

Ya lo he conseguido  

<Application x:Class="Application"
    xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
    xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
    StartupUri="MainWindow.xaml">
    <Application.Resources>
        <ImageBrush x:Key="OpenImage">
            <ImageBrush.ImageSource>
                         <BitmapImage UriSource="/Resources/open.png" />
            </ImageBrush.ImageSource>
        </ImageBrush>
 
        <Style TargetType="Button">
            <Setter Property="Background" Value="{StaticResource OpenImage}"/>
        </Style>
 
    </Application.Resources>
</Application>

Una cosa importante. Por defecto la imagen colocada en Resources tiene la propiedad 'Acción de compilación' establecidad en 'Ninguno'. Hay que establecerlo como' Resource'

Hola

Pues eso, ayer estuve más de una hora cambiando esto y aquello para evitar que al hacer clic sobre el ComboBox NO despliegue la lista pero SI que lo haga la pulsar el botón.

Si el ComboBox no está personalizado, es decir, que no le hemos aplicado ningún estilo, basta con cambiar la propiedad IsEditable a True

<ComboBox Name="ComboBox1" IsEditable="True"  Height="25" Width="150" Margin="0,20,0,0"> </ComboBox>

Pero cuando se le aplica un estilo no hay forma de conseguir que no despliegue la lista al hacer clic sobre él.

Aquí dejo un enlace con un ejemplo de estilo para el ComboBox
ComboBox ControlTemplate Example

Si establezco IsEditable= "True" se puede editar pero al hacer clic sobre el cuadro de texto para editarlo se despliega la lista.

Gracias

Hola

Mi portátil (con Windows Vista) tenía un disco de 250 GB y al cambiarlo por uno de 500 GB los drivers originales de Intel no eran compatibles con el disco de 250 y no me funcionaba Widnows Update. Tras mucho navegar vi en un foro que alguien había encontrado esa relación y lo solucionó. Me bajé una versión actualizada 'Intel Rapid Storage Technology Driver v9.5.6.1001 REV. SoftPaq NUMBER:  SP47845'. Y problema solucionado.

Estas son las especificaciones del dispositivo:

y mi CPU:
Intel(R) Core(TM)2 Duo CPU     P8400  @ 2.26GHz, 2267 Mhz, 2 procesadores principales, 2 procesadores lógicos

Parece ser que tiene que ver con el AHCI (Advanced Host Controller Interface) o RAID.

Pero esto no acaba aquí, ayer tras instalar Windows 7 en un PC (no le meto Linux porque no tiene conexión a Internet). Pues vi que el disco del PC tenía un programa para controlar el CPU mostrando los vatios que consumía. Busqué lo mismo en el disco del portátil y por error instalé los drivers antiguos de Intel. El resultado un mensaje de error de Windows Live Mail:"Error 0x8E5E0247". El cual no relacioné para nada con el tema de los drivers, y busqué incesantemente una solución en Google, hasta que me acordé de haber instalado los programas 'Intel® Matrix Storage Manager' y Intel Turbo Memmory (que también te instala los drivers antiguos NO compatible con disco de 500GB ). Entonces intenté iniciar Windows Update y como esperaba tampoco funcionaba.

Desinstalé los programas de Intel y luego al reiniciar PANTALLAZO AZUL. Tuve que iniciar el modo reparación y restaurar el sistema a un punto anterior.

Dicho todo esto, no entiendo qué tiene que ver windows Live Mail y Windows Update con el CPU y el disco de 500GB. No entiendo esa dependéncia de Windows Update y  Windows Live Mail con Intel y sus drivers, la verdad.

Espero que alguien pueda explicarme la relación.

Aquí otro usuario se encontró con el mismo problema y lo solución del mismo modo:
http://programacion-vision-digital.bligoo.com.mx/resuelto-windows-update-error-0x8e5e0247-en-windows-7

Hola

Hola me gustaría saber como salir de la aplicación cuando todavía no se a salido de DO/LOOP

Mi método clásico siempre ha sido poner END en el evento Unload en VB y también en Dispose en Net. No se si habrá otra manera también sencilla.

Por ejemplo he creado un Bucle Do/Loop en el que creo un reloj en el cual si han pasado 10 segundos se sale de del bucle. La razón es porque quiero que el bucle dure un mínimo de 10 segundos a espera que se cumpla una condición y si pasados los 10 segundos no se cumple sale del bucle.

Aquí va el supercódigo de ejemplo

Option Strict On
Option Explicit On
Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim SecA As TimeSpan, SecB As TimeSpan
        SecA = TimeSpan.FromTicks(Date.Now.Ticks)
        Do
            SecB = TimeSpan.FromTicks(Date.Now.Ticks).Subtract(SecA)
            Me.Text = CStr(SecB.Seconds)
            If CInt(SecB.Seconds) = 10 Then Exit Do
            My.Application.DoEvents()
        Loop 'While (podría poner condición y si se cumple sale antes de los 10 segundos) 
    End Sub
 
    Private Sub Form1_Disposed(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Disposed
        End
    End Sub
End Class

El problema está en que si quito
 

    Private Sub Form1_Disposed(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Disposed
        End
    End Sub
 

No se puede cerrar la apliación hasta que no pasen los 10 segundos