[dubai.eig]

(18-01-17, 02:08 PM)مساعدة كتب : السلام عليكم

تفضل تعديل الكود

كود :

Dim EQSLURL As String = "http://www.google.ae/"
Using client As New WebClient() With {.Encoding = System.Text.Encoding.UTF8}
Dim ReturnStr As String = client.DownloadString(EQSLURL)
Dim filename As String = Regex.Match(ReturnStr, "downloadedfiles/.+?\.adi", RegexOptions.IgnoreCase).Value
   If filename <> "" Then
       Dim data() As Byte = client.DownloadData(EQSLURL & "/qslcard/" & filename)
       IO.File.WriteAllBytes(IO.Path.GetFileName(filename), data)
       MessageBox.Show("found: " & filename)
   Else
       MessageBox.Show("not found")
   End If
End Using

---

في أكوادك وجدت اختلافا في اسم الموقع حيث الأول google.ae والآخر google.cc

ما شاءالله عليك

بارك الله فيك تم تجربة الكود ويعمل بشكل ممتاز 

في ميزان اعمالك والف شككرا

---

(18-01-17, 02:08 PM)مساعدة كتب : السلام عليكم

تفضل تعديل الكود

كود :

Dim EQSLURL As String = "http://www.google.ae/"
Using client As New WebClient() With {.Encoding = System.Text.Encoding.UTF8}
Dim ReturnStr As String = client.DownloadString(EQSLURL)
Dim filename As String = Regex.Match(ReturnStr, "downloadedfiles/.+?\.adi", RegexOptions.IgnoreCase).Value
   If filename <> "" Then
       Dim data() As Byte = client.DownloadData(EQSLURL & "/qslcard/" & filename)
       IO.File.WriteAllBytes(IO.Path.GetFileName(filename), data)
       MessageBox.Show("found: " & filename)
   Else
       MessageBox.Show("not found")
   End If
End Using

---

في أكوادك وجدت اختلافا في اسم الموقع حيث الأول google.ae والآخر google.cc

بس خطوة اخيره بارك الله فيك

انا حاولت اغير مكان تنزيل الملف بس طلع لي غلط

مثلا اريد تخزين الملف في فولدر

كود :

My.Application.Info.DirectoryPath & "\myfile\

وين اغير بلضبط

وشكرا من جديد