تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
طلب بسيط محتاج ملف DLL
#1
السلام عليكم واسعد الله ايامكم
اخوانى احتاج ملف الـــــــــ DLL.  
System.Management
ولكم جزيل الشكر
الرد
تم الشكر بواسطة:
#2
فقط بمشروعك أخي خالد قم بالتأشير عن الملف و ستجده بمجلد المشروع ال Debug
الرد
#3
(23-08-19, 02:38 AM)عبد العزيز البسكري كتب :
فقط بمشروعك أخي خالد قم بالتأشير عن الملف و ستجده بمجلد المشروع ال Debug
بليز اخى لم يفلح الامر معى فى ما اريد 
فلك جزيل الشكر ان ارسلته لى كملف للتحميل وبارك الله فيك
الرد
تم الشكر بواسطة: asemshahen5 , asemshahen5
#4
علي اصدار فيجول ستوديو 2010

اتبع الخطوات الاتية

استدعي المكتبة في اول الكلاس او اعلاة بعد بعد اتباع الخطوات الاتية

Imports System.Management

Public Class Form1

   
الرد
تم الشكر بواسطة: خالد كامل1 , asemshahen5 , mohamedahmed1
#5
(23-08-19, 03:50 AM)محمد اسماعيل كتب : علي اصدار فيجول ستوديو 2010

اتبع الخطوات الاتية

استدعي المكتبة في اول الكلاس او اعلاة بعد بعد اتباع الخطوات الاتية

Imports System.Management

Public Class Form1

يا اخى والله اتبعت تلك الخطوات ولكن لم يعمل الكود وموجود بالمكتبه System.Management
فارجو ان كان هذا الملف موجود عند حضرتك عمله على المنتدى
الرد
#6
(23-08-19, 03:57 AM)خالد كامل1 كتب :
(23-08-19, 03:50 AM)محمد اسماعيل كتب : علي اصدار فيجول ستوديو 2010

اتبع الخطوات الاتية

استدعي المكتبة في اول الكلاس او اعلاة بعد بعد اتباع الخطوات الاتية

Imports System.Management

Public Class Form1

يا اخى والله اتبعت تلك الخطوات ولكن لم يعمل الكود وموجود بالمكتبه System.Management
فارجو ان كان هذا الملف موجود عند حضرتك عمله على المنتدى

ولا يهمك مسار المكتبة بالمكتبة بالمرفقات

   

المكتبة بالمرفقات والمسار بالصورة لتضع فية المكتبة اوتضيفها ADD


الملفات المرفقة
.rar   System.Management.rar (الحجم : 101.09 ك ب / التحميلات : 6)
الرد
تم الشكر بواسطة: خالد كامل1 , asemshahen5
#7
هل هذا الكود به خطأ فىجلب سريال نمبر الهارد
كود :
Imports System.Management

Public Class Class1
   Public Shared Function SECU() As String
       Dim VAL As String = ""

       Dim MA As New ManagementObjectSearcher("select * from Win32_DiskDRIVE")
       Try
           For Each MO As ManagementObject In MA.Get
               VAL = MO("Serialnumber").ToString()
               Return VAL


           Next
       Catch ex As ManagementException
           Return ""
       End Try


       Return VAL
   End Function

End Class
الرد
تم الشكر بواسطة: asemshahen5
#8
(23-08-19, 04:25 AM)خالد كامل1 كتب : هل هذا الكود به خطأ فىجلب سريال نمبر الهارد
كود :
Imports System.Management

Public Class Class1
   Public Shared Function SECU() As String
       Dim VAL As String = ""

       Dim MA As New ManagementObjectSearcher("select * from Win32_DiskDRIVE")
       Try
           For Each MO As ManagementObject In MA.Get
               VAL = MO("Serialnumber").ToString()
               Return VAL


           Next
       Catch ex As ManagementException
           Return ""
       End Try


       Return VAL
   End Function

