02-10-12, 09:47 AM
كاتب الموضوع : mr.black
السلام عليكم..في البداية انا لست ضليعاً في صياغة المواضيع فلذلك سأدخل الى الموضوع مباشرة
بعد استيراد مكتبة LINQ في مشروعك واضافة كنترول web browser و Listbox أكتب الكود التالي لتقوم بالبحث عن اي tag ضمن كود HTML
كود :
[color=#000000][COLOR=#0000bb]Dim hrefLst [/color][color=#007700]= ([/color][color=#0000bb]From elm [/color][color=#007700]As [/color][color=#0000bb]HtmlElement In wb[/color][color=#007700].[/color][color=#0000bb]Document[/color][color=#007700].[/color][color=#0000bb]Body[/color][color=#007700].[/color][color=#0000bb]GetElementsByTagName[/color][color=#007700]([/color][color=#dd0000]"a"[/color][color=#007700]) [/color][color=#0000bb]Select elm[/color][color=#007700].[/color][color=#0000bb]GetAttribute[/color][color=#007700]([/color][color=#dd0000]"href"[/color][color=#007700])).[/color][COLOR=#0000bb]Distinct
[/COLOR][color=#007700]For [/color][color=#0000bb]Each href [/color][color=#007700]As [/color][COLOR=#0000bb]String In hrefLst
ListBox1[/COLOR][color=#007700].[/color][color=#0000bb]Items[/color][color=#007700].[/color][color=#0000bb]Add[/color][color=#007700]([/color][color=#0000bb]href[/color][COLOR=#007700])
[/COLOR][COLOR=#0000bb]Next
[/COLOR][/COLOR]
فكما تلاحظون انني قمت بالبحث عن a و ارجعت قائمة بـHref التابعة لها
كما يمكنكم استبدال a بأي tag اخرى مثل img وايضا اسبدال href بـ src فتكون قد حصلت على كود يجلب لك كل ماسرات الصور
كود :
[color=#000000][COLOR=#0000bb]Dim hrefLst [/color][color=#007700]= ([/color][color=#0000bb]From elm [/color][color=#007700]As [/color][color=#0000bb]HtmlElement In wb[/color][color=#007700].[/color][color=#0000bb]Document[/color][color=#007700].[/color][color=#0000bb]Body[/color][color=#007700].[/color][color=#0000bb]GetElementsByTagName[/color][color=#007700]([/color][color=#dd0000]"img"[/color][color=#007700]) [/color][color=#0000bb]Select elm[/color][color=#007700].[/color][color=#0000bb]GetAttribute[/color][color=#007700]([/color][color=#dd0000]"src"[/color][color=#007700])).[/color][COLOR=#0000bb]Distinct
[/COLOR][color=#007700]For [/color][color=#0000bb]Each href [/color][color=#007700]As [/color][COLOR=#0000bb]String In hrefLst
ListBox1[/COLOR][color=#007700].[/color][color=#0000bb]Items[/color][color=#007700].[/color][color=#0000bb]Add[/color][color=#007700]([/color][color=#0000bb]href[/color][COLOR=#007700])
[/COLOR][COLOR=#0000bb]Next
[/COLOR][/COLOR]
دمتم بخير