[3booody]

السلام عليكم

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

[الشخصية المجهولة]

+1 .

[ربيع]

نحمده ونلصي على رسوله الكريم

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

[الشخصية المجهولة]

vb4arb.com/vb/

[3booody]

DreamsDotNet كتب :نحمده ونصلي على رسوله الكريم

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

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

تحتوى على اسم وباسورد ونص اختبار الصوره

[kslawy]

السلام عليكم ورحمة الله وبركاته


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


الكود :

كود :

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

[3booody]

مشكور يامبدع ربي يوفقك

[3booody]

طيب اذا اردت ان يكون ال WebBrowser بس يعرض لي الـــ captcha كيف اعملها

[kslawy]

يمكنك عرض الكود في اضافة أداة الصور بدلا عن المستعرض

أضف للفورم أداة 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

[3booody]

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