+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : تهنيج البرنامج عند القراءة من ملف استضافة (/showthread.php?tid=7477)
تهنيج البرنامج عند القراءة من ملف استضافة - freeviwer - 22-12-12
البرنامج راح يهنج كلما وضعت هذا الكود
فماذا افعل
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
تهنيج البرنامج عند القراءة من ملف استضافة - سعود - 22-12-12
طبيعي التهنيج حتى ينتهي من القراءة ....استخدام backgroundworker لحل الاشكال الخاص بالتهنيج.
تهنيج البرنامج عند القراءة من ملف استضافة - kslawy - 22-12-12
السلام عليكم ورحمة الله وبركاته
أضف أداة 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****
***
**
*
تهنيج البرنامج عند القراءة من ملف استضافة - just.coder - 12-03-13
استعمل سيرد
كود :
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