تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
قراءة ملف txt اون لاين لو تكرمتم
#1
السلام عليكم
ممكن مساعدة في قراءة ملف .txt اون لاين

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

بحث Label1.text = version 
لايوم تحديث البرنامج

else
يرجى تحديث البرنامج
الرد }}}
تم الشكر بواسطة:
#2
وعليكم السلام ورحمة الله وبركاته

استخدم هذا الكود :
PHP كود :
Imports System.IO
Imports System
.Text
Imports System
.Net
Public Class Form1
    Private Sub Button1_Click
(sender As ObjectAs EventArgsHandles 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 

بالتوفيق ..
قال صلى الله عليه وسلم: 
«كلمتان خفيفتان على اللسان 
ثقيلتان في الميزان،حبيبتان إلى الرحمن: 
سبحان الله وبحمده، سبحان الله العظيم».
الرد }}}
تم الشكر بواسطة: ابو روضة , ابراهيم ايبو
#3
ضع على الفورم 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

الرد }}}
تم الشكر بواسطة: ابو روضة , ابراهيم ايبو
#4
بارك الله فيكم شغال 100/100
الرد }}}
تم الشكر بواسطة: ابو روضة , معاند الحظ , معاند الحظ


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  أستفسار عن قراءة الاسطر altoki939 6 114 27-03-24, 10:07 AM
آخر رد: altoki939
  مشكله فى جهاز قراءة الباركود خالد كامل1 1 351 03-11-23, 06:42 AM
آخر رد: Taha Okla
  [VB.NET] مشكله في قراءة ملصقات الباركود CoderMM 6 1,808 15-03-23, 06:27 PM
آخر رد: المتألق9
  السلام عليكم ممكن مساعدة لو تكرمتم crazykinko 0 477 02-10-22, 04:45 PM
آخر رد: crazykinko
  قراءة البريد الالكتروني باستخدام الفيجوال بازيك صبري زينوبي 0 378 24-08-22, 05:47 PM
آخر رد: صبري زينوبي
  قراءة خلية من الداتا قريد بصيغة نص aftfm 0 681 21-08-22, 05:22 AM
آخر رد: aftfm
  قراءة البيانات من برنامج البصمة strongriseman 2 1,301 29-07-22, 02:23 AM
آخر رد: ابراهيم ايبو
  [سؤال] ازاي اتحكم في البرنامج اون لاين حسن الجلب 1 578 22-07-22, 07:32 AM
آخر رد: سعود
  [VB.NET] عمل شاشة دخول بامكانية تغيير الباس ورد في اي وقت اون لاين crazykinko 2 777 21-07-22, 04:12 PM
آخر رد: crazykinko
Exclamation قراءة بيانات الصورة من قاعدة بيانات أكسس إلى أداة PictureBox أبو خالد الشكري 15 1,846 20-07-22, 05:40 PM
آخر رد: أبو خالد الشكري

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم