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