+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : قراءة ملف txt اون لاين لو تكرمتم (/showthread.php?tid=41858)
قراءة ملف txt اون لاين لو تكرمتم - crazykinko - 07-07-22
السلام عليكم
ممكن مساعدة في قراءة ملف .txt اون لاين
https://dl.dropbox.com/s/k0yxsla1ixlvffv/Version.txt?dl=0
بحث Label1.text = version
لايوم تحديث البرنامج
else
يرجى تحديث البرنامج
RE: قراءة ملف txt اون لاين لو تكرمتم - Taha Okla - 07-07-22
وعليكم السلام ورحمة الله وبركاته
استخدم هذا الكود :
PHP كود :
Imports System.IO
Imports System.Text
Imports System.Net
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim address As String = "https://dl.dropboxusercontent.com/s/k0yxsla1ixlvffv/Version.txt?dl=0"
Dim client As WebClient = New WebClient()
Dim reply As String = client.DownloadString(address)
TextBox1.Text = reply
End Sub
End Class
بالتوفيق ..
RE: قراءة ملف txt اون لاين لو تكرمتم - معاند الحظ - 08-07-22
ضع على الفورم Label1
اذا كان الرابط يبدأ بـ https://www.dropbox.com قم بتعديل dl=0 الى dl=1 في اخر الرابط
استخدم الكود التالي اذا كان الفيجوال ستوديو يدعم الفريموورك اصدار 4.5 او كنت تستخدم فيجوال ستوديو اصدار اكبر من 2010
كود :
Imports System.Net
Public Class Form1
Dim WithEvents wc As New WebClient
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
'ServicePointManager.Expect100Continue = True
ServicePointManager.SecurityProtocol = SecurityProtocolType.Tls12
Try
wc.DownloadStringAsync(New Uri("https://dl.dropboxusercontent.com/s/k0yxsla1ixlvffv/Version.txt?dl=0"))
Catch ex As Exception
Label1.Text = ex.Message.ToString
End Try
End Sub
Private Sub wc_DownloadStringCompleted(sender As Object, e As System.Net.DownloadStringCompletedEventArgs) Handles wc.DownloadStringCompleted
Try
Label1.Text = e.Result
Catch ex As Exception
Label1.Text = ex.Message.ToString
End Try
End Sub
End Classاستخدم الكود التالي اذا كان الفيجوال ستوديو لايدعم فريموورك اصدار 4.5 يعني اذا كنت تستخدم فيجوال ستوديو 2010 او اقل
كود :
Imports System.Net
Public Class Form1
Dim WithEvents wc As New WebClient
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
'ServicePointManager.Expect100Continue = True
ServicePointManager.SecurityProtocol = CType(3072, SecurityProtocolType)
Try
wc.DownloadStringAsync(New Uri("https://dl.dropboxusercontent.com/s/k0yxsla1ixlvffv/Version.txt?dl=0"))
Catch ex As Exception
Label1.Text = ex.Message.ToString
End Try
End Sub
Private Sub wc_DownloadStringCompleted(sender As Object, e As System.Net.DownloadStringCompletedEventArgs) Handles wc.DownloadStringCompleted
Try
Label1.Text = e.Result
Catch ex As Exception
Label1.Text = ex.Message.ToString
End Try
End Subيقوم الكود بتحميل وعرض النص الموجود في الرابط الذي ارفقته داخل اداة Label1
RE: قراءة ملف txt اون لاين لو تكرمتم - crazykinko - 11-07-22
بارك الله فيكم شغال 100/100