gangsterovich
25-10-2011, 19:51
простой клик получается сделать
For Each wabpageelement As HtmlElement In allelements
If wabpageelement.GetAttribute("value") = " Войти " Then
wabpageelement.InvokeMember("click")
End If
Next
вот так.тоесть когда у кнопки есть value или id проблем не возникает
но когда дебаггер выдает только вот это
<A class=menutop onclick="this.blur(); jumptopath('/main.pl?edit='); return false;" href="#">Инвентарь</A>
как организовать клик?
мне тут сказали что сделать перебор ссылок.и дали некое подобие.
Dim hrefs As String
Dim href As Object
I = 0
For Each href In brwWebBrowser.Document.frames(8).Document.links
hrefs = hrefs + href.href + " " + href.innertext + vbNewLine
If I Mod 1 = 0 And I <> 0 Then
MsgBox hrefs
hrefs = ""
End If
I = I + 1
Next
как подобное реализовать?выручите пожалста.
кстати ссылки все время генерируются новые на "инвентарь"
For Each wabpageelement As HtmlElement In allelements
If wabpageelement.GetAttribute("value") = " Войти " Then
wabpageelement.InvokeMember("click")
End If
Next
вот так.тоесть когда у кнопки есть value или id проблем не возникает
но когда дебаггер выдает только вот это
<A class=menutop onclick="this.blur(); jumptopath('/main.pl?edit='); return false;" href="#">Инвентарь</A>
как организовать клик?
мне тут сказали что сделать перебор ссылок.и дали некое подобие.
Dim hrefs As String
Dim href As Object
I = 0
For Each href In brwWebBrowser.Document.frames(8).Document.links
hrefs = hrefs + href.href + " " + href.innertext + vbNewLine
If I Mod 1 = 0 And I <> 0 Then
MsgBox hrefs
hrefs = ""
End If
I = I + 1
Next
как подобное реализовать?выручите пожалста.
кстати ссылки все время генерируются новые на "инвентарь"