Folge dem Video um zu sehen, wie unsere Website als Web-App auf dem Startbildschirm installiert werden kann.
Anmerkung: Diese Funktion ist in einigen Browsern möglicherweise nicht verfügbar.
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
If CType(TextBox1.Text, Int32) > 35700 Then
MsgBox("Bitte geben Sie einen kleineren Wert als 35701 ein.")
Else
Timer1.Interval = CType(TextBox1.Text, Int32) * 60 * 1000
MsgBox(Timer1.Interval)
Timer1.Start()
End If
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim ExterneAnwendung As New System.Diagnostics.Process()
ExterneAnwendung.StartInfo.Arguments = "-s -t 60" ' 60 Sekunden Zeit um Daten zu speichern
ExterneAnwendung.StartInfo.FileName = "shutdown.exe"
ExterneAnwendung.Start()
Timer1.Stop()
Me.Close()
End Sub
End Class