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

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

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

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


الملفات المرفقة
.zip   Auto_detec2045261292007.zip (الحجم : 21.8 ك ب / التحميلات : 46)
شـــايـفـــك

الرد }}}}
تم الشكر بواسطة: 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 ك ب / التحميلات : 32)
الرد }}}}


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Photo [سؤال] رسالة خطأ عند فتح مشروف vb 6 accmohamed63241 2 61 22-11-16, 12:18 PM
آخر رد: accmohamed63241
  مشكلة عندتعديل حقل التاريخ بحيث اذا ترك فارغا تظهر رسالة (نوع غير متطابق) allobaed 3 87 10-11-16, 11:58 PM
آخر رد: Ahmed_Mansoor
  نسخ وعدم اظهار رسالة تأكيد استبدال فاضل الحمود 6 173 01-07-16, 09:34 PM
آخر رد: فاضل الحمود
  اضافة مثال عن مشكلة رسالة الخطأ في قاعدة البيانات haniblack 7 221 24-05-16, 08:59 AM
آخر رد: haniblack
  رسالة خطأ بالبرنامج مربوط بقاعدة بيانات بأداة ADODC haniblack 3 184 20-05-16, 06:43 PM
آخر رد: Abdalhadi mohammed
  [vb6.0] فتح موقع عن طريق ادخال text poor prince 3 219 04-04-16, 01:20 AM
آخر رد: poor prince
Question [vb6.0] كيف اجعل عند اضغط على خيارات ادادة TabStrip1 يظهر رسالة لمستخدم ؟؟ Microformt 2 180 18-03-16, 12:28 PM
آخر رد: Microformt
  رسالة تذكير عند تاريخ معين alfakeehy 7 356 28-12-15, 04:14 PM
آخر رد: alfakeehy
Thumbs Down ظهور رسالة خطأ MSADODC.OCX مصمم هاوي 2 401 05-07-15, 01:07 AM
آخر رد: مصمم هاوي
Question [سؤال] ادخال صورة في تقرير اكسس بدون حفظها AhmedQH 1 780 09-06-15, 08:59 PM
آخر رد: KamelArab

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


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