منتديات جريت بلينز العربية Great Plains For Arab

منتديات جريت بلينز العربية Great Plains For Arab (http://www.gp4arab.com/forum/index.php)
-   منتدى أكواد فيجوال بيسك VBA (http://www.gp4arab.com/forum/forumdisplay.php?f=7)
-   -   أرجو المساعده في فهم عمل هالكود (http://www.gp4arab.com/forum/showthread.php?t=1913)

maram_rose 13-Dec-2013 10:02 PM

أرجو المساعده في فهم عمل هالكود
 
Public Class clsWMI
Private objOS As ManagementObjectSearcher
Private objCS As ManagementObjectSearcher
Private objMgmt As ManagementObject
Private m_strComputerName As String
Private m_strManufacturer As String
Private m_StrModel As String
Private m_strOSName As String
Private m_strOSVersion As String
Private m_strSystemType As String
Private m_strTPM As String
Private m_strWindowsDir As String


Public Sub New()

objOS = New ManagementObjectSearcher("SELECT * FROM Win32_OperatingSystem")
objCS = New ManagementObjectSearcher("SELECT * FROM Win32_ComputerSystem")
For Each objMgmt In objOS.Get


m_strOSName = objMgmt("name").ToString()
m_strOSVersion = objMgmt("version").ToString()
m_strComputerName = objMgmt("csname").ToString()
m_strWindowsDir = objMgmt("windowsdirectory").ToString()
Next

For Each objMgmt In objCS.Get
m_strManufacturer = objMgmt("manufacturer").ToString()
m_StrModel = objMgmt("model").ToString()
m_strSystemType = objMgmt("systemtype").ToString
m_strTPM = objMgmt("totalphysicalmemory").ToString()
Next
End Sub



في ايش يعمل هالكود ممكن شرح طريقة عمل هالكود ضروري ارجو المساعدة وخاصة object

maram_rose 14-Dec-2013 10:53 AM

معقوله مافي رد

Hafandi 20-Dec-2013 05:48 AM

هذا الكود لا يخص نظام الجريت بلاينز ، لذا لن تجد شرحه هنا .

وبالإجمال ، الكود يفتش عن مواصفات جهاز الكمبيوتر ونوع النظام ومعلومات عنه


جميع الأوقات بتوقيت GMT +3. الساعة الآن 12:54 AM.

Powered by vBulletin® Version 3.8.3

الموقع والمنتدى من تطوير » شركة المنذر للاستضافة والتصميم


الموقع لا يمثل أي جهة رسمية بل هو جهد شخصي يرمي الى تجميع القدرات في برنامج جريت بلينز