تقييم الموضوع :
  • 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
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكلة عند نقل البرنامج من فيجوال 2013 الى فيجوال 2017 strongriseman 5 149 12-03-24, 10:37 AM
آخر رد: strongriseman
  محتاج تشفير فيديو وتشغلية عن طريق البرنامج فقط new_programer 1 112 22-02-24, 12:09 PM
آخر رد: AHMED213
  مطلوب كود الطباعة لهذا البرنامج melad2002 2 234 13-01-24, 06:42 PM
آخر رد: melad2002
  مشكلة تعليق البرنامج في حال عدم وجود ماسح ضوئي متصل بالكمبيوتر صالح عبدالله 1 210 09-01-24, 10:51 PM
آخر رد: صالح عبدالله
  حل مشكلة بعد تثبيت البرنامج في جهاز العميل Adel27213 3 467 02-12-23, 11:00 PM
آخر رد: justforit
  كيف اجعل البرنامج في بداية الشهر ينفذ حدث معين بالاصح اريد البرنامج في تاريخ واحد من Adel27213 3 484 05-11-23, 01:45 AM
آخر رد: justforit
  [VB.NET] كيف اجعل البرنامج يحدد اخر يوم من كل شهر Adel27213 2 361 03-11-23, 06:50 AM
آخر رد: Adel27213
  [سؤال] عمل البرنامج على أى resoluation dr.programming 0 244 02-11-23, 12:08 AM
آخر رد: dr.programming
  تنصيب البرنامج على اجهزة العملاء um_noor20 2 327 30-10-23, 04:17 PM
آخر رد: Taha Okla
  ما أسرع استضافة يمكن رفع المشروع عليها ؟ hazim1 0 197 03-10-23, 08:55 AM
آخر رد: hazim1

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


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