منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] كود لقراءة محتوى ملف txt من استضافة - نسخة قابلة للطباعة

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

كود لقراءة محتوى ملف txt من استضافة - Necro PC - 21-08-21

السلام عليكم و رحة الله و بركاته، من فضلكم كود لاستخراج محتوى ملف نصي txt ، من ملفات الاستضافة http://suttingdown.rf.gd/cmd.txt ، هذا الملف فيه كلمة و أريد من البرنامج أن يظهرها في label و شكرا

RE: كود لقراءة محتوى ملف txt من استضافة - Necro PC - 22-08-21

شكرا تم الحل

RE: كود لقراءة محتوى ملف txt من استضافة - بن دبة عبد السلام - 30-08-21

(22-08-21, 07:55 PM)Necro PC كتب : شكرا تم الحل

اريد الحل من فضلكم وشكرا

RE: كود لقراءة محتوى ملف txt من استضافة - mrfenix93 - 03-09-21

(30-08-21, 07:29 PM)بن دبة عبد السلام كتب :
(22-08-21, 07:55 PM)Necro PC كتب : شكرا تم الحل

اريد الحل من فضلكم وشكرا


كود :
Dim address As String = "http://www.ٍSite.com/1.txt"
       Dim client As WebClient = New WebClient
       Dim reader As StreamReader = New StreamReader(client.OpenRead(address))
       TextBox1.Text = reader.ReadToEnd



 ولاكن يجب عمل 


كود :
Imports System.Net


RE: كود لقراءة محتوى ملف txt من استضافة - Necro PC - 09-09-21

شكرا أخي الفاضل، لكن واجهني مشكل، المشكل هو أنه عند حدث الـ FormClosing،من المفترض أن ينفذ هذا الكود :
Dim client As New Net.WebClient
client.Credentials = New Net.NetworkCredential("epiz_29497128", "zC6CcCGeKL")
client.UploadString("ftp://www.ftpupload.net/htdocs/connection.txt", "Computer state = disconnected")
لكنّه لا يقوم بتنفيذه، حتى إذا استبدلنا الكود بـ msgbox("ok") فهل من حلّ و شكــرا

RE: كود لقراءة محتوى ملف txt من استضافة - ميدو الفنان - 09-09-21

(09-09-21, 12:39 AM)Necro PC كتب : شكرا أخي الفاضل، لكن واجهني مشكل، المشكل هو أنه عند حدث الـ FormClosing،من المفترض أن ينفذ هذا الكود :
Dim client As New Net.WebClient
       client.Credentials = New Net.NetworkCredential("epiz_29497128", "zC6CcCGeKL")
       client.UploadString("ftp://www.ftpupload.net/htdocs/connection.txt", "Computer state = disconnected")
لكنّه لا يقوم بتنفيذه، حتى إذا استبدلنا الكود بـ msgbox("ok") فهل من حلّ و شكــرا

الكود يتم تنفيذه بدون اي مشاكل وانا قمت بتجربته وتغير النص