13-04-16, 03:38 AM
13-04-16, 07:15 AM
(13-04-16, 03:38 AM)mostfa1995 كتب : [ -> ]طلب كود معرفة كام شخص فاتح البرنامج
تفضل
PHP كود :
Imports System.Net
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.Text) + Val("1")
ds.UploadString("ftp:\\اسم ملف txt", Label1.Text)
End Sub
End Class
قم بتغيير المطلوب الموضح في الكود وان شاء الله يقوم ب المطلوب
ملاحضة : قبل استخدام هاذا الكود قم بوضع رقم 0 في ملف التكست المرفوع والذي يجب كتابته في الكود
شكرا لك
13-04-16, 03:57 PM
(13-04-16, 07:15 AM)hassan كتب : [ -> ](13-04-16, 03:38 AM)mostfa1995 كتب : [ -> ]طلب كود معرفة كام شخص فاتح البرنامج
تفضل
PHP كود :
Imports System.NetImports System.Net
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
قم بتغيير المطلوب الموضح في الكود وان شاء الله يقوم ب المطلوب
ملاحضة : قبل استخدام هاذا الكود قم بوضع رقم 0 في ملف التكست المرفوع والذي يجب كتابته في الكود
شكرا لك
13-04-16, 08:20 PM
(13-04-16, 03:57 PM)mostfa1995 كتب : [ -> ]تفضل اخي(13-04-16, 07:15 AM)hassan كتب : [ -> ](13-04-16, 03:38 AM)mostfa1995 كتب : [ -> ]طلب كود معرفة كام شخص فاتح البرنامج
تفضل
PHP كود :
Imports System.NetImports System.Net
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
قم بتغيير المطلوب الموضح في الكود وان شاء الله يقوم ب المطلوب
ملاحضة : قبل استخدام هاذا الكود قم بوضع رقم 0 في ملف التكست المرفوع والذي يجب كتابته في الكود
شكرا لك
PHP كود :
ds.UploadString("ftp:\\اسم ملف txt", Label1.text)
شكرا لك
14-04-16, 03:25 AM
اشكر اخى hassan على المجهود الرائع
كود :
Imports System.Net
Public Class Form1
Dim ds As New Net.WebClient()
Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
ds.Credentials = New Net.NetworkCredential("ftpالخاص بالاستضافه", "هنا باسورد الاستضافة")
Label1.Text = ds.DownloadString("هنا رابط ملف التيكست")
Label1.Text = Val(Label1.Text) + Val("1")
ds.UploadString("هنا رابط ملف التيكست", Label1.Text)
End Sub
End Class