[VB.NET] การตรวจสอบเวอร์ชั่นของ MS Office และ .Net Framework

thongkorn

บทความชิ้นนี้จะเป็นการตรวจสอบเวอร์ชั่นของ Microsoft Office และเวอร์ชั่นของ .NET Framework โดยการเช็คค่าต่างๆผ่านทางรีจีสทรี้ (Registry) ซึ่งแม้ว่าโค้ดที่แอดมินนำมาเสนอนี้ จะเป็นการใช้ Class ก็ตามที ก็เลยอาจจะดูเหมือนว่าล้ำๆไปสักหน่อย แต่ขอให้ทุกๆท่านได้โปรดพิจารณา กระบวนการคิด ว่าแท้ที่จริงแล้วการหาคำตอบออกมา มันเป็น ระดับขั้นพื้นฐาน เท่านั้นเองขอรับกระผม เพราะเป็นแยกแยะ (Parser) ข้อมูลที่เราต้องการออกมาจากชุด String และยังมีการปฏิบัติการที่ทำซ้ำๆ อย่าง MS Office ก็มีทั้ง Word Excel หรือหากเป็น Framework ก็มีหลายเวอร์ชั่น ... อนึ่ง!!! แอดมินไม่สามารถจะอธิบายรายละเอียดได้ทั้งหมด หากท่านอยากทำความเข้าใจให้ดียิ่งขึ้น แอดมินแนะนำให้ไปเปิดคู่มือ หรือ MSDN เพืื่อดูความหมายและรายละเอียดด้วยตัวเองครับ ...

ตัวอย่างของ MS Access ... Computer\HKEY_LOCAL_MACHINE\SOFTWARE\Classes\Access.Application\CurVer

มาดูโค้ดกันเถอะ ... ส่วนของ Class

1. ' / --------------------------------------------------------------------------------
   
2. ' / Developer : Mr.Surapon Yodsanga (Thongkorn Tubtimkrob)
   
3. ' / eMail : thongkorn@hotmail.com
   
4. ' / URL: http://www.g2gnet.com (Khon Kaen - Thailand)
   
5. ' / Facebook: https://www.facebook.com/g2gnet (For Thailand)
   
6. ' / Facebook: https://www.facebook.com/commonindy (Worldwide)
   
7. ' / Purpose: Get information about MS Office & .Net Framework Version.
   
8. ' / Microsoft Visual Basic .NET (2010)
   
9. ' /
   
10. ' / This is open source code under @CopyLeft by Thongkorn Tubtimkrob.
    
11. ' / You can modify and/or distribute without to inform the developer.
    
12. ' / --------------------------------------------------------------------------------
    
13. Imports System.IO
    
14. Imports System.Text.RegularExpressions
    
15. Imports Microsoft.Win32
    
16. 
    
17. Public Class clsMicrosoftNet
    
18. 
    
19. #Region "'// - MS Office Version - "
    
20.     '// MS Office Applications
    
21.     Enum MSOfficeApp
    
22.         Access
    
23.         Excel
    
24.         Outlook
    
25.         PowerPoint
    
26.         Word
    
27.     End Enum
    
28. 
    
29.     '// MS Office versions   
    
30.     Enum Version
    
31.         Version95 = 7
    
32.         Version97 = 8
    
33.         Version2000 = 9
    
34.         Version2002 = 10
    
35.         Version2003 = 11
    
36.         Version2007 = 12
    
37.         Version2010 = 14
    
38.         Version2013 = 15
    
39.         Version2016 = 16
    
40.     End Enum
    
41. 
    
42.     '// ALL OFFICE VERSIONS
    
43.     Public Shared ReadOnly Property AllOfficeVersions() As List(Of String)
    
44.         Get
    
45.             Dim arrOffice As New List(Of String)
    
46.             '// Loop MS Office.
    
47.             For Each s As String In [Enum].GetNames(GetType(MSOfficeApp))
    
48.                 arrOffice.Add(s.Replace("Application", "") + " = " + GetVersionsString(CType([Enum].Parse(GetType(MSOfficeApp), s), MSOfficeApp)))
    
49.             Next
    
