تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
جمع الروابط و الصور و عرضها في متصفح الانترنت
#1
جمع الروابط و الصور و عرضها في متصفح الانترنت

1. افتح الفيجوال بيسك 2008 (او نسخة الدوت النت التي لديك) ، و اصنع مشروع جديد ، و سمه بالاسم التي تريده (انا سميته image and links grabber)

2. اجعل المشروع كبير ليتحمل الادوات

3. اضف متصفح انترنت سمه (wb) ، و اول زر سمه (btnGo) ، الزر الثاني سمه (btnExtract)
الزر الثالث (btnGetImageSources) ، و مربع نص سمه (txturl) ، و مربع صورة سمه (pic)
و اضف ايضاً قائمة سمها ((LstMain .

صورة اولية



4. تحت كلمةpublic class form1 اكتب هذا الكود


PHP كود :
Dim a As Boolean 
    Dim b 
As Boolean 

5. اضغط على زر btnGo و اكتب هذا الكود فيه

PHP كود :
WB.Navigate(TxtURL.Text

الان اذا شغلنا البرنامج يجب ان تكتب اسم موقع في مربع النص و تضغط على زر go


6. الان اضغط على زر (btnExtract) و اكتب هذا الكود في داخله
PHP كود :
lstmain.Items.Clear() 
        If 
True Then 
            a 
False 
        End 
If 
        If 
False Then 
            b 
True 
        End 
If 
        
'For every link in the current document...           
        For Each ele As HtmlElement In WB.Document.Links 
            '
Get whatever text there is in the 'href' attribute  
            Dim eletarget 
As String ele.GetAttribute("href"
            
'Add it to the listbox  
            LstMain.Items.Add(eletarget) 
            '
Carry on to the next link  
        Next 


الان شغل البرنامج و اكتب رابط في مربع النص و اضغط زر (Go) و اضغط زر ((Extract وسوف تظهر الروابط الخاصة بالصفحة الحالية لمتصفح الانترنت

7. اضغط على زر (imagesource) و اكتب هذا الكود في داخله
PHP كود :
lstmain.Items.Clear() 
        If 
True Then 
            b 
False 
        End 
If 
        If 
False Then 
            a 
True 
        End 
If 
        
'For every HtmlElement (such as a textbox, a button, or image) in the current document...    
        For Each ele As HtmlElement In WB.Document.All 
            '
Make sure it's an image... rather crude but works...  
            If ele.GetAttribute("src") Is Nothing = True Then 
                '
Do nothing  
            
Else 
                
'Its an image  
                '
If the source of the element (assuming there is onecontains .jpg  
                
If ele.GetAttribute("src").ToLower.Contains(".jpg"Then 
                    
'Declare the source of the image as a string (not really neccesary)  
                    Dim imgsrc As String = ele.GetAttribute("src") 
                    '
Add the string to the listbox  
                    LstMain
.Items.Add(imgsrc
                
End If 

                If 
ele.GetAttribute("src").ToLower.Contains(".png"Then 
                    
'Declare the source of the image as a string (not really neccesary)  
                    Dim imgsrc As String = ele.GetAttribute("src") 
                    '
Add the string to the listbox  
                    LstMain
.Items.Add(imgsrc
                
End If 

                If 
ele.GetAttribute("src").ToLower.Contains(".gif"Then 
                    
'Declare the source of the image as a string (not really neccesary)  
                    Dim imgsrc As String = ele.GetAttribute("src") 
                    '
Add the string to the listbox  
                    LstMain
.Items.Add(imgsrc
                
End If 

                If 
ele.GetAttribute("src").ToLower.Contains(".bmp"Then 
                    
'Declare the source of the image as a string (not really neccesary)  
                    Dim imgsrc As String = ele.GetAttribute("src") 
                    '
Add the string to the listbox  
                    LstMain
.Items.Add(imgsrc
                
End If 
            
End If 
        
Next 

8. الان اكتب هذه الدالة

PHP كود :
Imports System.IO 
Imports System
.Net 
Public Function LoadWebImageToPictureBox(ByVal pb _ 
      
As PictureBoxByVal ImageURL As String) As Boolean 

        Dim objImage 
As MemoryStream 
        Dim objwebClient 
As WebClient 
        Dim sURL 
As String Trim(ImageURL
        
Dim bAns As Boolean 
        
Try 
            If 
Not sURL.ToLower().StartsWith("http://"
                 Then sURL 
"http://" sURL 
            objwebClient 
= New WebClient() 

            
objImage = New  
               MemoryStream
(objwebClient.DownloadData(sURL)) 
            
pb.Image Image.FromStream(objImage
            
bAns True 
        
Catch ex As Exception 
            bAns 
False 
        End 
Try 
        Return 
bAns 
    End 
Function 

في اللست البوكس الحدث click اكتب هذا الكود

PHP كود :
If True Then 
            LoadWebImageToPictureBox
(piclstmain.Text
        
End If 
        If 
True Then 
            WB
.Navigate(lstmain.Text
        
End If 


هذه المقالة من إنشائي
متغيب قليلاً للدراسة Smile
الرد }}}}
تم الشكر بواسطة:
#2
بارك الله فيك
الرد }}}}
تم الشكر بواسطة:
#3
و فيك اخي Smile
متغيب قليلاً للدراسة Smile
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشروع لجلب الصور من الماسحة الضوئية (Scanner) m.sami.ak 12 4,037 25-08-16, 09:30 PM
آخر رد: jassim316
  شرح خوارزميات معالجة الصور (من دروس الاستاذ فوزي برزنجي) ناديه الشجيري 14 7,812 09-04-16, 11:26 PM
آخر رد: بديع
  [VB.NET] تشغيل Twain الخاص بسحب الصور من السكنر في حالة net framework4 ahmed saleh 4 675 25-10-15, 07:20 PM
آخر رد: عدنان الشمري
  [VB.NET] التعامل مع الصور في vb net أحمد النجار 2 1,016 03-06-15, 10:45 PM
آخر رد: أحمد النجار
  مثال القراءة والكتابه على ملف تيكست Txt على الانترنت + مثال + شرح m.sami.ak 9 2,281 20-08-13, 01:12 PM
آخر رد: m.sami.ak
  مقال - استخلاص الصور من صورة متحركة gif RaggiTech 1 571 05-10-12, 03:39 PM
آخر رد: RaggiTech
  تعلم كيف تقوم بعمليات توضيح و تمويه و زخرفة و توهج الصور RaggiTech 0 447 03-10-12, 10:02 AM
آخر رد: RaggiTech
  تعديل الصور : التحديد Sharpening المبرمج الطموح vb6 0 338 02-10-12, 11:07 PM
آخر رد: المبرمج الطموح vb6
  الصور المتحركة في الدوت نت Animation الجزء الرابع RaggiTech 0 632 02-10-12, 06:59 PM
آخر رد: RaggiTech
  الصور المتحركة في الدوت نت Animation الجزء الثالث RaggiTech 1 507 02-10-12, 06:50 PM
آخر رد: RaggiTech

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم