03-11-19, 06:57 PM
السلام عليكم
ارجو من الاخوة الكرام كتابة هذا الكود بالسيشارب
كود :
Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim ds As New Net.WebClient()
ds.Credentials = New Net.NetworkCredential("اسم المستخدم في ftp", "الرقم السري")
Label1.text = ds.DownloadString("ftp:\\اسم ملف txt")
Label1.text = Val(Label1) + Val("1")
ds.UploadString("ftp:\\اسم ملف txt")
End Sub
End Class