Revert "Änderungen"

This reverts commit 94c7c5fd99.
This commit is contained in:
ja
2021-12-15 11:44:33 +01:00
parent 94c7c5fd99
commit cb7be47bb2
5 changed files with 106 additions and 168 deletions

View File

@@ -1,4 +1,4 @@
<%@ Page Title="" Language="VB" MasterPageFile="~/Customers/Customers.master" AutoEventWireup="false" CodeFile="Default.aspx.vb" Inherits="Customers_Default" Async="true" %>
<%@ Page Title="" Language="VB" MasterPageFile="~/Customers/Customers.master" AutoEventWireup="false" CodeFile="Default.aspx.vb" Inherits="Customers_Default" %>
<asp:Content ID="Content1" ContentPlaceHolderID="ContentPlaceHolder2" Runat="Server">
</asp:Content>

View File

@@ -1,4 +1,4 @@
<%@ Page Title="" Language="VB" MasterPageFile="~/Customers/Customers.master" AutoEventWireup="false" CodeFile="Default2.aspx.vb" Inherits="Customers_Default2" Async="true" %>
<%@ Page Title="" Language="VB" MasterPageFile="~/Customers/Customers.master" AutoEventWireup="false" CodeFile="Default2.aspx.vb" Inherits="Customers_Default2" %>
<asp:Content ID="Content1" ContentPlaceHolderID="ContentPlaceHolder2" Runat="Server"><%If String.Equals(Page.User.Identity.Name, "Admin") = False Then
FormsAuthentication.RedirectToLoginPage()
@@ -78,10 +78,8 @@
</td>
</tr>
<tr><td>
<tr><td><asp:Button ID="Button1" runat="server" Text="Button" OnClick="Button1_Click" /></td></tr>
<tr><td><asp:Button ID="Butn_TestHashrate" runat="server" OnClick="Butn_TestHashrate_ClickAsync" BackColor="WhiteSmoke" Text="Test the Hashrate of the Server"/></td></tr>
<tr><td><asp:Label ID="lbl_resulttesthashrate" runat="server" ClientIDMode="AutoID">Hier wird das Ergebnis angezeigt!</asp:Label></td></tr>
</table>
<tr><td><asp:Button ID="Button1" runat="server" Text="Button" OnClick="Button1_Click" /></td></tr>
</table>
</ContentTemplate>
</asp:UpdatePanel>
</asp:Content>

View File

@@ -1,7 +1,7 @@

Partial Class Customers_Default2
Inherits System.Web.UI.Page
Protected Async Sub Page_Load(ByVal sender As Object, e As EventArgs) Handles Me.Load
Protected Sub Page_Load(ByVal sender As Object, e As EventArgs) Handles Me.Load
If Page.IsPostBack Then
Page.MaintainScrollPositionOnPostBack = True
@@ -33,12 +33,4 @@ 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