09-11-12, 06:57 PM
الصفحات : 1 2
09-11-12, 07:45 PM
09-11-12, 08:43 PM
اسف على الخطاء يوجد فايروس بجهازي تفضل اخي الكود
كود :
Try
For l As Integer = 0 To 10
ProgressBar1.PerformStep()
ProgressBar1.Visible = True
Dim regust As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create("http://coding.dr-ho.org/Example.txt") ' طلب عنوان الملف النصي
Dim respnos As System.Net.HttpWebResponse = regust.GetResponse ' عرفنا استجابه الملف النصي
Dim sr As System.IO.StreamReader = New System.IO.StreamReader(respnos.GetResponseStream) ' عرفنا قرائة الملف النصي
Dim song As String = sr.ReadToEnd ' امر القرائه
TextBox1.Text = song ' عنوان الملف الصوتي
Next
Catch ex As Exception
MsgBox("لم يتم العثور على الملف المطلوب")
End Try
End Sub09-11-12, 08:58 PM
بارك الله فيك وجزاك خير
تحياتي
تحياتي
الصفحات : 1 2