[dubai.eig]

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

عندي اسفسار بخصوص WebBrowser

الكود اللي عندي موب شغال تمام

وهو عبارة اني ادخل موقع ومن ثم اسحب ملف من الموقع

كود :

 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       WebBrowser1.Navigate("http://www.url.cc/card/DownloadInBox.cfm")

       TextBox1.Text = WebBrowser1.Document.GetElementById("LI").OuterText
   End Sub

الملف المراد تنزيله 

كود :

    <UL>
      <LI><A HREF="downloadedfiles/AK1IM171112.cvs">file</A>

    </UL>

هل الكود صحيح والا محتاج تعديل وشكرا

[dubai.eig]

للتوضيح اكثر

الموقع المراد تنزيل من الملف

كود ال html

كود :

<UL>
      <LI><A HREF="downloadedfiles/AK1IM171112.cvs">file</A>

    </UL>

[مساعدة]

السلام عليكم

إذا اردت فقط استخراج النص downloadedfiles/AK1IM171112.cvs استخدم RegEx وهذا هو الكود لاستخراج النص بدلالة الكلمة downloadedfiles وcvs

كود :

Dim s As String = Regex.Match(h, "downloadedfiles/.+?\.cvs", RegexOptions.IgnoreCase).Value
' سيكون الناتج
' downloadedfiles/AK1IM171112.cvs
' حتى لو اختلف اسم الملف
' AK1IM171112

[dubai.eig]

السلام عليكم

إذا اردت فقط استخراج النص downloadedfiles/AK1IM171112.cvs استخدم RegEx وهذا هو الكود لاستخراج النص بدلالة الكلمة downloadedfiles وcvs

كود :

Dim s As String = Regex.Match(h, "downloadedfiles/.+?\.cvs", RegexOptions.IgnoreCase).Value
' سيكون الناتج
' downloadedfiles/AK1IM171112.cvs
' حتى لو اختلف اسم الملف
' AK1IM171112

بارك الله فيك

تقريبا نفس اللي اريده

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

[dubai.eig]

السلام عليكم

إذا اردت فقط استخراج النص downloadedfiles/AK1IM171112.cvs استخدم RegEx وهذا هو الكود لاستخراج النص بدلالة الكلمة downloadedfiles وcvs

كود :

[align=center][/align]
[align=center]Dim s As String = Regex.Match(h, "downloadedfiles/.+?\.cvs", RegexOptions.IgnoreCase).Value[/align]
[align=center]' سيكون الناتج[/align]
[align=center]' downloadedfiles/AK1IM171112.cvs[/align]
[align=center]' حتى لو اختلف اسم الملف[/align]
[align=center]' AK1IM171112[/align]

[align=center][/align]

صادفتني مشكله  جزاك الله خير تحلها معاي

انا محتاج ادخل موقع  معين بالاسم والرقم السري

وبعد الدخول انزل ملف من الموقع

كمثال

الدخول ضابط معي 

كود :

[align=center]  WebBrowser1.Navigate("http://www.eqsl.cc/qslcard/DownloadInBox.cfm?UserName=" & eqslu.Text & "&Password=" & eqslp.Text & "&QTHNickname=" & eqslq.Text & "&RcvdSince=" & cv & "")[/align]
[align=center][/align]

بعد ما يفتح لي الموقع

محتاج كود انزل ملف

الملف بيكون برابط اخر 

كود :

http://www.eqsl.cc/qslcard/downloadedfiles/AK1IM171112.cvs

يعني لازم اول شي ادخل الموقع وبعد الدخول يطلع لي الرابط الخاص بالملف

[attachment=12859]

دخول الموقع ضابط معي بس محتاج الان كود لانزال الملف في جهازي من الرابط المذكور اعلا

وشكرا

[dubai.eig]

جربت هذا الكود بس ما نزل معاي شي

كود :

       ' Locate the "Download Handle (128 KB)" hyperlink and automatically download it
       ' <a id="ctl00_mainContentContainer_ctl11" href="http://download.sysinternals.com/Files/Handle.zip"><strong>Download Handle (128 KB)</strong></a>
       Dim theElementCollection As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("LI")

       For Each curElement As HtmlElement In theElementCollection

           Dim controlName As String = curElement.GetAttribute("InnerText").ToString

           If controlName = ".ADI file" Then
               Dim linkURL As String = curElement.GetAttribute("HREF").ToString

               ' Download file in OverWrite mode
               Using client = New WebClient()
                   client.DownloadFile(linkURL, "D:\5")
               End Using


           End If

       Next

<UL>
 <LI><A HREF="downloadedfiles/AP1BP3739.adi">.ADI file</A>

</UL>