- Код: Выделить всё
Dim WithEvents wc As New System.Net.WebClient Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click wc.Credentials = New NetworkCredential("User", "Pass") wc.DownloadFileAsync(URI, "c:\temp\1.rar") End Sub
Код точно рабочий, но почему он же не работает в службе?