Enter کردن در Text box

[alidashagh]

سلام
من میخوام تو یک تکست باکس که کدش این است دستور senkeys را اجرا کنم .یعنی روی command1 کلیک شد بره و تو سایت و درون آن تکس باکس عملیات Enter را انجام بده

<input type="text" value="" autocomplete="off" size="16" class="newtag form-input-tip" name="newtag[post_tag]" id="new-tag-post_tag">
خیلی ممنون

[alidashagh]

دوستان اگر سوالم واضح نیست بگید تا کامل توضیح بدم ...

[rezankh]

سوالتون مربوط به بخش تحت شبكه هست مي بايست اونجا مطرحش كنيد. به هر حال مي‌تونيد از كامپوننتwebbrowser استفاده كنيد كه نمونه اينكار تو سايت خيلي زياده و البته از روش هندل كردن هم ممكنه كه بازهم مطلب در اين مورد هست.

[alidashagh]

از كامپوننتwebbrowser استفاده كن نمونه اينكار تو سايت خيلي زياده.
عذر میخوام یادم رفت بگم
از کامپوننت webbrowser استفاده کردم همه چیز اوکی هست فقط :
من یه باتن تو برنامم دارم میخوام وقتی روش کلیک شد بره و عملیات اینتر را تو اون input box داخل سایت انجام بده
ممنون

[rezankh]

WebBrowser1.Document.Forms(0).elements("newtag[post_tag]").Click

[alidashagh]

WebBrowser1.Document.Forms(0).elements("newtag[post_tag]").Click

ممنون این کد را امتحان کرده بودم ولی جواب نمیده ...
درون اون inputbox یا باید اینتر را بزنی و یا باید روی یک دکمه کلیک کنی که سورسش این هست :

<input type="button" value="افزودن" class="button tagadd">
حالا راه حلی هست؟

[rezankh]

WebBrowser1.Document.Forms(0).Submit
اگه جواب نداد مقدار 0 رو مي‌تونيد تغيير بديد.
يك راه ديگه هم هست اينكه


For Each obj In Me.WebBrowser1.Document.All
attr = obj.getAttribute("Value")
If attr = "افزودن" Then obj.Click
Next

[alidashagh]

WebBrowser1.Document.Forms(0).Submit
اگه جواب نداد مقدار 0 رو مي‌تونيد تغيير بديد.
يك راه ديگه هم هست اينكه


For Each obj In Me.WebBrowser1.Document.All
attr = obj.getAttribute("Value")
If attr = "افزودن" Then obj.Click
Next

خیلی خیلی ممنون با این کد جواب داد
For Each obj In Me.WebBrowser1.Document.All
attr = obj.getAttribute("Value")
If attr = "افزودن" Then obj.Click
Next