End Class

الهارد مش مضمون وسعات مبيظهرش ومش من الصح استعمالة للنصيحة فقط دة الماذر بورد افضل ومبتتغيرش ذي الهارد


كود :
Dim MOS As ManagementObjectSearcher = New ManagementObjectSearcher("Select * From Win32_BaseBoard")
       Dim MOTHERBOARD As String
       For Each getserial As ManagementObject In MOS.[Get]()
           MOTHERBOARD = getserial("SerialNumber").ToString()
       Next

       MsgBox(MOTHERBOARD)
الرد
تم الشكر بواسطة: asemshahen5
#9
(23-08-19, 04:44 AM)محمد اسماعيل كتب :
(23-08-19, 04:25 AM)خالد كامل1 كتب : هل هذا الكود به خطأ فىجلب سريال نمبر الهارد
كود :
Imports System.Management

Public Class Class1
   Public Shared Function SECU() As String
       Dim VAL As String = ""

       Dim MA As New ManagementObjectSearcher("select * from Win32_DiskDRIVE")
       Try
           For Each MO As ManagementObject In MA.Get
               VAL = MO("Serialnumber").ToString()
               Return VAL


           Next
       Catch ex As ManagementException
           Return ""
       End Try


       Return VAL
   End Function

End Class

الهارد مش مضمون وسعات مبيظهرش ومش من الصح استعمالة للنصيحة فقط دة الماذر بورد افضل ومبتتغيرش ذي الهارد


كود :
Dim MOS As ManagementObjectSearcher = New ManagementObjectSearcher("Select * From Win32_BaseBoard")
       Dim MOTHERBOARD As String
       For Each getserial As ManagementObject In MOS.[Get]()
           MOTHERBOARD = getserial("SerialNumber").ToString()
       Next

       MsgBox(MOTHERBOARD)
هذا الكود يوضع بالكلاس ؟
الرد
تم الشكر بواسطة: محمد اسماعيل , asemshahen5
#10
هذا الكود يوضع بالكلاس ؟

نفس طريقة الكود الخاص بيك
الرد
تم الشكر بواسطة: خالد كامل1 , asemshahen5


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Photo [VB.NET] السلام عليكم اخواني واخواتي سوال بسيط في الفيجوال بيسك 2010 معا قاعدت بيانات اكسس 201 hosamloveme888@yahoo.com 1 66 09-12-19, 02:32 AM
آخر رد: hosamloveme888@yahoo.com
  محتاج كود او نموذج للحفظ من التاتا جريد فيو مثال بسيط في ملف مرفق بسام محمدغانم 0 61 08-12-19, 02:17 AM
آخر رد: بسام محمدغانم
  محتاج كود اضافه bakriano30@yahoo.com 5 114 05-12-19, 07:19 PM
آخر رد: 3booody
Heart [VB.NET] اصلاح خطأ بسيط في الضغط على زر لوحة المفاتيح farfour 1 93 27-11-19, 12:04 AM
آخر رد: محمد كريّم
  [VB.NET] محتاج مساعدتكم في كود بسيط اليوم السابع 4 125 23-11-19, 10:14 AM
آخر رد: حريف برمجة
Lightbulb [VB.NET] محتاج كود من العباقره moha8080 1 112 21-11-19, 02:42 AM
آخر رد: boudyonline
  محتاج مساعدة في التقارير rojbany 4 145 15-11-19, 12:17 AM
آخر رد: rojbany
Exclamation محتاج كود نسخ قيم العمود sofiane-phy 3 135 14-11-19, 10:18 AM
آخر رد: sofiane-phy
  [VB.NET] سؤال بسيط جداا اليوم السابع 1 102 12-11-19, 11:41 AM
آخر رد: اليوم السابع
  محتاج تعديل على قاعدة البيانات أكسس sofiane-phy 0 68 12-11-19, 10:21 AM
آخر رد: sofiane-phy

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


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