منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

(27-06-22, 12:57 PM)mohamedallams كتب : [ -> ]

السلام عليكم

سؤالي عن تحديث الفلاش ميموري عن طريق الفورم

او بمعني اصح 

عند الضغط علي زر

يقوم البرنامج بعمل تحديث لكل الفلاش ميموري الموجوده بالجهاز وكأني ازلتها واعدت وضعها بالجهاز

(يقوم المستخدم بأستخدام البرنامج عن طريق AnyDesk والجهاز غير موجود وموصول بالجهاز فلاش ميموري ويحتاج العميل الي اعاده تشغيله بدلا من عمل ريستارت للجهاز لان هذا يحتاج من المضيف اعاده تشغيل AnyDesK مره اخري )

و عليكم السلام و رحمة الله و بركاته
يمكنك الاستفادة من الموضوع التالي
https://docs.microsoft.com/en-us/answers...vbnet.html

(27-06-22, 09:43 PM)asmarsou كتب : [ -> ]

(27-06-22, 12:57 PM)mohamedallams كتب : [ -> ]

السلام عليكم

سؤالي عن تحديث الفلاش ميموري عن طريق الفورم

او بمعني اصح 

عند الضغط علي زر

يقوم البرنامج بعمل تحديث لكل الفلاش ميموري الموجوده بالجهاز وكأني ازلتها واعدت وضعها بالجهاز

(يقوم المستخدم بأستخدام البرنامج عن طريق AnyDesk والجهاز غير موجود وموصول بالجهاز فلاش ميموري ويحتاج العميل الي اعاده تشغيله بدلا من عمل ريستارت للجهاز لان هذا يحتاج من المضيف اعاده تشغيل AnyDesK مره اخري )

و عليكم السلام و رحمة الله و بركاته
يمكنك الاستفادة من الموضوع التالي
https://docs.microsoft.com/en-us/answers...vbnet.html

أشكرك كثيراً ولاكن مع الاسف لم يقم بالمطلوب

استخدم الكود التالي فهو يقوم باضهار رسالة كل مرة يتم ادخال او اخراج فلاش 

ملاحظة : الكود يعمل مع اصدار فريم وورك 4 او اعلى

(08-07-22, 09:44 AM)معاند الحظ كتب : [ -> ]استخدم الكود التالي فهو يقوم باضهار رسالة كل مرة يتم ادخال او اخراج فلاش 

كود :

Imports System.Management
Imports Microsoft.Win32

Public Class Form1
    Dim WithEvents pluggedInWatcher As ManagementEventWatcher
    Dim WithEvents pluggedOutWatcher As ManagementEventWatcher
    Dim pluggedInQuery As WqlEventQuery
    Dim pluggedOutQuery As WqlEventQuery

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Try
            pluggedInQuery = New WqlEventQuery
            pluggedInQuery.QueryString = "SELECT * FROM Win32_VolumeChangeEvent WHERE EventType = 2"
            pluggedInWatcher = New ManagementEventWatcher(pluggedInQuery)
            pluggedInWatcher.Start()

            pluggedOutQuery = New WqlEventQuery
            pluggedOutQuery.QueryString = "SELECT * FROM Win32_VolumeChangeEvent WHERE EventType = 3"
            pluggedOutWatcher = New ManagementEventWatcher(pluggedOutQuery)
            pluggedOutWatcher.Start()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

    Private Sub pluggedInWatcher_EventArrived(sender As Object, e As EventArrivedEventArgs) Handles pluggedInWatcher.EventArrived
        MsgBox("Plugged In")
    End Sub

    Private Sub pluggedOutWatcher_EventArrived(sender As Object, e As EventArrivedEventArgs) Handles pluggedOutWatcher.EventArrived
        MsgBox("Plugged Out")
    End Sub
End Class

ملاحظة : الكود يعمل مع اصدار فريم وورك 4 او اعلى

لم يقم بالغرض