آموزش گرفتن اطلاعات سیستم و سیستم عامل با 3 روش ( ویژوال بیسیک 6 )

[AtAgAmEr 2689]

سلام

 

کفرم در اومد / نیم ساعت داشتم تایپ میکرم ؛ خود ب خود صفحه Refresh شد هرچی نوشته بودم رفتن

 

ببخشید خسته شدم از تایپ کردن / فقط عکس و برنامه اجرایی و سورس کد ها رو میزام /

 

سوالی بود بپرسین ازم

 

فقط بگم که این 3 روش اینها هستن

 

1- استفاده از sysinfo.ocx مایکروسافت به این روش

 

Public Type OSVERSIONINFO
   dwOSVersionInfoSize As Long
   dwMajorVersion As Long
   dwMinorVersion As Long
   dwBuildNumber As Long
   dwPlatformId As Long
   szCSDVersion As String * 128

End Type

Public Declare Function GetVersionExA Lib "kernel32" _
               (lpVersionInformation As OSVERSIONINFO) As Integer
 

کد های بالا برا معرفی هستن

 

 Dim osinfo As OSVERSIONINFO
     
       Dim retvalue As Integer

      osinfo.dwOSVersionInfoSize = 148 'Len(osinfo)
       osinfo.szCSDVersion = Space$(128)
       retvalue = GetVersionExA(osinfo)

 

getVersion = "BuildNumber : " & osinfo.dwBuildNumber & "   Ver : " & osinfo.dwMajorVersion & "." & osinfo.dwMinorVersion & "  " & _
 osinfo.szCSDVersion
 

و در خط بالا هم به ترتیب BiuldNumber - عدد مربوطه به رقم صحیح نسخه ویندوز ؛ عدد مربوط به اعشار نسخه ویندوز و در آخر هم نوع سیستم عامل رو بر می گردونه

مثل این :

 

 

البته اینم بگم که هر سیستم عاملی برا خودش اعداد مخصوصی داره که در زیر میتونین ببینین

 

 

اینم برا مایکروسافت هستش که جدول بالا رو هم خودشون دادن ( چتی که داشتم باهاشون )

 

مشکلی که احتمالاً خواهیم داشت در win8 هستش و اونم برا sysinfo.ocx که نمیشناسه ( لااقل بر روی 3 تا سیستم که من انجام دادم )

 

نمونه ای از خروجی برنامه

 

 

 

 

دریافت برنامه اجرایی

 

 

دریافت سورس

ویرایش شده مارچ 26, 2013 توسط atagamer

[Mahyar Curious 2904]

عطا جان خسته نباشید , ممنون از سورس هایی که قرار میدید .

این پست های جدیدتون شاید الان ازش استقبال نشه اما یه بنده خدایی توی گوگل میزنه راهنمایی میشه .

کار تون را حتما ادامه دهید . و سعی کنید کیورد هم واسه پست هاتون بزارید .

متشکر و موفق باشید .

[AtAgAmEr 2689]

عطا جان خسته نباشید , ممنون از سورس هایی که قرار میدید .

این پست های جدیدتون شاید الان ازش استقبال نشه اما یه بنده خدایی توی گوگل میزنه راهنمایی میشه .

کار تون را حتما ادامه دهید . و سعی کنید کیورد هم واسه پست هاتون بزارید .

متشکر و موفق باشید .

لطف دارین / ممنون/

 

خیلی وقتها شده خودم دنبال چند خط کد بودم / انشاا.. که برا مخاطبش کارا میشه