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.
Private Sub Form_Load()
'File auslesen, falls es existiert, sonst Fehler
If Dir$("dtmf.txt", vbNormal) <> "" Then
CodeData = dtmf_lesen("dtmf.txt")
Else
MsgBox "Das File dtmf.txt fehlt. Kann keine Daten einlesen."
End If
'Daten an PHPScript übergeben
WebBrowser1.Navigate "http://www.domain.com/smslogs/mail3.php?info=" + CodeData
'File löschen
If Dir$("dtmf.txt", vbNormal) <> "" Then
Kill ("dtmf.txt")
End If
'File neu leer erstellen
F2 = FreeFile
Open "dtmf.txt" For Binary As #F2
Close #F2
'Timer starten um mainForm wieder zu schliessen
Timer1.Enabled = True
End Sub