[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]

(03-01-17, 11:39 PM)مساعدة كتب : السلام عليكم

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

كود :

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

بارك الله فيك

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

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

[dubai.eig]

(03-01-17, 11:39 PM)مساعدة كتب :

السلام عليكم

إذا اردت فقط استخراج النص 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

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

   

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

وشكرا

[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>