[crazykinko]

السلام عليكم

ممكن مساعدة في قراءة ملف .txt اون لاين

https://dl.dropbox.com/s/k0yxsla1ixlvffv/Version.txt?dl=0

بحث Label1.text = version 

لايوم تحديث البرنامج

else

يرجى تحديث البرنامج

[Taha Okla]

وعليكم السلام ورحمة الله وبركاته

استخدم هذا الكود :

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 


بالتوفيق ..

[معاند الحظ]

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

[crazykinko]

بارك الله فيكم شغال 100/100