21-08-21, 11:32 PM
السلام عليكم و رحة الله و بركاته، من فضلكم كود لاستخراج محتوى ملف نصي txt ، من ملفات الاستضافة http://suttingdown.rf.gd/cmd.txt ، هذا الملف فيه كلمة و أريد من البرنامج أن يظهرها في label و شكرا
21-08-21, 11:32 PM
22-08-21, 07:55 PM
شكرا تم الحل
30-08-21, 07:29 PM
(22-08-21, 07:55 PM)Necro PC كتب : [ -> ]شكرا تم الحل
اريد الحل من فضلكم وشكرا
03-09-21, 01:36 AM
(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.Net09-09-21, 12:39 AM
شكرا أخي الفاضل، لكن واجهني مشكل، المشكل هو أنه عند حدث الـ 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") فهل من حلّ و شكــرا
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") فهل من حلّ و شكــرا
09-09-21, 08:34 PM
(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") فهل من حلّ و شكــرا
الكود يتم تنفيذه بدون اي مشاكل وانا قمت بتجربته وتغير النص