Version 3.0.0 Build 5400

README.md

@@ -4,7 +4,7 @@
 A simple system information and real-time network monitoring utility.\
 This utility reads all system information directly from WMI database.
 
-## Current stable version: 2.5.1 Build 5010 (2019-09-18)
+## Current stable version: 3.0.0 Build 5400 (2019-11-25)
 
 ![](Screenshots/SINMx86_LoadSplash.png)
 
@@ -14,7 +14,7 @@ __Supported languages:__ English, Hungarian,\
 __Compilation environment:__ Microsoft Visual Basic 2013 (Community, Update 5),\
 __Source author:__ Gábor Deé (dtech),\
 __License:__ GNU General Public License v2.0,\
-__Supported clients operating systems:__ Microsoft Windows XP / Vista / 7 / 8 / 8.1 / 10,\
+__Supported clients operating systems:__ Microsoft Windows XP SP3 / Vista / 7 / 8 / 8.1 / 10,\
 __Requirements:__ Microsoft .NET Framework 3.5 (Minimum required: 2.0 SP2).
 
 ## Screenshot
@@ -23,11 +23,15 @@ __Requirements:__ Microsoft .NET Framework 3.5 (Minimum required: 2.0 SP2).
 
 ## Changelog since version 2.1.0 (Hungarian only)
 
-__2019-11-19 - Version 3.0.0 Release Candidate / Build 5318 (pre-stable)__
+__2019-11-25 - Version 3.0.0 / Build 5400 (stable)__
 
+- Windows XP hiányzó processzor név patch lekezelése (KB953955),
+- Zárójeles sztringek eltávolításának lehetősége új függvénnyel,
+- Operációs rendszer információk módosítása, Windows 10 verzió kiírásának hozzáadása,
+- A kiírásokat javító függvények paramétereinek tisztítása,
 - Nem támogatott felbontás hiba megjelenítése 1024x768-asnál kisebb felbontás esetén,
 - Taskbar ikon menüjének letiltása indítás közben,
-- Win XP/Server 2003 hiányzó HT/Multicore patch lekezelése (magok/szálak),
+- Windows XP hiányzó HT/Multicore patch lekezelése (KB936235),
 - Lemezek független hőfok figyelmeztetése (figyelmeztetés: 45 fok, kritikus 55 fok),
 - Figyelmeztető S.M.A.R.T rekordok bevezetése: nem kritikus, de veszélyt jelentő rekordok,
 - Ténylegesen kritikus S.M.A.R.T rekordok beállítása figyelmeztetésre,
@@ -133,4 +137,4 @@ __2019-03-20 - Version 2.2.0 / Build 4500 (stable)__
 - Windows 7 lemez szériaszám korrekció (hexadecimális visszaalakítás és bájtsorrend csere),
 - Rendszermemória tizedes elválasztó hiba javítva.
 
