Änderungen

Customers/Default2.aspx.vb

@@ -1,7 +1,7 @@
 
 Partial Class Customers_Default2
     Inherits System.Web.UI.Page
-    Protected Sub Page_Load(ByVal sender As Object, e As EventArgs) Handles Me.Load
+    Protected Async Sub Page_Load(ByVal sender As Object, e As EventArgs) Handles Me.Load
 
         If Page.IsPostBack Then
             Page.MaintainScrollPositionOnPostBack = True
@@ -33,4 +33,12 @@ Partial Class Customers_Default2
             txt_Fehlercodezuzahl.Text = finalstr
         End If
     End Sub
+
+    Protected Async Function Butn_TestHashrate_ClickAsync(sender As Object, e As EventArgs) As Threading.Tasks.Task
+        Dim ztemp As Byte() = Await TestPerformance.TestSaltHashRateMax(VERAG_VARIABLES.RandomInteger(Math.Pow(2, 10), Math.Pow(2, 14)))
+
+        lbl_resulttesthashrate.ForeColor = Drawing.Color.GreenYellow
+        lbl_resulttesthashrate.Text = "Successful Test with: " + Convert.ToBase64String(ztemp) + "in der zeit: " + Space(2) + TimeSpan.FromMilliseconds(TestPerformance.zeitspannefürtest).Milliseconds.ToString
+
+    End Function
 End Class