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

فماذا افعل
PHP كود :
Dim req As System.Net.HttpWebRequest System.Net.HttpWebRequest.Create("https://dl.dropbox.com/u/90110249/tesr.txt")
                
Dim res As System.Net.HttpWebResponse req.GetResponse
                Dim sr 
As System.IO.StreamReader = New System.IO.StreamReader(res.GetResponseStream)
                
TextBox1.Text sr.ReadToEnd 
الرد }}}}
تم الشكر بواسطة:
#2
طبيعي التهنيج حتى ينتهي من القراءة ....استخدام backgroundworker لحل الاشكال الخاص بالتهنيج.
أستودعكم الله الذي لا تضيع ودائعه أرجو ان تجدوا بمشاركاتي ما يجعلكم تدعون لي بخير ان تحتم غيابي.
الرد }}}}
تم الشكر بواسطة:
#3
السلام عليكم ورحمة الله وبركاته

أضف أداة BackgroundWorker للـ Form واستخدم الكود التالي :

كود :
Imports System.Text

Public Class Form1
    Dim StrHtml As String = ""


    Private Sub BackgroundWorker1_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
        Dim req As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create("https://dl.dropbox.com/u/90110249/tesr.txt")
        Dim res As System.Net.HttpWebResponse = req.GetResponse
        Dim sr As System.IO.StreamReader = New System.IO.StreamReader(res.GetResponseStream, Encoding.Default)
        StrHtml = sr.ReadToEnd()
    End Sub


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        BackgroundWorker1.RunWorkerAsync()
    End Sub


    Private Sub BackgroundWorker1_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles BackgroundWorker1.RunWorkerCompleted
        TextBox1.Text = StrHtml
    End Sub


End Class

****
***
**
*
(وَقُل رَّبِّ زِدْنِي عِلْمًا)

الرد }}}}
تم الشكر بواسطة:
#4
استعمل سيرد

كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        On Error Resume Next

        Dim t As Threading.Thread = New Threading.Thread(AddressOf Patch)
        t.Start()

    End Sub

كود :
Private Sub Patch()
        On Error Resume Next
Dim req As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create("https://dl.dropbox.com/u/90110249/tesr.txt")
                Dim res As System.Net.HttpWebResponse = req.GetResponse
                Dim sr As System.IO.StreamReader = New System.IO.StreamReader(res.GetResponseStream)
                TextBox1.Text = sr.ReadToEnd  

    End Sub
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تحديد مسار البرنامج atefkhalf2004 8 97 اليوم, 03:23 AM
آخر رد: atefkhalf2004
  [سؤال] كيف اجعل البرنامج يحفظ بيانات؟ The Light Fire 9 137 05-12-16, 12:58 AM
آخر رد: ali.alfoly
  [نقاش] الى كل خبير ومبتدأ نقاش بخصوص جعل البرنامج نسخة تجريبية 0theghost0 1 157 30-11-16, 11:21 PM
آخر رد: awidan76
  [نقاش] اسئلكم بالله / تسعيرة هذا البرنامج مصمم على فيجول استديو 2013 عزف الخواطر 3 125 30-11-16, 06:42 PM
آخر رد: عزف الخواطر
  [سؤال] مشكلة في إعادة تنفيذ البرنامج wael khlak 1 56 21-11-16, 11:48 PM
آخر رد: السرور
  خطا عند تشغيل البرنامج makky 10 146 19-11-16, 03:17 AM
آخر رد: أبو عمر
  [VB.NET] طلب تعديل ع الكود ليصبح البرنامج جاهزاً 3asfa~mdmra 8 202 12-11-16, 02:30 AM
آخر رد: 3asfa~mdmra
  حجم ملف دعم البرنامج كبير جدا makky 6 127 26-10-16, 10:25 PM
آخر رد: makky
  [VB.NET] نص من ملف txt يضهر في اعلاء البرنامج dubai.eig 0 60 26-10-16, 08:10 PM
آخر رد: dubai.eig
  [سؤال] رجاء المساعدة البرنامج لا يعمل تحديث للبيانات Asmaa adel 3 163 16-10-16, 09:48 AM
آخر رد: Asmaa adel

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


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