07-07-22, 04:04 PM
السلام عليكم
ممكن مساعدة في قراءة ملف .txt اون لاين
https://dl.dropbox.com/s/k0yxsla1ixlvffv/Version.txt?dl=0
بحث Label1.text = version
لايوم تحديث البرنامج
else
يرجى تحديث البرنامج
07-07-22, 04:04 PM
07-07-22, 04:20 PM
وعليكم السلام ورحمة الله وبركاته
استخدم هذا الكود :
بالتوفيق ..
استخدم هذا الكود :
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
بالتوفيق ..
08-07-22, 11:58 AM
ضع على الفورم Label1
اذا كان الرابط يبدأ بـ https://www.dropbox.com قم بتعديل dl=0 الى dl=1 في اخر الرابط
استخدم الكود التالي اذا كان الفيجوال ستوديو يدعم الفريموورك اصدار 4.5 او كنت تستخدم فيجوال ستوديو اصدار اكبر من 2010
استخدم الكود التالي اذا كان الفيجوال ستوديو لايدعم فريموورك اصدار 4.5 يعني اذا كنت تستخدم فيجوال ستوديو 2010 او اقل
يقوم الكود بتحميل وعرض النص الموجود في الرابط الذي ارفقته داخل اداة 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
11-07-22, 11:53 AM
بارك الله فيكم شغال 100/100