ضع على الفورم 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