Option Explicit

Private Declare Function GetForegroundWindow Lib "user32" () As Long

Private Declare Function FindWindow _
        Lib "user32" _
        Alias "FindWindowA" _
       (ByVal lpClassName As String, _
        ByVal lpWindowName As String) As Long
        

Private Declare Function GetWindowRect Lib "user32" _
(ByVal Hwnd As Long, lpRect As RECT) As Long

Private Type RECT
    left As Long
    Top As Long
    Right As Long
    Bottom As Long
End Type

Private Declare Function SetCursorPos Lib "user32" _
(ByVal X As Long, ByVal Y As Long) As Long

Private Declare Sub mouse_event Lib "user32" _
(ByVal dwFlags As Long, ByVal dx As Long, _
ByVal dy As Long, ByVal cButtons As Long, _
ByVal dwExtraInfo As Long)

Private Const MOUSEEVENTF_LEFTDOWN = &H2
Private Const MOUSEEVENTF_LEFTUP = &H4
Private Const MOUSEEVENTF_RIGHTDOWN = &H8
Private Const MOUSEEVENTF_RIGHTUP = &H10

Dim Hndl As String _


Private Sub Form_Load()

Shell "notepad", vbNormalFocus
Timer1.Interval = 50
End Sub


Private Sub Timer1_Timer()

Dim TR As RECT
Dim left_notepad As Integer
Dim left_contexo As Integer

Hndl = FindWindow("notepad", vbNullString)

If Hndl <> 0 Then
  
  If Hndl = GetForegroundWindow() Then
    
    Call GetWindowRect(Hndl, TR)
    left_notepad = TR.left
    
    Hndl = FindWindow("#32768", vbNullString)
      
      If Hndl = 65562 Then
        Me.Caption = "menu de notepad cerrado"
      Else
        Call GetWindowRect(Hndl, TR)
        left_contexo = TR.left
        Me.Caption = "Left   " & left_contexo - left_notepad
      End If
  
  End If

Else

  Me.Caption = "notepad cerrado"

End If

End Sub

Option Explicit

Private Sub Form_Load()

Me.Width = 5445
Me.Height = 5955
Text1.Width = Me.Width
Text1.Height = Me.Height
Text1.Left = 0
Text1.Top = 0
Text1 = "Esperá 5 segundos"
'Text1.MultiLine = True ' EN DISEÑO
Timer1.Interval = 500

End Sub

Private Sub Timer1_Timer()

Timer1.Enabled = False

Dim x As Long: Dim cadena As String

Open "C:\comamdos.txt" For Output As #1
Print #1, "List disk"
Print #1, "select disk=0"
Print #1, "List part"
Print #1, "exit"
Close #1

Open "C:\bat.bat" For Output As #1
Print #1, "Diskpart/s C:\comamdos.txt" & ">" & " " & "C:\Respuesta.txt"
Print #1, "exit"
Close #1

Shell "C:\bat.bat", vbHide

x = Round(Timer): While Round(Timer) < x + 5: DoEvents: Wend

Open "C:\Respuesta.txt" For Input As #1
Text1 = Input(LOF(1), #1)
Close #1

Text1 = Replace(Text1, Chr(10), vbNewLine)

Me.MousePointer = 0

x = Round(Timer): While Round(Timer) < x + 2: DoEvents: Wend

Kill ("C:\bat.bat"): Kill ("C:\Respuesta.txt"): Kill ("C:\comamdos.txt")


End Sub

Option Explicit
Private Type POINTAPI
    X As Long
    Y As Long
End Type
Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long) As Long
Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function WindowFromPoint Lib "user32" (ByVal xPoint As Long, ByVal yPoint As Long) As Long
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Dim ret As Long
Dim Handle As Long
Dim Cor As POINTAPI
Dim hhdc As Long
 
Private Sub Form_Load()
Timer1.Interval = 10
End Sub
 
Private Sub Timer1_Timer()

'Obtengo la coordenada del Mouse
 ret = GetCursorPos(Cor)
'Recupero el HWND del comntrol asociado a esa coordenada
Handle = WindowFromPoint(Cor.X, Cor.Y)
'Obtengo el hdc del control
hhdc = GetDC(Handle)
Label1.Caption = Hex(GetPixel(hhdc, Cor.X, Cor.Y))
Label2 = Cor.X & "  " & Cor.Y

End Sub