Estoy tratando de leer el Static de una ventana de Dialog de Windows, la que dice:

No se puede tener acceso a 'xxxx'

Acceso Denegado.

Ya logre obtener el handle del dialog con:

Y comprobando que ese fuera el hWnd usando a SendMessage par obtener el caption y asi comprobar si realmente es la ventana, entonces... uso FindWindowEx para obtener el Static interno del dialog cuya class es "Static" y retorna 0 el handle:

Que debo hacer para obtener el texto de ese Static?

Gracias.

Hice un Auto Login para un juego en linea dejo de funcionar por algo que no explicare porque seria muy largo de hacer, el punto es que necesito usar SendMessage para enviar pulsasciones del teclado y del mouse he investigado mucho pero mucho al parecer todo esta como deberia pero aun así no funciona nada y eso me hace querer pegarle con martillo a la PC xD, en serio quisiera que me ayudaran
Aqui les va todo:

Declaración API's y Constantes:

     'Keyboards Events Consts
    Const WM_KEYDOWN As Integer = &H100
    Const WM_KEYUP As Integer = &H101
    Const WM_CHAR As Integer = &H102
 
    Const WM_LBUTTONDOWN As Integer = &H201
    Const WM_LBUTTONUP As Integer = &H202
 
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
    (ByVal hWnd As Integer, ByVal wMsg As Integer, _
    ByVal wParam As Integer, ByVal lParam As Integer) As Integer

Funciones:

'Enviar Texto a una Ventana
Public Sub SendString(ByVal mHandle As Integer, ByVal str As String)
        For Each i As String In str
            SendMessage(mHandle, WM_KEYDOWN, Asc(i), 0)
            SendMessage(mHandle, WM_KEYUP, Asc(i), 0)
        Next
    End Sub
 
'Enviar Tecla (ENTER, ESC, UP, DOWN, ETC...) a una Ventana
Public Sub SendKey(ByVal mHandle As Integer, ByVal Key As Keys)
            SendMessage(mHandle, WM_KEYDOWN, key, 0)
            SendMessage(mHandle, WM_KEYUP, key, 0)
    End Sub
 

'Funciones para Crear lParam de SendMessage
Public Function MAKELPARAM(ByVal wLow As Integer, ByVal wHigh As Integer) As Integer
        Return LoWord(wLow) Or (&H10000 * LoWord(wHigh))
    End Function
 
    Public Function LoWord(ByVal lDWord As Integer) As Integer
        If lDWord And &H8000& Then
            LoWord = lDWord Or &HFFFF0000
        Else
            LoWord = lDWord And &HFFFF&
        End If
    End Function

'Enviar Clicks a Ventana
Public Sub SendClick(Byval mHandle as Integer,  Byval XY As Point)
        SendMessage(WM_LBUTTONUP, 0, 0)
        Dim lpara As Integer = MAKELPARAM(XY.X, XY.Y)
        SendMessage(WM_LBUTTONDOWN, 0, lpara)
        SendMessage(WM_LBUTTONUP, 0, lpara)
    End Sub

Gracias por adenlantado 

Descarge un archivo BIN del juego Dragon Ball Z; ahora quisiera saber que debo hacer para quemarlo tengo el Alcohol y el Nero, he leido que los archivos deben ser CUE, ISO y otra variedad de formatos más, entonces estoy muy confundido y quisiera que alguien me diga la verdad de que debo hacer para poder quemar un juego de PSX

Gracias 

Como hago para que hay darle segundo click al NotifyIcon salgan esas opciones de tipo lista en las que se puede selecionar una, Gracias. 

El titulo habla más que yo xD por favor si alguien sabe como descargar un archivo desde está pagina con Vb NET.
Gracias 

Ufff como me ha costado hacer este Sub .__. y la traigo al mejor foro

Actualizado tambien para archivos...

Bueno marca los permisos de una carpeta o archivo para que salga

Acceso Denagado a: "C:\XXX"

