تغییر در این سورس (برگرداندن نام پنجره)

[xrezax]

دوستان راهی هست کاری که این سورس انجام میده (برگرداندن نام پنجره) رو با یه سورس دیگه انجام داد ؟؟
خط هایی که با قرمز نشون دادم نمی خوام استفاده بشه ازشون توی کد نویسی


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

Function TypeWindow()
Dim handle As Long
Dim textlen As Long
Dim WindowText As String

handle = GetForegroundWindow
textlen = GetWindowTextLength(handle) + 1
WindowText = Space(textlen)
svar = GetWindowText(handle, WindowText, textlen)
WindowText = Left(WindowText, Len(WindowText) - 1)
wintxt = WindowText
Text1.Text = WindowText
End Function

[just4froum]

کدوم خط ها رو نمی خوای استفاده بشن ؟

خطی که قرمز نیست ؟

شمارشو بگو.

[محسن واژدی]

سلام علیکم
بنده هم زیاد متوجه نشدم، اگر منظورتان بدست آوردن نام پنجره دیگر است میتوانید با دستوراتی مانند FindWindow هندل فرم را بدست آورده و با قرار دادن آن در GetWindowText عنوان پنجره را بدست بیارین

[xrezax]

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

هواسم نبود معذرت می خوام
از این خط ها.

می خوام اسم پنجره توی یک تکست نشون داده بشه. کاری که این کد انجام بده رو برام انجام بده

[SlowCode]

یعنی شما میخوایین بدون توابع API این کا رو بکنید؟ تا حالا ندیدم کسی بدون API از این کارا بکنه.

[xrezax]

نه با API باشه. اما از توابع دیگه بغیر از اینا

[محسن واژدی]

تا آنجایی که بنده اطلاع داذم از GetWindowText برای گرفتن عنوان پنجره استفاده میشود

[xrezax]

راهی نداره یه جور دیگه بنویسمش؟؟؟؟؟

[محسن واژدی]

خب چرا میخواهید از دستور دیگری باشد؟!
برای گرفتن عنوان پنجره فکر نمیکنم بجز GetWindowText دستور دیگری وجود داشته باشد اما برای سایر دستورات مثلا گرفتن هندل چرا توابع مختلفی وجود دارد

[xrezax]

خب اگه ممکنه یه مثالی چیزی برام بزارین ممنون میشم

[Veteran]

احتمالا انتی ویروس به این کد گیر میده درسته ؟
که شما میخواید با تغییر ساختار اون رو از دید انتی ویروس مخفی کنید ؟

[xrezax]

آره. آنتی ویروس برنامه رو پاک می کنه. (اینم بگم ویروس نیست دوستان)

[Veteran]

این کدی که شما گذاشتین من تست کردم مشکلی نداشت
انتی ویروس نشناختش
احتمال میدم از ی کد دیگه ای هست
اگر مقدور هست سورس رو بزارین تا بررسی کنیم.
این نتیجه اسکن
http://virusscan.jotti.org/en/scanresult/a60f2cbbfa70392d689e22fdb4068593c517750a

[xrezax]

تنها آره نمی گیره. انتی ویروسم آویراست.
اگه میشه سورسو تغییر بدین واسم ممنون میشم. شاید حل بشه

[xrezax]

راهی هست که فقط با این تابع بشه کار این سورسو انجام داد؟؟؟؟

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

[Veteran]

تنها آره نمی گیره. انتی ویروسم آویراست.
اگه میشه سورسو تغییر بدین واسم ممنون میشم. شاید حل بشه
وقتی تنها مشکلی نداره پس مشکل از ی جای دیگه هست ( طبق اطلاعات خودم اینو میگم)

راهی هست که فقط با این تابع بشه کار این سورسو انجام داد؟؟؟؟
فکر نکنم... نمیشه !!!

[setroyd]

برای اینکه انتی ویروس گیر نده بحث شده قبلا یه سرچ بزن شاید پیدا کنی به دردت میخوره .