فهمیدن Caption برنامه ای که فوکوس روی آن قرار دارد

[m2011kh]

سلام و خسته نباشید به شما دوستان عزیز.
مدّتی بود از ویبی فاصله گرفتم و خیلی وقته که با ویبی کار نکردم.

می خوام برنامه ای که روی اون فوکوس قرار داره و کاربر داره کار میکنه،Caption اون رو پیدا کنم.

دوستان ممنون میشم اگه کمک بدید.
موفق و سربلند باشید
M.M.D

[m2011kh]

دوستام کمی عجله دارم ببخشید اسپم میدم ولی واجبه لطفا راهنمایی کنید.
.
.
.
M.M.D

[R2du-soft]

یک فرم ایجاد کنید
یک لیبل درون فرم قرار بدید
یک تایمر درون فرم قرار بدید و از قسمت properties مقدار interval رو برابر 1 بزارید همچنین خاصیت enable رو روی true قرار بدید.
حالا کدهای زیر رو توی فرمتون(General) کپی کنید:





Option Explicit
Private Declare Function GetActiveWindow Lib "user32" () As Long
Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Private Declare Function GetForegroundWindow Lib "user32" () As Long

Private Sub Timer1_Timer()

Dim foreground_hwnd As Long
Dim txt As String
Dim length As Long
foreground_hwnd = GetForegroundWindow()
txt = Space$(1024)
length = GetWindowText(foreground_hwnd, txt, Len(txt))
txt = Left$(txt, length)
Label1.Caption = txt
End Sub



درون برنامه شما caption هر برنامه ای که فعال باشه نشون داده میشه.