Al intentar eliminar, explorar, renombrar, etc, etc, etc; quita todos los permisos, pero tambien los restablece

Primero debemos Importar:

Imports System.IO
Imports System.Security.AccessControl

y e aqui el Sub ^^

    Public Sub ProtectedFolderOrFile(ByVal F As String, ByVal bool As Boolean)        
Dim dInfo As New DirectoryInfo(F), _
         dSecurity As DirectorySecurity = dInfo.GetAccessControl()
 
        Select Case bool
            Case True
                dSecurity.SetAccessRule(New FileSystemAccessRule(dSecurity.GetOwner(GetType(System.Security.Principal.NTAccount)), FileSystemRights.FullControl, AccessControlType.Deny))
            Case False
                dSecurity.RemoveAccessRule(New FileSystemAccessRule(dSecurity.GetOwner(GetType(System.Security.Principal.NTAccount)), FileSystemRights.FullControl, AccessControlType.Deny))
                dInfo.SetAccessControl(dSecurity)
                dSecurity.AddAccessRule(New FileSystemAccessRule(dSecurity.GetOwner(GetType(System.Security.Principal.NTAccount)), FileSystemRights.FullControl, AccessControlType.Allow))
        End Select
        dInfo.SetAccessControl(dSecurity)
    End Sub

Como puedo obtener el peso de un archivo apartir del link?, por ejemplo el link de una imagen...

Gracias 

Como dice el titulo .__. como puedo guardar una imagen que se encuentra en el clipboard...

Gracias

Saludos a todos...

Estoy tratando de calcular la velocidad de rellanado de una RAM por segundo...

Mi idea es correr un timer cada 1 seg que sume una varible +1, y en un backgroundworker llenar una variable con Space(1024 * 1024) (1024Kb) pero el backgroundworker termina el trabajo cuando ejecuta la linea habria una forma de esperar a que se llene el buffer que estoy creando?

Para luego dividir (1024 * 1024) / X cantidad de segundos que duró el llenado del buffer que fue contado con un Timer y así obtener la velocidad aproximada de llenado por segundo en Bytes

Quisas es algo loco o hay otra forma de hacerlo?

Gracias

Saber si un proceso está corriendo por medio de su nombre

     Public Function IsRuning(ByVal ProcessName As String) As Boolean
        Return Process.GetProcessesByName(ProcessName).Count > 0
    End Function

Saber si un string es Multilinea

String.Contains(Chr(13))

True y False repectivamente para Es y No Es, Siendo String el nombre de la variable o texto a consultar.

Leer una determinada linea de un archivo

Necesitamos importar

Imports System.IO

    Public Function ReadFileLine(ByVal filer As String, ByVal line As Integer) As String
        Return File.ReadAllLines(filer).ElementAt(line - 1)
    End Function

Explorar Ruta y seleccionar archivo (Método no Común)

    Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Integer, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Integer) As Integer
    Dim Folder As String = "C:\", _
    nFile As String = "Archivo"
 
        ShellExecute(0, "Open", Folder, vbNullString, vbNullString, 1)
        For Each i As Process In Process.GetProcessesByName("explorer")
            While i.MainWindowTitle <> Mid(Folder, InStrRev(Folder, "\") + 1, Len(Folder))
            End While
            Exit For
        Next
        SendKeys.SendWait(nFile)
 

Folder el directorio a abrir y nFile el nombre del archivo a seleccionar sin incluir la extensión...

Usar la API Sleep sin declararla

Solo debemos importar la siguiente libreria

Imports System.Threading.Thread

Libererar la memoria RAM usada en nuestra aplicación

Declaramos la siguiente API

 Public Declare Auto Function SetProcessWorkingSetSize Lib "kernel32.dll" (ByVal procHandle As IntPtr, ByVal min As Int32, ByVal max As Int32) As Boolean
 

Para Liberar nuestra memoria ahora solo tenemos que usar

SetProcessWorkingSetSize(Process.GetCurrentProcess.Handle, -1, -1)

Agregaré más