Yardım etmeye çalıştığın için teşekkürler fakat makaleler hep C# üzerine yanıtlanmış
Aşırı ilkel ve harika bir yöntem denedim yardımcı olduğun için teşekkürler.
Merhabalar programa saat sistemi ekleyerekten sistemin sayılarının büyüklüğüne göre bir sistem yaptım. Tamamen doğru anlamışsınız bu arada
checkboxları ayarlayacağım test olsun diye attım size
acemiyim elimdeki az bilgiyle böyle bir kod yazdım durumu arkadaşlara daha iyi izah ettiğin için teşekkürler
Komik ? Visual Basic dilini neden bu kadar küçümsüyorsunuz anlamıyorum yukarıdaki anlattığım yöntemleri Visual Basic ile yapabilir ayrıca Visual Basic ile bunun gibi bir çok şeyi rahatlıkla yapabilir.
Kanka çok cahilsin ama bak tamam zerre bir şey anlamıyor olabilirsin ama anlattıklarımı yapabilmesi için benim kodlarını vermeme gerek olmadığını anlaman gerekiyor.
Dim miUri As String = "Dosyanın çıkartılacağı url örn : ftp://ftp.mydomain.com/TarihKontrolü/tarih.txt"
Dim miRequest As Net.FtpWebRequest = Net.WebRequest.Create(miUri)
miRequest.Credentials = New Net.NetworkCredential("Filezilla kullanıcı adı", "file zilla şifresi")
miRequest.Method = Net.WebRequestMethods.Ftp.UploadFile
Try
Dim bFile() As Byte = System.IO.File.ReadAllBytes("C:\Users\Kullanıcı\Desktop\tarih.txt")
Dim miStream As System.IO.Stream = miRequest.GetRequestStream()
miStream.Write(bFile, 0, bFile.Length)
miStream.Close()
miStream.Dispose()
Catch ex As Exception
Throw New Exception(ex.Message)
End Try Dim request As New WebClient()
request.Credentials = New NetworkCredential("Kullanıcı adı", "Şifre")
Dim bytes() As Byte = request.DownloadData(ftpuri)
Try
Dim DownloadStream As FileStream = IO.File.Create("İndirilecek konum örn : ftp://ftp.mydomain.com/TarihKontrolü/tarih.txt")
DownloadStream.Write(bytes, 0, bytes.Length)
DownloadStream.Close()
Catch ex As Exception
MessageBox.Show(ex.Message)
Exit Sub
End Try
MessageBox.Show("Tarih Verisi Gönderildi.")TextBox1.Text = System.IO.File.ReadAllText("C:\Users\Kullanıcı\Desktop\tarih.txt", System.Text.Encoding.Default)Dim name As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("span")
For Each elem As HtmlElement In name
If elem.GetAttribute("class").Contains("SINIF ADI") Then
TextBox2.Text = elem.InnerText
