منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
استخدام web Browser - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : استخدام web Browser (/showthread.php?tid=8346)

الصفحات: 1 2

استخدام web Browser - 3booody - 05-04-13

السلام عليكم

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

استخدام web Browser - الشخصية المجهولة - 05-04-13

+1 .

استخدام web Browser - ربيع - 06-04-13

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

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

استخدام web Browser - الشخصية المجهولة - 06-04-13

vb4arb.com/vb/

استخدام web Browser - 3booody - 06-04-13

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

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

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

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

استخدام web Browser - kslawy - 06-04-13

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


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


الكود :


كود :
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


استخدام web Browser - 3booody - 06-04-13

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

استخدام web Browser - 3booody - 06-04-13

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

استخدام web Browser - kslawy - 06-04-13

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

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


استخدام web Browser - 3booody - 06-04-13

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