چگونه این نوع دکمه HTML را در WebBrowser کلیک کنم؟(VB.NET)

با سلام
دوستان ازتون خواهشمند هستم که راهنماییم کنید تا بتونم این نوع دکمه رو کلیک کنم.همه نوع دکمه میتونم کلیک کنم بجز این که خیلی ضروریه برام و نیاز دارم.

کد:

---

<div id="div_sMenu_text_wimax_auth.php" class="s_text" style="top: 101px;">
<table onclick="if(loading == 1) return;change_page(&quot;wimax_auth.php&quot;)" onmouseover="change_focus_over(&quot;div_sMenu_img_wimax_auth.php&quot;)" onmouseout="change_focus_out()" width="120px" height="30px" style="color: rgb(255, 255, 255); cursor: pointer;">
<tbody>
<tr>
<td>Authentication</td>
</tr>
</tbody>
</table>
</div>

---

سلام
اگر WebBrowser روی فرم تان قرار داده اید و کامل بارگذاری شده، احتمالا یکی از کدهای زیر یا چیزی شبیه اینها باید کار کند:

کد:

---

Me.WebBrowser1.Document.GetElementById("div_sMenu_text_wimax_auth.php").FirstChild.InvokeMember("click")

Me.WebBrowser1.Document.All("div_sMenu_text_wimax_auth.php").FirstChild.InvokeMember("click")

Me.WebBrowser1.Document.GetElementById("div_sMenu_text_wimax_auth.php").GetElementsByTagName("table")(0).InvokeMember("click")

Me.WebBrowser1.Document.All("div_sMenu_text_wimax_auth.php").GetElementsByTagName("table")(0).InvokeMember("click")

---

واقعا متشکرم.مشکل حل شد

ببخشید یه سوال دیگه هم خدمتتون داشتم. من هر کاری میکنم نمیتونم با VB.NET متن های این سه فیلد زیر رو تغییر بدم. (WMX_USER_NAME و WMX_PASSW و WMX_PASSW2)

کد:

---

</td></tr>
<tr id="TR_WMX_USER_NAME" style="display:none"><td>Username</td><td>
<input type="text" id="WMX_USER_NAME" name="WMX_USER_NAME" size="32" maxlength="32">
</td></tr>
<tr id="TR_WMX_PASSW" style="display:none"><td>Password</td><td>
<input type="password" id="WMX_PASSW" name="WMX_PASSW" size="32" maxlength="32">
</td></tr>
<tr id="TR_WMX_PASSW2" style="display:none"><td>Confirm Password</td><td>
<input type="password" id="WMX_PASSW2" name="WMX_PASSW2" size="32" maxlength="32">
</td></tr>
</tbody>

---

حتی از دستورات زیر هم برای تغییر استفاده کردم اما نشد:

کد:

---

WebBrowser1.Document.GetElementById("WMX_USER_NAME").SetAttribute("value", "test")

---

و

کد:

---

'WebBrowser1.Document.GetElementById("WMX_USER_NAME").InnerText = "test"

---

خواهشن کمکم کنید چون خیلی ضروریه .ممنونتونم

سلام
دقت کنید، مانند مورد قبلی id های شما مستقیم مربوط به تگ مورد نظرتان نیستند...
شما تگ دلخواه تان را درست پیدا نمیکنید، در مورد فعلی هم TR_WMX_USER_NAME به تگ tr اشاره دارد ولی میخواهید تگ input را تغییر دهید، پس از یافتن تگ با id باید با کمک GetElementsByTagName در فرزندان آن تگ دنبال تگ مورد نظرتان بگردید و سپس میتوانید هر کاری با آن تگ انجام دهید.

کد:

---

Dim tag = Me.WebBrowser1.Document.All("TR_WMX_USER_NAME").GetElementsByTagName("input")(0)
Dim tag = Me.WebBrowser1.Document.GetElementById("TR_WMX_USER_NAME").GetElementsByTagName("input")(0)

---

ممنون بابت پاسخگوییتون اما ممکنه بفرمایید که بعد از اون خطی که شما نوشتید من باید چه کدی قرار دهم؟چون این قضیه که مستقیم نیستش یکم برام گنگه.
اگه براتون مقدوره یه نمونه کد کاملش که بتونه فیلد رو تغییر بده برام بنویسید تا متوجه بشم.
متشکرم

سلام
بعد که مشخص است!!! همان SetAttribute یا InnerText را روی تگ صحیح یافته شده اجرا کنید!

کد:

---

Dim tag = Me.WebBrowser1.Document.All("TR_WMX_USER_NAME").GetElementsByTagName("input")(0)
Dim tag = Me.WebBrowser1.Document.GetElementById("TR_WMX_USER_NAME").GetElementsByTagName("input")(0)

tag.SetAttribute("value", "test")
tag.InnerText = "test"

or...

Me.WebBrowser1.Document.All("TR_WMX_USER_NAME").GetElementsByTagName("input")(0).InnerText = "test"
Me.WebBrowser1.Document.GetElementById("TR_WMX_USER_NAME").GetElementsByTagName("input")(0).SetAttribute("value", "test")

---

کار نکرد آقای شریفی.بعد از اجرای کد ارور داده میشه.فکر میکنم بخوبی فراخوانی نشده.ممنونتون میشم اگر در این رابطه به من کمک کنید تا بتونم تکمیل کنم.

سلام
دقت کنید که style جدول شما display:none است که معنی اش مخفی بودن است، انشاا... مرئی که میشود و بعد شما روی آن تغییر میدهید؟ :n13:
وگرنه دستورات صحیح است
[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]