أساسا لتطبيق ال ActiveSkin
أى معلومات ؟
بحث جوجل أسفر على برنامج يمكنه تطبيق الActiveSkin على MsgBox و ComDlg أيضا.
أسم الأداة: Skin Boxer و هى قديمة و بلا كراك.
المهم: كيف يحدث هذا ؟..كيف يمكن الحصول على الhWnd لتلك الأدوات بشكل ما أو بأخر ؟
أساسا لتطبيق ال ActiveSkin
أى معلومات ؟
بحث جوجل أسفر على برنامج يمكنه تطبيق الActiveSkin على MsgBox و ComDlg أيضا.
أسم الأداة: Skin Boxer و هى قديمة و بلا كراك.
المهم: كيف يحدث هذا ؟..كيف يمكن الحصول على الhWnd لتلك الأدوات بشكل ما أو بأخر ؟
لا أفكار ؟
Option Explicit Private Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hWnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long
Private Function IsMsgBox(ByVal hWnd As Long) As Boolean Dim Class As String Const MaxLen As Long = 256 Const Target As String = "#32770" Class = String$(MaxLen, 0) If GetClassName(hWnd, Class, MaxLen) Then Class = Left$(Class, InStr(Class, vbNullChar) - 1) IsMsgBox = (StrComp(Class, Target, vbTextCompare) = 0) End If End Function
MsgBox IsMsgBox(133700)
:lol:
مكسل أضغط Alt+Shift :P
تم تعديل هذه المشاركة بواسطة msayed2004 في 17 أغسطس 2007 في 23:06
إقرأ معى:
----
المثقفون العرب .. المزورون العرب: تأبين محمود درويش نموذجا
ماذا خسر العالم بانحطاط المسلمين ؟!! للعلامه: أبو الحسن الندوى (كتاب هام لكل مسلم).
المنهجية ومقدمات في الطلب (لطلاب العلم الشرعى)
هذا الموضوع مغلق.