[mostfa1995]

طلب كود معرفة كام شخص فاتح البرنامج

[hassan]

(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 في ملف التكست المرفوع والذي يجب كتابته في الكود

شكرا لك

[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 في ملف التكست المرفوع والذي يجب كتابته في الكود

شكرا لك

[hassan]

(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) 


شكرا لك

[mostfa1995]

اشكر اخى 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