-__Copyright (C) 2019 dtech(.hu), [http://sinmx86.dtech.hu/](http://sinmx86.dtech.hu/).__
+__Copyright (C) 2019 dtech(.hu), [http://sinmx86.dtech.hu/](http://sinmx86.dtech.hu/).__

SINMx86/CPUInfo.vb

@@ -8,7 +8,7 @@ Imports SINMx86.Localization
 Public Class CPUInfo
 
     ' WMI feldolgozási objektumok
-    Public objPR As ManagementObjectSearcher
+    Public objPR, objPE As ManagementObjectSearcher
     Public objMgmt As ManagementObject
 
     ' CPU-infó tábla változói
@@ -21,7 +21,8 @@ Public Class CPUInfo
         ' Értékek definiálása
         Dim VendorCount, NameCount, ArchCount As Int32          ' Ciklusszámlálók (gyártó, név, architektúra)
         Dim CPUCores, CPUThreads As Int32                       ' Magok és szálak száma
-        Dim NameString As String                                ' Processzor neve
+        Dim NameString As String = Nothing                      ' Processzor neve
+        Dim CorrString As String = Nothing                      ' Processzor javított neve (KB953955)
         Dim DeviceID As String = Nothing                        ' Processzor azonosítója
         Dim L2Cache(2) As Double                                ' Level 2 cache mérete
         Dim L3Cache(2) As Double                                ' Level 3 cache mérete
@@ -30,6 +31,9 @@ Public Class CPUInfo
         Dim NameSearch() As String = {"MHz", "GHz"}
         Dim NameReplace() As String = {" MHz", " GHz"}
 
+        ' Névből törlendő sztringek tömbje
+        Dim NameDelete() As String = {"CPU", "processor"}
+
         ' CPU architektúra tömbök értékei (keresett azonosító, valódi érték)
         Dim ArchID() As Int32 = {0, 1, 2, 3, 6, 9}
         Dim ArchStr() As String = {"x86", "MIPS", "Alpha", "PowerPC", "IA64", "x64"}
@@ -65,7 +69,7 @@ Public Class CPUInfo
         ' WMI értékek lekérdezése: Win32_Processor -> Magok és szálak száma
         objPR = New ManagementObjectSearcher("SELECT NumberOfCores, NumberOfLogicalProcessors FROM Win32_Processor")
 
-        ' Processzor mag és szál értékek kiértékelése
+        ' Processzor mag és szál értékek kiértékelése (XP: KB936235, 2003: KB932370)
         ' Megjegyzés: Ha üres a tábla, akkor 'ManagementException'-t okoz, ezért kell a 'Try'!
         ' Elsősorban XP-nél és Server 2003-nál kell rá számítani, ahol hiányzik a HT/Multicore kezelési frissítés!
         Try
@@ -90,6 +94,26 @@ Public Class CPUInfo
         ' Processzor számláló visszaállítása
         CPUCount = 0
 
+        ' WinXP/2003 CPU nevének javítása (KB953955)
+        ' Megjegyzés: Mivel minden processzor neve egyezik, ezért csak az első kerül beállításra.
+        If OSVersion(0) <= 6 Then
+
+            ' WMI lekérdezés: Win32_PnPEntity -> Processzorok listája
+            objPE = New ManagementObjectSearcher("SELECT Caption FROM Win32_PnPEntity WHERE ClassGuid='{50127DC3-0F36-415E-A6CC-4CB3BE910B65}'")
+
+            ' Értékek beállítása -> CPU neve (Csak az első!)
+            For Each Me.objMgmt In objPE.Get()
+                While CPUCount < 1
+                    CorrString = RemoveParentheses(objMgmt("Caption"))
+                    CPUCount += 1
+                End While
+            Next
+
+        End If
+
+        ' Processzor számláló visszaállítása
+        CPUCount = 0
+
         ' WMI értékek lekérdezése: Win32_Processor -> CPU-információk
         objPR = New ManagementObjectSearcher("SELECT DeviceID, Manufacturer, Name, Description, SocketDesignation, CurrentVoltage, " +
                                              "Architecture, CurrentClockSpeed, MaxClockSpeed, ExtClock, L2CacheSize FROM Win32_Processor")
@@ -108,12 +132,24 @@ Public Class CPUInfo
                     End If
                 Next
 
+                ' Név beállítása
+                NameString = RemoveParentheses(objMgmt("Name"))
+
+                ' Értékek összehasonlítása (Ha eltér, akkor felül lesz írva!)
+                If OSVersion(0) <= 6 Then
+                    If NameString <> CorrString Then NameString = CorrString
+                End If
+
                 ' Név korrekciós sztringek keresése és cseréje
-                NameString = objMgmt("Name")
                 For NameCount = 0 To UBound(NameSearch)
                     NameString = Replace(NameString, NameSearch(NameCount), NameReplace(NameCount))
                 Next
 
+                ' Névből törlendő sztringek keresése és törlése
+                For NameCount = 0 To UBound(NameDelete)
+                    NameString = Replace(NameString, NameDelete(NameCount), Nothing)
+                Next
+
                 ' Módosított név hozzáadása
                 CPUTableAddRow(GetLoc("CPUName"), RemoveSpaces(NameString), Nothing)
 

SINMx86/IPInfo.vb

@@ -63,7 +63,7 @@ Public Class IPInfo
         For Each Me.objMgmt In objNA.Get()
 
             ' Adapter nevének felvitele
-            AdapterName = objMgmt("Description")
+            AdapterName = RemoveParentheses(objMgmt("Description"))
             IPTableAddRow(GetLoc("IPAdapter"), AdapterName)
 
         Next

SINMx86/Include/Functions.vb

@@ -89,7 +89,7 @@ Public Class Functions
 
         ' *** REGISTRY LEKÉRDEZÉS: Regisztrációs kulcs létrehozása, ha nem létezik (HKCU\Software) ***
         If RegPath Is Nothing Then
-            RegPath = Registry.CurrentUser.CreateSubKey("Software\\" + MyName, RegistryKeyPermissionCheck.ReadWriteSubTree)
+            RegPath = Registry.CurrentUser.CreateSubKey("SOFTWARE\\" + MyName, RegistryKeyPermissionCheck.ReadWriteSubTree)
         End If
 
         ' Registry lekérdezés: Utolsó beállított értékek lekérdezése
@@ -237,8 +237,31 @@ Public Class Functions
         Dim Str2Char() As Char                                  ' Sztring-karakter konverzió tömbje
         Dim TempString As String = Nothing                      ' Ideiglenes sztring az elemzéshez
         Dim Position As Int32                                   ' Pozíció számláló
+        Dim SearchCount As Int32                                ' Keresendő sztring sorszáma
 
-        ' Dupla szóközök eltávolítása, addig amíg szerepel benne! (Ezért kell a While!)
+        ' Sztring cserék változói (zárójelek előtti és utáni felesleges szóközök)
+        Dim SearchList() As String = {"( ", " )", "[ ", " ]", "{ ", " }"}
+        Dim ReplaceList() As String = {"(", ")", "[", "]", "{", "}"}
+
+        ' Névből törlendő sztringek tömbje (üres zárójelek eltűntetése)
+        Dim DeleteList() As String = {"()", "[]", "{}"}
+
+        ' Módosítandó sztringek keresése és cseréje, amíg szerepel benne!
+        For SearchCount = 0 To UBound(SearchList)
+            While (InStr(RawString, SearchList(SearchCount)))
+                RawString = Replace(RawString, SearchList(SearchCount), ReplaceList(SearchCount))
+            End While
+        Next
+
+        ' Törlendő sztringek keresése és törlése, amíg szerepel benne!
+        For SearchCount = 0 To UBound(DeleteList)
+            While (InStr(RawString, DeleteList(SearchCount)))
+                RawString = Replace(RawString, DeleteList(SearchCount), Nothing)
+            End While
+        Next
+
+        ' Dupla szóközök eltávolítása
+        ' Megjegyzés: Muszáj a végére, mert a törlések után is keletkezhet!
         While (InStr(RawString, "  "))
             RawString = Replace(RawString, "  ", " ")
         End While
@@ -270,13 +293,53 @@ Public Class Functions
                 Next
                 RawString = TempString
             End If
+
         End If
 
         ' Visszatérési érték beállítása
         Return RawString
 
     End Function
 
+    ' *** FÜGGVÉNY: Zárójeles sztringek eltávolítása ***
+    ' Bemenet: RawString -> formázandó sztring (String)
+    ' Kimenet: RawString -> formázott sztring (String)
+    Public Shared Function RemoveParentheses(RawString)
+
+        ' Értékek definiálása
+        Dim Str2Char() As Char                                  ' Sztring-karakter konverzió tömbje
+        Dim TempString As String = Nothing                      ' Ideiglenes sztring az elemzéshez
+        Dim Position As Int32                                   ' Pozíció számláló
+        Dim ParenthOn As Boolean = False                        ' Nyitott zárójel
+
+        ' Karaktertömbre bontás
+        Str2Char = RawString.ToCharArray()
+
+        ' Sztring végignézése
+        For Position = 0 To UBound(Str2Char)
+
+            ' Zárójelek keresése (Bezáró zárójel esetén szóközre kell cserélni!)
+            If Str2Char(Position) = "(" And ParenthOn = False Then
+                ParenthOn = True
+            ElseIf Str2Char(Position) = ")" And ParenthOn = True Then
+                Str2Char(Position) = " "
+                ParenthOn = False
+            End If
+
+            ' Karakterek hozzáadása, ha nincs nyitott zárójel és a karakter nem üres!
+            If ParenthOn = False Then
+                TempString += Str2Char(Position)
+            End If
+        Next
+
+        ' Felesleges szóközök eltávolítása
+        RawString = RemoveSpaces(TempString)
+
+        ' Visszatérési érték beállítása
+        Return RawString
+
+    End Function
+
     ' *** FÜGGVÉNY: Nem elfogadható karakterek eltávolítása ***
     ' Bemenet: RawString -> formázandó sztring (String)
     ' Kimenet: RawString -> formázott érték (String)

SINMx86/Include/Localization.vb

@@ -282,7 +282,7 @@ Public Class Localization
                                 "augusztus", "szeptember", "október", "november", "december"}
 
                 ' Főablak nyelvi változói
-                AddLoc("Title", "Rendszerinformációk és hálózatfigyelés")
+                AddLoc("Title", "Rendszer információk és hálózatfigyelés")
                 AddLoc("Comment", "Ez a szoftver nyílt forrású és hordozható.")
                 AddLoc("Version", "Verziószám")
                 AddLoc("DigitSeparator", ",")