تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
استخدام web Browser
#1
السلام عليكم

ارجوا من أهل الخبره مساعدتي
اذا كان عندي صفحة ويب فيها إنشاء حساب لأيميل مثلآ كيف اعمل برنامج يصنع بدون المتصفح
يعني مثلآ الصوره الي بالاختبار حق الصنع راح تكون عن طريق WebBrowser1
التكست كيف احدد ان تكست بوكس1=اسم المستخدم على الصفحه؟
وجزاكم الله خير
الرد }}}}
تم الشكر بواسطة:
#2
+1 .
الرد }}}}
تم الشكر بواسطة:
#3
نحمده ونلصي على رسوله الكريم

اعطيني رابط صفحه اعملك مثال عليها
الرد }}}}
تم الشكر بواسطة:
#4
vb4arb.com/vb/
الرد }}}}
تم الشكر بواسطة:
#5
DreamsDotNet كتب :نحمده ونصلي على رسوله الكريم

اعطيني رابط صفحه اعملك مثال عليها

تفضل اخي مثل هذي
http://www.buzzatom.com/register/register.php

تحتوى على اسم وباسورد ونص اختبار الصوره
الرد }}}}
تم الشكر بواسطة:
#6
السلام عليكم ورحمة الله وبركاته


أنشيء برنامج جديد أضيف له أداة المستعرض وثلاثة مربعات نصوص وزر أمر


الكود :


كود :
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.WebBrowser1.Navigate("http://www.buzzatom.com/register/register.php")
    End Sub


    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        Me.WebBrowser1.Document.GetElementById("user").SetAttribute("value", Me.TextBox1.Text.Trim)
    End Sub


    Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged
        Me.WebBrowser1.Document.GetElementById("pass").SetAttribute("value", Me.TextBox2.Text.Trim)
    End Sub


    Private Sub TextBox3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox3.TextChanged
        Me.WebBrowser1.Document.GetElementById("captcha").SetAttribute("value", Me.TextBox3.Text.Trim)
    End Sub


    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim ec As HtmlElementCollection = Me.WebBrowser1.Document.GetElementsByTagName("Input")
        For Each elmnt As HtmlElement In ec
            Dim p As String = elmnt.GetAttribute("value").ToString
            If p = "Create ID" Then
                elmnt.InvokeMember("click")
            End If
        Next
    End Sub
(وَقُل رَّبِّ زِدْنِي عِلْمًا)

الرد }}}}
تم الشكر بواسطة:
#7
مشكور يامبدع ربي يوفقك
الرد }}}}
تم الشكر بواسطة:
#8
طيب اذا اردت ان يكون ال WebBrowser بس يعرض لي الـــ captcha كيف اعملها
الرد }}}}
تم الشكر بواسطة:
#9
يمكنك عرض الكود في اضافة أداة الصور بدلا عن المستعرض

أضف للفورم أداة PictureBox وضع خاصية الـ SizeMode إلي CenterImage

واستخدم هذه الدالة في زر أمر :
كود :
Private Sub RefreshCode()
        Dim ec As HtmlElementCollection = Me.WebBrowser1.Document.GetElementsByTagName("img")
        For Each elmnt As HtmlElement In ec
            Dim p As String = elmnt.GetAttribute("src").ToString
            If p.Contains("register.nimbuzz.com") Then
                Me.PictureBox1.ImageLocation = p.ToString
            End If
        Next
    End Sub
(وَقُل رَّبِّ زِدْنِي عِلْمًا)

الرد }}}}
تم الشكر بواسطة:
#10
اخي جربتها بس ماصارت تطلع عندي الصوره علامة x ياريت لو توضحلي الطريقه بمشروع وجزاك الله الف خير
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكلة في كود برنامج Web Browser khaled12345 4 210 28-06-17, 11:40 AM
آخر رد: khaled12345
  مساعده بالتعامل مع web browser qadar elzaman 6 269 25-06-17, 09:18 PM
آخر رد: qadar elzaman
  المساعدة حول طريقة استخدام Run as Date ddemed 2 129 11-06-17, 09:13 PM
آخر رد: عبدالرحمن المكاوي
  [VB.NET] كيفية اضافة change password بدون استخدام الكنترول ؟ ahmednab 1 412 26-05-17, 06:57 PM
آخر رد: النسر79
  فتح new window باستخدام webkit browser control weswes88 1 163 03-05-17, 11:32 AM
آخر رد: Basil Abdallah
  [VB.NET] طريقة منع استخدام form1 بعد فتح form2 abomo3ath 3 184 19-04-17, 10:56 AM
آخر رد: عبـدالله
  [VB.NET] سؤال عن استخدام e.HasMorePages = True ssayed111 1 140 18-04-17, 04:26 PM
آخر رد: عبـدالله
  [سؤال] كيف اضع ل Folder Browser Dialog ادوات؟؟؟ Mohamed371 0 87 24-03-17, 06:49 PM
آخر رد: Mohamed371
  [سؤال] كيف يمكنني استخدام متغير لمناداة اي اداة اليوم مبتدئة وغداً محترفة 3 268 04-02-17, 09:57 PM
آخر رد: عبد الرحمن
  خطأ بعد استخدام العمل في الخلفية أسامة السالمي 2 249 17-12-16, 02:20 PM
آخر رد: أسامة السالمي

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


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