السلام عليكم
ارجوا من أهل الخبره مساعدتي
اذا كان عندي صفحة ويب فيها إنشاء حساب لأيميل مثلآ كيف اعمل برنامج يصنع بدون المتصفح
يعني مثلآ الصوره الي بالاختبار حق الصنع راح تكون عن طريق WebBrowser1
التكست كيف احدد ان تكست بوكس1=اسم المستخدم على الصفحه؟
وجزاكم الله خير
نحمده ونلصي على رسوله الكريم
اعطيني رابط صفحه اعملك مثال عليها
السلام عليكم ورحمة الله وبركاته
أنشيء برنامج جديد أضيف له أداة المستعرض وثلاثة مربعات نصوص وزر أمر
الكود :
كود :
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
طيب اذا اردت ان يكون ال WebBrowser بس يعرض لي الـــ captcha كيف اعملها
يمكنك عرض الكود في اضافة أداة الصور بدلا عن المستعرض
أضف للفورم أداة 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
اخي جربتها بس ماصارت تطلع عندي الصوره علامة x ياريت لو توضحلي الطريقه بمشروع وجزاك الله الف خير