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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  البرنامج لايحفظ التغيرات عبدالرحمن المكاوي 4 61 18-02-17, 10:03 AM
آخر رد: وائل القطاوي
Thumbs Up [سؤال] كود تخطي فتح رابط معين لتشغيل البرنامج Mk 22353 1 57 17-02-17, 02:43 AM
آخر رد: الماجيك مسعد
  [سؤال] حمايه البرنامج moshax 3 118 09-02-17, 03:34 PM
آخر رد: مساعدة
  [VB.NET] مشكلة مع datagridview لا تعرض السجلات الجديدة الا بعد اقفال البرنامج darklibya88 3 123 01-02-17, 04:01 PM
آخر رد: جابر
  لايعمل البرنامج في فيجول ستوديو 2010 thams 0 45 23-01-17, 10:29 PM
آخر رد: thams
Exclamation [سؤال] التاكيد من موجد برامج قبل تشغيل البرنامج MOONMICROSYSTEM 1 168 22-01-17, 04:54 PM
آخر رد: thevirus
  هل يوجد طريقة لارسال رسائل واتساب من البرنامج باستخدام vb.net 2010 ? Dr.Sherif Alazizi 15 617 12-01-17, 11:54 PM
آخر رد: Basil Abdallah
  [سؤال] ربط البرنامج بعدة اجهزة ابو يوسف النواوي 2 3 201 12-01-17, 03:52 AM
آخر رد: Basil Abdallah
  [سؤال] مشكلة تهنيج البرنامج ابو روضة 2 230 30-12-16, 04:47 PM
آخر رد: ابو روضة
  [سؤال] كيف اخلي البرنامج يشتغل بدون نت فروم ورك و طريقة اختيار النت فروم ورك hassan 9 4,544 27-12-16, 01:25 PM
آخر رد: Basil Abdallah

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


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