PDA

View Full Version : کلیک WebBrowser



aleas2
پنج شنبه 11 اردیبهشت 1393, 21:33 عصر
دوستان کسی میتونه راهنمایی کنه چرا این کد عمل نمیکنه؟


<input type="submit" name="master$ContentPlaceHolder1$btnSubmit" value="ورود به بخش مدیریت" onclick="javascript:WebForm_DoPostBackWithOptions(new WebForm_PostBackOptions(&quot;master$ContentPlaceHolder 1$btnSubmit&quot;, &quot;&quot;, true, &quot;&quot;, &quot;&quot;, false, false))" id="master_ContentPlaceHolder1_btnSubmit" class="btn" style="width:125px;" /></P>


For n = 0 To WebBrowser1.Document.All.Length - 1
If WebBrowser1.Document.All(n).tagName = "INPUT" Then

If WebBrowser1.Document.All(n).Type = "submit" Then

WebBrowser1.Document.All(n).Click
exit for
End If
End If

Next n

سید حمید حق پرست
پنج شنبه 11 اردیبهشت 1393, 22:32 عصر
سلام علیکم
آدرس سایت مورد نظرتون بزارید با قسمت مورد نظر
موفق باشید.

یا علی (ع)

سید حمید حق پرست
پنج شنبه 11 اردیبهشت 1393, 22:48 عصر
با کد زیر :
WebBrowser1.Document.Forms(0).elements("master$ContentPlaceHolder1$btnSubmit").Click
فقط فاصله داخل کد پاک کنید.
موفق باشید.

یا علی (ع)

aleas2
پنج شنبه 11 اردیبهشت 1393, 23:05 عصر
سلام ممنون خودم مشکل متوجه شدم بخاطری این کد قرار دادم عمل نمیکرد !

WebBrowser1.Silent = True

حالا راه حلی هسته که وقتی از این کد

WebBrowser1.Silent = True
استفاده میکنم کد زیر به به کارش عمل بکنه!


For n = 0 To WebBrowser1.Document.All.Length - 1
If WebBrowser1.Document.All(n).tagName = "INPUT" Then

If WebBrowser1.Document.All(n).Type = "submit" Then

WebBrowser1.Document.All(n).Click
exit for
End If
End If

Next n

سید حمید حق پرست
پنج شنبه 11 اردیبهشت 1393, 23:17 عصر
خب چرا این همه کد؟ با همون یک خط کدی که در پست 3 گذاشتم کلیک میکنه که!
موفق باشید.

یا علی (ع)

aleas2
جمعه 12 اردیبهشت 1393, 00:08 صبح
بخاطری نام و id هر روز تغییر میکنه ! تنها چیزی تغییر نمیکنه type هسته