تابع GetClassNameA و GetWindowTextA از توابع API

User32.dll  64 Bit 

نحوه ی اظهار توابع عنوان این مطلب  در ویندوز 32 و 64 بیت یا در Vb6 یا Vb7 فرق میکند که در اینترنت جستجو کنید تابع صحیح برای موارد بالا وجود دارد.

تابع زیر نام یا کلاس را در بافر ایجاد و برمی گرداند 

برای گرفتن کلاس یا نام (  پنجره  )بکار برده میشود فرضا گرفتن  تکست  نوار عنوان پنجره ی اکسس جایی که اسم دیتابیس و نام اپلیکشن و حتی مسیر نمایان میشود

(Public Function GetClassName(h as LongPtr

Dim Buff As String*256

Dim BuffLen As Long 

((Buff=String(256,Chr(0

(BuffLen=getclassnamea(h,Buff,BuffLen

If BuffLen>0 Then 

(GetClassName=Left$(Buff,BuffLen

End If

Set Buff=Nothing 

End Function 

(Public Function GetWindowText(h as LongPtr

Dim Buff As String*256

Dim BuffLen As Long 

((Buff=String(256,Chr(0

(BuffLen=getwindowtexta(h,Buff,BuffLen

If BuffLen>0 Then 

(GetWindowText=Left$(Buff,BuffLen

End If 

Set Buff=Nothing

End Function