لاگین شدن به به وبلاگ

سلام من میخواستم به .... لاگین بشم

کد HTML:

---


    <input id="submit" type="submit" value=" ورود " style="font-family: BYekan"></input>

---

نام نداشت نتونستم لاگین کنم :لبخند:

سلام

Private Sub Command1_Click()

Dim inputs As Object

Dim i As Object



Set inputs = WebBrowser1.Document.getElementsByTagName("input")

For Each i In inputs

    If Trim$(i.Value) = "ورود" Then i.Click

Next

Set i = Nothing

Set inputs = Nothing

End Sub

نقل قول:

---

نوشته شده توسط meys34

سلام

Private Sub Command1_Click()

Dim inputs As Object

Dim i As Object



Set inputs = WebBrowser1.Document.getElementsByTagName("input")

For Each i In inputs

    If Trim$(i.Value) = "ورود" Then i.Click

Next

Set i = Nothing

Set inputs = Nothing

End Sub

---

خیلی ممنون آقا میثم عزیز خیلی شیوه خوبی بود

من با استفاده از تب کیبورد دستور send key تو حلقه میخواستم دورش بزنم نتونستم خخخخ :لبخند:

'WebBrowser1.SetFocus

'

'For i = 0 To 1

'    SendKeys "{TAB}"

'Next

'SendKeys "~"

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