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

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



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