كود الموديل
Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, _
ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Public Const VK_LWIN = &H5B
Public Const KEYEVENTF_KEYUP = &H2
كود الكوماند
Call keybd_event(VK_LWIN, 0, 0, 0)
Call keybd_event(&H4D, 0, 0, 0)
Call keybd_event(VK_LWIN, 0, KEYEVENTF_KEYUP, 0)
و بالتوفيق
من احب شيء ابدع وابتدع فيه
يجوز لكن الكود الصحيح :
Option Explicit Private Const BSF_POSTMESSAGE = &H10 Private Const BSM_APPLICATIONS = &H8 Private Const SC_MINIMIZE = &HF020 Private Const WM_SYSCOMMAND = &H112 Private Declare Function BroadcastSystemMessage Lib "user32" (ByVal dw As Long, pdw As Long, ByVal un As Long, ByVal wParam As Long, ByVal lParam As Long) As Long Private Sub Command1_Click() 'KPD-Team 1999 'URL: http://allapi.mentalis.org/ 'Broadcast a system message BroadcastSystemMessage BSF_POSTMESSAGE, BSM_APPLICATIONS, WM_SYSCOMMAND, SC_MINIMIZE, ByVal 0& End Sub
و شاكرين على الأضافة :)
تم تعديل هذه المشاركة بواسطة msayed2004 في 21 يوليو 2007 في 13:50
إقرأ معى:
----
المثقفون العرب .. المزورون العرب: تأبين محمود درويش نموذجا
ماذا خسر العالم بانحطاط المسلمين ؟!! للعلامه: أبو الحسن الندوى (كتاب هام لكل مسلم).
المنهجية ومقدمات في الطلب (لطلاب العلم الشرعى)
جرب الكود وشوف
انت جربة الكود؟
ومشكور
عندي استفسار
عن طريقة عرض الاكواد بشكل صحيح في المنتدىاي في مربع حوار
من احب شيء ابدع وابتدع فيه
أنا لم أجربه , لكن فكرته قد تكون صحيحة , بالنسبة للكود اللى أنا حاطه فهو اللى المفروض الصح , يعنى أنت لما بتضغط Win Key + M فالـ Explorer بيبعت رسالة WM_SYSCOMMAND للنوافذ فبالكود ده أحنا بنعمل كده على طول بنفسنا.
بالنسبة لكتابة الكود بالشكل الصحيح أستعمل الـ Code Tag , راجع الـ BB Code
إقرأ معى:
----
المثقفون العرب .. المزورون العرب: تأبين محمود درويش نموذجا
ماذا خسر العالم بانحطاط المسلمين ؟!! للعلامه: أبو الحسن الندوى (كتاب هام لكل مسلم).
المنهجية ومقدمات في الطلب (لطلاب العلم الشرعى)
هذا الموضوع مغلق.