50.             Return arrOffice
    
51.         End Get
    
52.     End Property
    
53. 
    
54.     '// GET VERSIONS STRING
    
55.     Public Shared Function GetVersionsString(ByVal app As MSOfficeApp) As String
    
56.         Try
    
57.             Dim strProgID As String = [Enum].GetName(GetType(MSOfficeApp), app)
    
58.             '// RegEdit ... Get version of MS Office, e.g. Access.Application
    
59.             '// Get value from ENUM e.g. Access, then take the word ".Application" to the end.
    
60.             strProgID = strProgID & "." & "Application"
    
61.             Dim regKey As RegistryKey
    
62.             '// REGEDIT Read --> "HKLM\Software\Classes" & "Access.Application" & "\CurVer"
    
63.             regKey = Registry.LocalMachine.OpenSubKey("Software\Classes" & strProgID & "\CurVer", False)
    
64.             If regKey Is Nothing Then Return "No version detected."
    
65.             Dim strV As String = regKey.GetValue("", Nothing, RegistryValueOptions.None).ToString
    
66.             regKey.Close()
    
67.             strV = strV.Replace(strProgID, "").Replace(".", "")
    
68.             Return [Enum].GetName(GetType(Version), CInt(strV))
    
69.         Catch ex As Exception
    
70.             Return String.Empty
    
71.         End Try
    
72.     End Function
    
73. 
    
74. #End Region '"// - MS Office Version - "
    
75. 
    
76. #Region "'// - Framework - "
    
77.     Private Const FRAMEWORKPATH As String = "\Microsoft.NET\Framework"
    
78.     Private Const WINDIR As String = "windir"
    
79.     Private Const SYSROOT As String = "SystemRoot"
    
80. 
    
81.     Public Shared ReadOnly Property ListFrameworkVersions() As List(Of String)
    
82.         Get
    
83.             Dim arrVersions As New List(Of String)
    
84.             Dim strVersion As String = "Unknown"
    
85.             '// Loop Framework all versions.
    
86.             For Each strFramework As String In Directory.GetDirectories(NetFrameworkInstallationPath, "v*")
    
87.                 strVersion = ExtractVersion(strFramework)
    
88.                 If PatternIsVersion(strVersion) Then
    
89.                     arrVersions.Add(strVersion)
    
90.                 End If
    
91.             Next
    
92. 
    
93.             Return arrVersions
    
94.         End Get
    
95.     End Property
    
96. 
    
97.     '// Extract only version At the end of the data
    
98.     Private Shared Function ExtractVersion(ByVal pDirectory As String) As String
    
99.         '// e.g. --> "C:\Windows\Microsoft.NET\Framework\v1.0.3705"
    
100.         Dim intStartIndex As Integer = pDirectory.LastIndexOf("") + 2
     
101.         '// Return --> "1.0.3705"
     
102.         Return pDirectory.Substring(intStartIndex, pDirectory.Length - intStartIndex)
     
103.     End Function
     
104. 
     
105.     '// Pattern
     
106.     Private Shared Function PatternIsVersion(ByVal pVersion As String) As Boolean
     
107.         ' / Using Regular Expressions, Formatting, or Grouping To find the message as we want.
     
108.         ' / Remember, Imports System.Text.RegularExpressions
     
109.         ' / See more ... http://www.rexegg.com/regex-quickstart.html
     
110.         Return New Regex("[0-9](.[0-9]){0,3}").IsMatch(pVersion)
     
111.     End Function
     
112. 
     
113.     '// .Net Framework Path
     
114.     Public Shared ReadOnly Property NetFrameworkInstallationPath() As String
     
115.         Get
     
116.             Return WindowsPath + FRAMEWORKPATH
     
117.         End Get
     
118.     End Property
     
119. 
     
120.     '// Windows Path
     
121.     Public Shared ReadOnly Property WindowsPath() As String
     
122.         Get
     
123.             Dim strWinDir As String = Environment.GetEnvironmentVariable(WINDIR)
     
124.             If String.IsNullOrEmpty(strWinDir) Then
     
125.                 strWinDir = Environment.GetEnvironmentVariable(SYSROOT)
     
