(28-10-18, 01:01 AM)ابو روضة كتب :(28-10-18, 12:54 AM)XBOOBX كتب :وعليكم السلاماتفضل اخيكود :Dim token As String = httpRequest.Get("https://vb4arb.com/vb/showthread.php?tid=27125&pid=130673#pid130673").ToString
Dim access As String = New Regex("src=""(.*?)?dateline").Match(token).Groups(1).Value
PictureBox1.Load(access.ToString)
يوجد خطأ اخى الكريم
هل هناك مكتبة مثلا ناقصة ؟
اخي انا قصدت تستعمل الرابط مع الباترن في الكود الذي وضعتة انت
هذا
وهذا الكود كامل بدون اخطاء انت الذي وضعتة
هذا
كود :
Dim wc As New WebClient
Dim sourceString As String = wc.DownloadString("https://vb4arb.com/vb/showthread.php?tid=27125&pid=130673#pid130673")
Dim s As String = Regex.Match(sourceString, "src=""(.*?)?dateline").Groups(1).Value
PictureBox1.Load(s)وهذا الكود كامل بدون اخطاء انت الذي وضعتة


![[صورة مرفقة: PYLfIK.png]](http://imagizer.imageshack.com/img923/1530/PYLfIK.png)