دخول

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

شكرا لك

**hassan** · 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) 

شكرا لك

**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

دخول
إسم المستخدم
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة

المواضيع المحتمل أن تكون متشابهة .
الموضوع :		الكاتب	الردود :	المشاهدات :	آخر رد
	[VB.NET] معرفة الخطا	MOHAMMED ALZWI	0	43	15-04-24, 01:56 PM آخر رد: MOHAMMED ALZWI
	[VB.NET] معرفة الخطا	MOHAMMED ALZWI	2	42	15-04-24, 01:54 PM آخر رد: MOHAMMED ALZWI
	استخدام فونت جديد في البرنامج	Emam emam	5	91	14-04-24, 01:29 PM آخر رد: عبد العزيز البسكري
	عدم القدرة على إغلاق البرنامج وظهور رسالة the operation could not be completed	صالح عبدالله	2	62	12-04-24, 06:03 AM آخر رد: صالح عبدالله
	[VB.NET] حفظ الفورم (Form) (البرنامج) بعد التغيير	visualist2015	8	6,460	12-04-24, 04:07 AM آخر رد: أبو جودة
	معرفة رصيدي للهاتف النقال المتصل بالكمبيوتر وارسال رسائل نصية منه	AHMED213	1	151	03-04-24, 08:08 AM آخر رد: sdz
	تغيير المسار الي مسار البرنامج في تقرير ميكروسوفت	atefkhalf2004	2	107	02-04-24, 05:05 PM آخر رد: atefkhalf2004
	مشكلة عند نقل البرنامج من فيجوال 2013 الى فيجوال 2017	strongriseman	5	156	12-03-24, 10:37 AM آخر رد: strongriseman
	محتاج تشفير فيديو وتشغلية عن طريق البرنامج فقط	new_programer	1	118	22-02-24, 12:09 PM آخر رد: AHMED213
	[VB.NET] معرفة بيانات الجهاز	محمد بوقزاحة	1	328	21-02-24, 11:44 PM آخر رد: AHMED213