السلام عليكم ورحمة الله
عندي اسفسار بخصوص 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>
هل الكود صحيح والا محتاج تعديل وشكرا
للتوضيح اكثر
الموقع المراد تنزيل من الملف
كود ال 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
(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
بارك الله فيك
تقريبا نفس اللي اريده
شكرا على مساعدتك للجميع بارك الله فيك وفي ميزان حسناتك
(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]
دخول الموقع ضابط معي بس محتاج الان كود لانزال الملف في جهازي من الرابط المذكور اعلا
وشكرا
جربت هذا الكود بس ما نزل معاي شي
كود :
' 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>