vbs:
Код:
Dim User32
Set User32 = XNHost.LoadDll( "user32.dll" )
Dim hWnd
hWnd = User32.GetForegroundWindow
Dim Caption
Set Caption = XNHost.Struct
Caption.Add "buffer" , "t", 1024
User32.GetWindowText hWnd, Caption, 1023
MsgBox Caption.buffer,0, "Foreground Window Caption"
autoit:
Код:
$sText = WinGetTitle("[ACTIVE]")
MsgBox(0, "Полное название/заголовок активного окна", $sText)