126.             End If
     
127. 
     
128.             Return strWinDir
     
129.         End Get
     
130.     End Property
     
131. 
     
132. #End Region '// - Framework -
     
133. 
     
134. End Class

คัดลอกไปที่คลิปบอร์ด

ส่วนของฟอร์มที่เรานำ Class มาใช้งาน ...

1. ' / --------------------------------------------------------------------------------
   
2. ' / Developer : Mr.Surapon Yodsanga (Thongkorn Tubtimkrob)
   
3. ' / eMail : thongkorn@hotmail.com
   
4. ' / URL: http://www.g2gnet.com (Khon Kaen - Thailand)
   
5. ' / Facebook: https://www.facebook.com/g2gnet (For Thailand)
   
6. ' / Facebook: https://www.facebook.com/commonindy (Worldwide)
   
7. ' / Purpose: Get information about MS Office & .Net Framework Version.
   
8. ' / Microsoft Visual Basic .NET (2010)
   
9. ' /
   
10. ' / This is open source code under @CopyLeft by Thongkorn Tubtimkrob.
    
11. ' / You can modify and/or distribute without to inform the developer.
    
12. ' / --------------------------------------------------------------------------------
    
13. 
    
14. Imports Microsoft.Win32
    
15. 
    
16. Public Class frmMicrosoftNet
    
17. 
    
18.     Private Sub frmMicrosoftNet_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    
19.         Call MicrosoftNet()
    
20.     End Sub
    
21. 
    
22.     '// Demonstrate to use Class.
    
23.     Private Sub MicrosoftNet()
    
24.         ListBox1.Items.Clear()
    
25.         '// MS Office Version.
    
26.         ListBox1.Items.Add("MS Office.")
    
27.         For Each strOffice In clsMicrosoftNet.AllOfficeVersions
    
28.             ListBox1.Items.Add(vbTab + strOffice)
    
29.         Next
    
30.         '// .Net Framework
    
31.         ListBox1.Items.Add("-----------------------------------")
    
32.         ListBox1.Items.Add(".Net Framework")
    
33.         ListBox1.Items.Add("Path: " & clsMicrosoftNet.NetFrameworkInstallationPath)
    
34.         For Each strFrameVer In clsMicrosoftNet.ListFrameworkVersions
    
35.             ListBox1.Items.Add(vbTab + strFrameVer)
    
36.         Next
    
37.         ListBox1.Items.Add("-----------------------------------")
    
38. 
    
39.         '// Simple Function
    
40.         'MsgBox("MS Office = " & GetOfficeVersion("Access"))
    
41.     End Sub

คัดลอกไปที่คลิปบอร์ด

ตัวอย่างการเลือกใช้ฟังค์ชั่นแทน ...

1.     '// Simple to use Function (OOP = Older Of Programming)
   
2.     Private Function GetOfficeVersion(ByVal strProgID As String) As String
   
3.         strProgID = strProgID & ".Application"
   
4.         Dim regKey As RegistryKey
   
5.         '// REGEDIT Read --> "HKLM\Software\Classes" & "Access.Application" & "\CurVer"
   
6.         regKey = Registry.LocalMachine.OpenSubKey("Software\Classes" & strProgID & "\CurVer", False)
   
7.         If regKey Is Nothing Then Return "No version detected."
   
8.         '//
   
9.         Dim strV As String = regKey.GetValue("", Nothing, RegistryValueOptions.None).ToString
   
10.         regKey.Close()
    
11. 
    
12.         '// strV = "Access.Application.14"
    
13.         Dim sArr() As String
    
14.         '// Split strV with Dot (".")
    
15.         sArr = Split(strV, ".")
    
16.         '// sArr(0) = "Access", sArr(1) = "Application", sArr(2) = "14"
    
17.         '// Return Upper Bound or Highest index.
    
18.         Return sArr(UBound(sArr))
    
19.     End Function

คัดลอกไปที่คลิปบอร์ด

ดาวน์โหลดโค้ดต้นฉบับ VB.NET (2010) ได้ที่นี่

g2gsoftuser

ขอบคุณครับ