[VB.NET] بخصوص WebBrowser - نسخة قابلة للطباعة

[VB.NET] بخصوص WebBrowser - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] بخصوص WebBrowser (/showthread.php?tid=18679)

بخصوص WebBrowser - dubai.eig - 03-01-17

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

عندي اسفسار بخصوص 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>

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

RE: بخصوص WebBrowser - dubai.eig - 03-01-17

للتوضيح اكثر

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

كود ال html

كود :

<UL>

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

    </UL>

RE: بخصوص WebBrowser - مساعدة - 03-01-17

السلام عليكم

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

كود :

Dim s As String = Regex.Match(h, "downloadedfiles/.+?\.cvs", RegexOptions.IgnoreCase).Value

' سيكون الناتج

' downloadedfiles/AK1IM171112.cvs

' حتى لو اختلف اسم الملف

' AK1IM171112

RE: بخصوص WebBrowser - dubai.eig - 04-01-17

(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

بارك الله فيك

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

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

RE: بخصوص WebBrowser - dubai.eig - 15-01-17

(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

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

[attachment=12859]

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

وشكرا

RE: بخصوص WebBrowser - dubai.eig - 15-01-17

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

كود :

       ' 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