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

[gorg313]

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

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

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

[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

[gorg313]

سلام

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 "~"

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