Aded Audits last 30 days

TonyTosol · Apr 24, 2023 · 658af19 · 658af19
1 parent 6042a01
commit 658af19
Show file tree

Hide file tree

Showing 3 changed files with 71 additions and 72 deletions.
diff --git a/StorJ Audit/Form1.Designer.vb b/StorJ Audit/Form1.Designer.vb
diff --git a/StorJ Audit/Form1.vb b/StorJ Audit/Form1.vb
@@ -147,8 +147,8 @@ Public Class Form1
                         reader = New StreamReader(response.GetResponseStream())
                         rawresp = reader.ReadToEnd()
 
-                        Dim Audits As String ''= ((JObject.Parse(rawresp)("audit")("successCount"))).ToString
-                        Dim TotalAudits As String ''= ((JObject.Parse(rawresp)("audit")("totalCount"))).ToString
+                        Dim Audits As Integer = 0 ''= ((JObject.Parse(rawresp)("audit")("successCount"))).ToString
+                        Dim TotalAudits As Integer = 0 ''= ((JObject.Parse(rawresp)("audit")("totalCount"))).ToString
 
                         'Dim Uptime As String '' = ((JObject.Parse(rawresp)("uptime")("successCount"))).ToString
                         'Dim TotalUptime As String '' = ((JObject.Parse(rawresp)("uptime")("totalCount"))).ToString
@@ -181,6 +181,17 @@ Public Class Form1
                                 repairUpCount = repairUpCount + CLng(repairUpObject)
 
                             Next
+
+                        Catch ex As Exception
+
+                        End Try
+                        Try
+                            For Each values As Object In JsonConvert.DeserializeObject(Of List(Of Object))(JObject.Parse(rawresp)("auditHistory")("windows").ToString)
+                                Dim aud = values("onlineCount")
+                                Dim totalaud = values("totalCount")
+                                Audits = Audits + CInt(aud)
+                                TotalAudits = TotalAudits + CInt(totalaud)
+                            Next
                         Catch ex As Exception
 
                         End Try
@@ -377,11 +388,11 @@ Public Class Form1
                         End If
                     End If
                 Catch ex As Exception
-                    MsgBox(ex)
+                    '' MsgBox(ex)
                 End Try
             Next
         Catch ex As Exception
-            MsgBox(ex)
+            ''MsgBox(ex)
         End Try
         MsgBox("Node not found or not respond, check node service.")
     End Sub

diff --git a/StorJ Node Audit(comunity).sln b/StorJ Node Audit(comunity).sln
@@ -5,10 +5,6 @@ VisualStudioVersion = 17.4.33122.133
 MinimumVisualStudioVersion = 10.0.40219.1
 Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "StorJ Node Audit(comunity)", "StorJ Audit\StorJ Node Audit(comunity).vbproj", "{870C6DC3-4719-4DF8-86EC-8676B378AC2B}"
 EndProject
-Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "LinxMon", "LinxMon\LinxMon.vbproj", "{E7E8010B-20BF-47EC-B65E-D83151077A9A}"
-EndProject
-Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "LinxRaport", "LinxRaport\LinxRaport.vbproj", "{84B24FD6-A15A-49D2-8988-32AECE858AAD}"
-EndProject
 Global
 	GlobalSection(SolutionConfigurationPlatforms) = preSolution
 		Debug|Any CPU = Debug|Any CPU
@@ -19,14 +15,6 @@ Global
 		{870C6DC3-4719-4DF8-86EC-8676B378AC2B}.Debug|Any CPU.Build.0 = Debug|Any CPU
 		{870C6DC3-4719-4DF8-86EC-8676B378AC2B}.Release|Any CPU.ActiveCfg = Release|Any CPU
 		{870C6DC3-4719-4DF8-86EC-8676B378AC2B}.Release|Any CPU.Build.0 = Release|Any CPU
-		{E7E8010B-20BF-47EC-B65E-D83151077A9A}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
-		{E7E8010B-20BF-47EC-B65E-D83151077A9A}.Debug|Any CPU.Build.0 = Debug|Any CPU
-		{E7E8010B-20BF-47EC-B65E-D83151077A9A}.Release|Any CPU.ActiveCfg = Release|Any CPU
-		{E7E8010B-20BF-47EC-B65E-D83151077A9A}.Release|Any CPU.Build.0 = Release|Any CPU
-		{84B24FD6-A15A-49D2-8988-32AECE858AAD}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
-		{84B24FD6-A15A-49D2-8988-32AECE858AAD}.Debug|Any CPU.Build.0 = Debug|Any CPU
-		{84B24FD6-A15A-49D2-8988-32AECE858AAD}.Release|Any CPU.ActiveCfg = Release|Any CPU
-		{84B24FD6-A15A-49D2-8988-32AECE858AAD}.Release|Any CPU.Build.0 = Release|Any CPU
 	EndGlobalSection
 	GlobalSection(SolutionProperties) = preSolution
 		HideSolutionNode = FALSE