این مال VB6 هست همش هم با توابع api هست تغییر خاصی نمی خواد تا توی .net کار کنه
کد:
Option Explicit
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 GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hWnd As Long) As Long
Private Declare Function GetForegroundWindow Lib "user32" () As Long
Private Sub Timer1_Timer()
Dim ActiveWindowText As String
Dim ActiveWindowHwnd As Long
'get the current foreground window
' returns the current active window from all windows opened
' GetActiveWindow is limited to the current application
ActiveWindowHwnd = GetForegroundWindow()
'create a buffer string the size of the window text (caption)
ActiveWindowText = String(GetWindowTextLength(ActiveWindowHwnd) + 1, Chr$(0))
'retrieve the window text
GetWindowText ActiveWindowHwnd, ActiveWindowText, Len(ActiveWindowText)
'remove any trailing null characters
ActiveWindowText = Left$(ActiveWindowText, InStr(ActiveWindowText, Chr$(0)) - 1)
'set a label caption to the current actve window
Label1.Caption = ActiveWindowText
End Sub
تایمر و لیبل روی فورمت باشه
به همه عشق بورز، به معدودی اعتماد کن و در حق کسی بدی نکن.
ویلیام شکسپیر
نباید ایمان به انسانیت را از دست دهید. انسانیت یک اقیانوس است؛ اگر قطرات اندکی از اقیانوس کثیف است، اقیانوس کثیف نمی‌شود.
مهاتما گاندی
يَا أَيُّهَا الَّذِينَ آمَنُواْ اسْتَعِينُواْ بِالصَّبْرِ وَالصَّلاَةِ إِنَّ اللّهَ مَعَ الصَّابِرِينَ
صفحه اصلی
انجمن
جستجو
فهرست اعضا
افزونه های فایرفاکس
» 
تشکر شده توسط :
