منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

(19-10-19, 03:03 AM)ابو روضة كتب : [ -> ]عملتها أخى بهذا الكود بفضل الله وجزاك الله كل خير

كود :

 Try
           Dim txt As String = "http://facebook-groups.rigala.net/h14-page"
           Dim WC As WebClient = New WebClient()
           Dim Read As StreamReader = New StreamReader(WC.OpenRead(txt))
           Dim STR As String = Read.ReadToEnd
           abod.open(STR)
           abod.Play()
       Catch ex As Exception
           MsgBox(ex.Message)
       End Try

(19-10-19, 12:35 PM)3booody كتب : [ -> ]

(19-10-19, 03:03 AM)ابو روضة كتب : [ -> ]عملتها أخى بهذا الكود بفضل الله وجزاك الله كل خير

كود :

 Try
           Dim txt As String = "http://facebook-groups.rigala.net/h14-page"
           Dim WC As WebClient = New WebClient()
           Dim Read As StreamReader = New StreamReader(WC.OpenRead(txt))
           Dim STR As String = Read.ReadToEnd
           abod.open(STR)
           abod.Play()
       Catch ex As Exception
           MsgBox(ex.Message)
       End Try

وهوا بالضبط ماكنت ناوي اعمله
اسف على التأخير سلمت يداك أخي