[dubai.eig]

السلام عليكم ورحمة الل 

يسعد الله اوقاتكم


الكود محتاج مساعده وتعديل عليه جزاكم اله خيرا

عمل الكود هو

اول شي يقراء لي صفحة في النت html

ومن ثم اقوم بالبحث عن  رابط في الصفحة

واذا موجود اللي ابحث عنه يقوم بانزال الملف في جهازي

عملية قراءة الموقع صحيحه وشغاله

وعملية البحث شغاله

باقي طيقة تنزيل الملف



هنا اقوم بقراءة الصفحة

كود :

  Dim EQSLURL As String = "http://www.google.ae/"
       'Panels1.Text = "Sending information request to eQSL Server"
       Dim client As WebClient = New WebClient()
       Application.DoEvents()
       Dim data As System.IO.Stream = client.OpenRead(EQSLURL)
       Application.DoEvents()
       Dim reader As System.IO.StreamReader = New System.IO.StreamReader(data)
       Dim ReturnStr As String = ""
       ReturnStr = reader.ReadToEnd

من ثم اقوم بالبحث

كود :

       If (Regex.IsMatch(ReturnStr, "downloadedfiles/.+?\.adi", RegexOptions.IgnoreCase)) Then
           MessageBox.Show("found")
       Else
           MessageBox.Show("not found")
       End If

اذا حصل downloadedfiles/.+?\.adi

يقوم بانزل الملف في جهازي
www.google.cc/qslcard/downloadedfiles/.+?\.adi

كود :

     Using client = New WebClient()
               client.DownloadFile("www.google.cc/qslcard/downloadedfiles/.+?\.adi", My.Application.Info.DirectoryPath")
           End Using

يرجى المساعدة في تنزيل الملف
وشكرا