• أهلا وسهلاً بكم في :: IQ-TeaM FORUM :: .
    إذا كانت هذه الزيارة الأولى أو لديك الرغبة بالانضمام لأعضاء شبكة عراق تيم فيجب الاطلاع على خصوصية الشبكه فربما بقائك زائر افضل لك من الانضمام بحيث أن قوانين شبكة عراق تيم لا تتناسب مع اهتماماتك .
    • للأطلاع على الخصوصية وسياسة الاستخدام - التفاصيل
    • بعد الاطلاع على سياسة الموقع وقوانين شبكة عراق تيم يمكنك التسجيل معنا - تسجيل عضو جديد
  • بادئ الموضوع A-R
  • تاريخ البدء
الحالة
مغلق و غير مفتوح للمزيد من الردود.
Developer

  • إنضم
    2 يوليو 2015
    المشاركات
    350
    الإعجابات
    11
    النقاط
    50
    نظام التشغيل
    windows_7
    اللغة البرمجية
    visual_basic
    التوجّه
    black_hat
    برنامج الحماية ؟
    avast
    المتصفح
    chrome
    الإقامة
    العراق العظيم
    آخر نشاط
  • لم يكتشف اي تلغيمه
  • لم يتحصل على جوائز بعد
  • النقاط المتوفره 50
    رصيدي البنكي الحالي ( 0 )
    المستوى 11
#1
السلام عليكم

كيف حال الجميع ان شاء الله الكل ابخير

طلبي كيف يمكن جلب كود الكابتشا من خلال هذا الكود

مع اني استعملتة في موقع اخر قام بجلب الكابتشا

ولاكن هذا الموقع لايوجد فية الى رابط للكبتشا ما هوة الحل ارجو المساعدة

الكود المستعمل
كود:
Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
        Dim doc As IHTMLDocument2 = WebBrowser1.Document.DomDocument
        Dim imgRange As IHTMLControlRange = CType(doc.body, HTMLBody).createControlRange
        For Each img As IHTMLImgElement In doc.images
            If img.GetAttribute("src").ToString.Contains("image.php") Then
                imgRange.add(img)
                imgRange.execCommand("Copy", False, Nothing)
                PictureBox1.Image = Clipboard.GetDataObject.GetData(DataFormats.Bitmap)
                Exit For
            End If
        Next
    End Sub
رابط الكبتشا مع الموقع

الروابط تضهر للاعضاء فقط سجل دخولك أو قم بالتسجيل الآن.


وشكرا مقدما
 


كيف جلب كود الكابتشا من خلال هذا الكود
الحالة
مغلق و غير مفتوح للمزيد من الردود.