Visual Baisc Frage

02/02/2011 16:19 benni9001#1
Hallo und zwar habe ich das Problem dass, ich habe ein Programm programmiert das etwas downloadet und während dem download henkt sich das Programm auf wenn der download aber fertig ist dann kann ich das Programm wider benutzen gibt es da irgend einen Code dass sich das Programm nicht aufhenkt ???

Freue mich auf Antworten
Gebe THX
02/02/2011 16:25 Garp.#2
Poste deinen Programmcode bitte.
02/02/2011 16:26 benni9001#3
Da sind aber mehrere Forms
02/02/2011 16:27 Der-Eddy#4
Quote:
Originally Posted by benni9001 View Post
Da sind aber mehrere Forms
Die die für den Download zuständig ist, natürlich ...
02/02/2011 16:31 benni9001#5
Dim wcl As New Net.WebClient
If wcl.DownloadString("http://benni9007.be.funpic.de/schalter.txt") = "7" Then
wcl.UploadString("ftp://TJA:[Only registered and activated users can see links. Click Here To Register...].funpic.de/schalter.txt", "1")
Else
If wcl.DownloadString("http://benni9007.be.funpic.de/schalter.txt") = "1" Then
PictureBox4.ImageLocation = wcl.DownloadString("http://benni9007.be.funpic.de/werbung1.txt")
Else
If wcl.DownloadString("http://benni9007.be.funpic.de/schalter.txt") = "2" Then
PictureBox4.ImageLocation = wcl.DownloadString("http://benni9007.be.funpic.de/werbung2.txt")
Else
If wcl.DownloadString("http://benni9007.be.funpic.de/schalter.txt") = "3" Then
PictureBox4.ImageLocation = wcl.DownloadString("http://benni9007.be.funpic.de/werbung3.txt")
If wcl.DownloadString("http://benni9007.be.funpic.de/schalter.txt") = "4" Then
PictureBox4.ImageLocation = wcl.DownloadString("http://benni9007.be.funpic.de/werbung4.txt")
Else
If wcl.DownloadString("http://benni9007.be.funpic.de/schalter.txt") = "5" Then
PictureBox4.ImageLocation = wcl.DownloadString("http://benni9007.be.funpic.de/werbung5.txt")
Else
If wcl.DownloadString("http://benni9007.be.funpic.de/schalter.txt") = "6" Then
PictureBox4.ImageLocation = wcl.DownloadString("http://benni9007.be.funpic.de/werbung6.txt")
End If
End If
End If
End If
End If
End If
End If

Label1.Text = wcl.DownloadString("http://benni9007.be.funpic.de/schalter.txt")
Label1.Text = Val(wcl.DownloadString("http://benni9007.be.funpic.de/schalter.txt")) + "1"
wcl.UploadString("ftp://TJA:[Only registered and activated users can see links. Click Here To Register...].funpic.de/schalter.txt", Label1.Text)