18-01-17, 01:36 PM
السلام عليكم ورحمة الل
يسعد الله اوقاتكم
الكود محتاج مساعده وتعديل عليه جزاكم اله خيرا
عمل الكود هو
اول شي يقراء لي صفحة في النت html
ومن ثم اقوم بالبحث عن رابط في الصفحة
واذا موجود اللي ابحث عنه يقوم بانزال الملف في جهازي
عملية قراءة الموقع صحيحه وشغاله
وعملية البحث شغاله
باقي طيقة تنزيل الملف
هنا اقوم بقراءة الصفحة
من ثم اقوم بالبحث
اذا حصل downloadedfiles/.+?\.adi
يقوم بانزل الملف في جهازي
www.google.cc/qslcard/downloadedfiles/.+?\.adi
يرجى المساعدة في تنزيل الملف
وشكرا
يسعد الله اوقاتكم
الكود محتاج مساعده وتعديل عليه جزاكم اله خيرا
عمل الكود هو
اول شي يقراء لي صفحة في النت 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
يرجى المساعدة في تنزيل الملف
وشكرا