منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] طلب كود معرفة كام شخص فاتح البرنامج - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] طلب كود معرفة كام شخص فاتح البرنامج (/showthread.php?tid=15476)

طلب كود معرفة كام شخص فاتح البرنامج - mostfa1995 - 13-04-16

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



RE: طلب كود معرفة كام شخص فاتح البرنامج - hassan - 13-04-16

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

شكرا لك

RE: طلب كود معرفة كام شخص فاتح البرنامج - mostfa1995 - 13-04-16

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

شكرا لك


RE: طلب كود معرفة كام شخص فاتح البرنامج - hassan - 13-04-16

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

شكرا لك

RE: طلب كود معرفة كام شخص فاتح البرنامج - mostfa1995 - 14-04-16

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