تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] أظهار رسالة عند ادخال USB
#1
السلام عليكم
اريد لو تتكرمو كود اظهار رسالة عند ادخال الفلاش ميموري الى الحاسب عن طريق USB
ومشكورين على جهودكم
الرد }}}
تم الشكر بواسطة:
#2
السلام عليكم

ارجو ان يكون طلبك في المرفقات

وهو للامانة منقول من موقع Planet-Source-Code.com

يعطيك العافية


الملفات المرفقة
.zip   Auto_detec2045261292007.zip (الحجم : 21.8 ك ب / التحميلات : 94)
(( يَا أَيَّتُهَا النَّفْسُ الْمُطْمَئِنَّةُ ارْجِعِي إِلَى رَبِّكِ رَاضِيَةً مَرْضِيَّةً فَادْخُلِي فِي عِبَادِي وَادْخُلِي جَنَّتِي ))

الرد }}}
تم الشكر بواسطة: m-kaylani
#3
-
منقول

الاستشعار بمجرد وصل أو فصل أجهزة تخزين USB باستخدام الحدث WndProc الخاص بالنظام (ويمكن الإستفادة منه في أمور كثيرة)

mdlWndProc.bas
كود :
Option Explicit

Private Const WM_DEVICECHANGE As Integer = &H219

' WndProc declares & functions ============================================
Private Declare Function SetWindowLong Lib "user32.dll" Alias "SetWindowLongA" (ByVal HWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As

Long
Private Declare Function CallWindowProc Lib "user32.dll" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal HWnd As Long, ByVal Msg As Long,

ByVal WParam As Long, ByVal LParam As Long) As Long
Private Declare Function GetProp Lib "user32.dll" Alias "GetPropA" (ByVal HWnd As Long, ByVal lpString As String) As Long
Private Declare Function SetProp Lib "user32.dll" Alias "SetPropA" (ByVal HWnd As Long, ByVal lpString As String, ByVal hData As Long) As Long
Private Declare Function RemoveProp Lib "user32.dll" Alias "RemovePropA" (ByVal HWnd As Long, ByVal lpString As String) As Long
Private Const GWL_WNDPROC = -4
Private Function WndProc(ByVal HWnd As Long, ByVal Msg As Long, ByVal WParam As Long, ByVal LParam As Long) As Long
    Select Case Msg
  
        Case WM_DEVICECHANGE ' Device changed تغيير الأجهزة
            Call DeviceChanged(WParam, LParam)
            
    End Select
    WndProc = CallWindowProc(GetProp(HWnd, "PrevWndProc"), HWnd, Msg, WParam, LParam)
End Function
Public Sub WndProcHook(ByVal HWnd As Long)
    On Error Resume Next
    SetProp HWnd, "PrevWndProc", SetWindowLong(HWnd, GWL_WNDPROC, AddressOf WndProc)
End Sub
Public Sub WndProcUnHook(ByVal HWnd As Long)
    On Error Resume Next
    SetWindowLong HWnd, GWL_WNDPROC, GetProp(HWnd, "PrevWndProc")
    RemoveProp HWnd, "PrevWndProc"
End Sub


الملفات المرفقة
.zip   USB Detect.zip (الحجم : 2.67 ك ب / التحميلات : 76)
الرد }}}


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  رسالة خطأ تظهر لي ما الحل؟ Alhootti1 3 285 28-08-23, 02:11 PM
آخر رد: ahmedabdelaliem
Question [vb6.0] اريد إذا كان قيمة المحول صفر يظهر لي رسالة هل يمكن ذلك ؟ Microformt 0 371 20-03-23, 08:33 PM
آخر رد: Microformt
  [vb6.0] ادخال الاعدادات من داخل نافذة البرنامج وليس من محرر الاكواد وادي العوضي 4 940 03-07-22, 02:00 PM
آخر رد: وادي العوضي
  [vb6.0] ادخال الاسم في الكومبو بوكس ويحفظ في الكومبو بوكس وادي العوضي 3 867 15-06-22, 01:56 AM
آخر رد: ahmedabdelaliem
  [vb6.0] طلب : رسالة أن العنصر مكرر بالليست بوكس ولا يمكن إضافته مرة أخرى hamada salah90 2 1,264 05-12-21, 12:04 AM
آخر رد: hamada salah90
  تعديل كود أظهار بيانات الحضور والغياب مصمم هاوي 3 1,504 09-05-21, 01:06 AM
آخر رد: مصمم هاوي
  رسالة خظأ عند تشغيل الفورم ahmed201 5 2,006 12-01-21, 07:31 PM
آخر رد: ahmed201
  رسالة خطأ في كود البحث في قاعدة البيانات اكسس ahmed201 1 1,073 04-01-21, 06:52 PM
آخر رد: aboezzat84
  ماذا يعني ظهور رسالة ( st6unst.exe) عند عمل setup للبرنامج؟ gonm64 0 1,148 11-08-20, 02:43 PM
آخر رد: gonm64
Question [vb6.0] كيف انشي زر امر يتأكد انه يوجد برنامج Wordعلى الحاسب وإذا لم موجود يظهر رسالة لمستخدم Microformt 2 1,559 01-08-20, 07:23 PM
آخر رد: Microformt

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم