hallo,
ich hoffe es kan mir jemand helfen der fehler tritt immer auf wen das Internet langsam wirt. gibt es eine Ausnahme dafür?
ich hoffe es kan mir jemand helfen der fehler tritt immer auf wen das Internet langsam wirt. gibt es eine Ausnahme dafür?
VB.NET-Quellcode
- Private Sub BackgroundWorker1_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
- wc.Credentials = New Net.NetworkCredential(benutzername, passwort)
- Licht.Text = wc.DownloadString("Ftp://zimmersteuerung.1x.de/www/Licht.txt") 'ACHTUNG ! AUF GROß UND
- Shows.Text = wc.DownloadString("Ftp://zimmersteuerung.1x.de/www/Shows.txt") 'ACHTUNG ! AUF GROß UND
- If Licht.Text = "1" Then
- Me.Invoke(Sub() CheckBox9.Checked = True)
- Licht.Text = ""
- End If
- If Shows.Text = "1" Then
- Me.Invoke(Sub() CheckBox10.Checked = True)
- End If
- If CheckBox1.Checked Then
- Lichtc.Text = "1"
- End If
- If Not CheckBox1.Checked Then
- Lichtc.Text = "0"
- End If
- If CheckBox2.Checked Then
- Showsc.Text = "1"
- End If
- If Not CheckBox2.Checked Then
- Showsc.Text = "0"
- End If
- wc.Credentials = New Net.NetworkCredential(benutzername, passwort)
- wc.UploadString("Ftp://zimmersteuerung.1x.de/www/Lichtc.txt", Lichtc.Text)
- wc.UploadString("Ftp://zimmersteuerung.1x.de/www/Showsc.txt", Showsc.Text)
- wc.UploadString("Ftp://zimmersteuerung.1x.de/www/Licht.txt", Licht.Text)
- wc.UploadString("Ftp://zimmersteuerung.1x.de/www/Shows.txt", Shows.Text)
- End Sub
- Private Sub backgroundWorker1_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles BackgroundWorker1.RunWorkerCompleted
- BackgroundWorker1.RunWorkerAsync()
- End Sub
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „KAXTJ“ ()