Admin
المدير العام
عدد الرسائل : 49
تاريخ التسجيل : 04/11/2007
 | موضوع: كيفية عمل مسج بوكس تظهر لمدة ثم تختفي  الأحد ديسمبر 09, 2007 3:01 pm | |
| Public Const NV_CLOSEMSGBOX As Long = &H5000&
Public Declare Function SetTimer& Lib "user32" (ByVal hWnd&, ByVal nIDEvent&, _
ByVal uElapse&, ByVal lpTimerFunc&)
Public Declare Function FindWindow& Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName$, ByVal lpWindowName$)
Public Declare Function LockWindowUpdate& Lib "user32" (ByVal hwndLock&)
Public Declare Function SetForegroundWindow& Lib "user32" (ByVal hWnd&)
Public Declare Function MessageBox& Lib "user32" Alias "MessageBoxA" _
(ByVal hWnd&, ByVal lpText$, ByVal lpCaption$, ByVal wType&)
Public Declare Function KillTimer& Lib "user32" (ByVal hWnd&, ByVal nIDEvent&)
Public Const API_FALSE As Long = 0&
Public Sub TimerProc(ByVal hWnd&, ByVal uMsg&, ByVal idEvent&, ByVal dwTime&)
KillTimer hWnd, idEvent
Dim hMessageBox&
'هنا نغير عنوان الرسالة
hMessageBox = FindWindow("#32770", "BADRMEDIA@HOTMAIL.COM")
If hMessageBox Then
Call SetForegroundWindow(hMessageBox)
SendKeys "{enter}"
End If
Call LockWindowUpdate(API_FALSE)
End Sub | |
|
eng_walidhassan
عضو نشط
عدد الرسائل : 63
الموقع : مصر
تاريخ التسجيل : 10/11/2007
| | موضوع: رد: كيفية عمل مسج بوكس تظهر لمدة ثم تختفي الإثنين ديسمبر 10, 2007 4:13 am | |
| شكرا يا بش مهندس عمرو بس للأسف انا مش عارف انفذ الكود | |
|
smsm_h
عضو جديد
عدد الرسائل : 2
تاريخ التسجيل : 22/11/2007
| | موضوع: رد: كيفية عمل مسج بوكس تظهر لمدة ثم تختفي الثلاثاء ديسمبر 11, 2007 10:57 am | |
| على انا عرفت اشغل الكود والف شكر | |
|
eng_mostafa
عضو نشط
عدد الرسائل : 70
تاريخ التسجيل : 28/01/2008
| | موضوع: رد: كيفية عمل مسج بوكس تظهر لمدة ثم تختفي الجمعة فبراير 08, 2008 7:47 pm | |
| على فكرة انا مش فاهم الكود
ممكن التوضيح وهذا الكود يكتب فين
وجزاكم الله خيرآ | |
|
