الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

مشكلة في ال WebBrowser

بدأه te50centmy في 23 أكتوبر 2011 · 4 رد · 865 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم اعضاء المنتدى الكرام

انا عندي مشكلة في استخدام هذ الكود

                Dim theElementCollection As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("Input")
                For Each curElement As HtmlElement In theElementCollection
                    Dim controlName As String = curElement.GetAttribute("name").ToString
                    If controlName = "username" Then
                        curElement.SetAttribute("Value", TextBox1.Text)
                    End If
                Next
                theElementCollection = WebBrowser1.Document.GetElementsByTagName("Input")
                For Each curElement As HtmlElement In theElementCollection
                    Dim controlName As String = curElement.GetAttribute("name").ToString
                    If controlName = "password" Then
                        curElement.SetAttribute("Value", TextBox2.Text)
                    End If
                Next
                theElementCollection = WebBrowser1.Document.GetElementsByTagName("Input")
                For Each curElement As HtmlElement In theElementCollection
                    If curElement.GetAttribute("name").Equals("") Then
                        curElement.InvokeMember("click")
                    End If
                Next

على هذه الصفحة

				<td align="center" valign="bottom" height="175" colspan="2">
					<form name="login" action="http://www.hema.com/login" method="post"
					     onSubmit="return doLogin()" >
						<input type="hidden" name="dst" value="" />
						<input type="hidden" name="popup" value="true" />

							<table width="100" style="background-color: #ffffff">
								<tr><td align="right">login</td>
										<td><input style="width: 80px" name="username" type="text" value=""/></td>
								</tr>
								<tr><td align="right">password</td>
										<td><input style="width: 80px" name="password" type="password"/></td>
								</tr>
								<tr><td> </td>
										<td><input type="submit" value="OK" /></td>
								</tr>
							</table>
					</form>
				</td>
			</tr>

والسبب ان البوتن ليس له ID

<td><input type="submit" value="OK" /></td>

ما العمل الواحد تعب والله

تم تعديل هذه المشاركة بواسطة te50centmy في 23 أكتوبر 2011 في 10:27

#2

لدرجة هذه السؤال صعب ؟

#3

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

اخي جرب الكود التالي

    	Dim theElementCollection As HtmlElementCollection = WebBrowser1.Document.GetElementsByTagName("Input")
    	For Each curElement As HtmlElement In theElementCollection
        	Dim controlName As String = curElement.GetAttribute("name").ToString
        	If controlName = "username" Then
            	curElement.SetAttribute("Value", TextBox1.Text)
        	ElseIf controlName = "password" Then
            	curElement.SetAttribute("Value", TextBox2.Text)
        	Else
            	If curElement.GetAttribute("Type") = "submit" Then curElement.InvokeMember("Click")
        	End If
    	Next
1

.:: Wish to become better and better ::.

#4

السلام عليكم ...

المثال يعمل على انترنت اكسبلورر و فايرفوكس ..

ملاحظة :

بعض الــ attributes .. لا تعمل على كل المتصفحات ...

<html>
<head>
<script>
function MyFunction() {

        	alert('ggggggggggg');
			document.getElementById("mySubmit").value = 'HHHH';
			}

</script>
</head>
<body>

 <input id="btn1" type=button value='Click Me' onclick=javascript:MyFunction()> 
 <input id="mySubmit" type="submit" value="OK" />



</body>
</html>

أي يمكن وضع ID .. للبوتن .. و يعمل من الجافا سكربت ...

تم تعديل هذه المشاركة بواسطة houssam11350_11350 في 25 أكتوبر 2011 في 11:24

لا إله إلا الله ... محمد رسول الله

لو كانت مشاركتي مفيدة و تريد تشجيعي على المزيد من العطاء , فضلا قم بتقييم المشاركة

المعرًف القديم : houssam11350_11350

من مواضيعي : ArabGenCode : مولد كود و إجراءات مخزنة و واجهات لجداول سيكوال سيرفر

#5

الف شكر على الردود الجميلة الكود فعلا اشتغل

مواضيع مشابهة