ala-x » 30.05.2013 (Чт) 8:20
Dim y As Object
For Each y In WebBrowser1.document.getElementsByTagName("input")
If LCase(y.Type) = "submit" And y.Value = "Вход" Then
y.Click
End If
Next
Qwertiy » 30.05.2013 (Чт) 8:43
ala-x писал(а):Но вот проблемка в том что на странице две кнопочки с такими параметрами и клик происходит по второй.Как кликнуть по первой?
ger_kar » 30.05.2013 (Чт) 11:29
Dim y As Object
Dim I As Long
For Each y In WebBrowser1.document.getElementsByTagName("input")
If LCase(y.Type) = "submit" And y.Value = "Вход" And I=1 Then
y.Click
End If
I = I +1
Next ala-x » 30.05.2013 (Чт) 11:43
<noscript><font color=red><b>Внимание! Для нормальной работы c системой у вас ДОЛЖНА быть включена поддержка JavaScript!<br>В частности, вы не можете использовать элементы меню аккаунта и зарабатывать кредиты для показа ваших сайтов!<P><a href=?mode=pay&cmd=noscriptmenu>Меню без использования скриптов</a></b></font><P></noscript>Введите данные для входа в систему:
<form method="post">
<input name="qs" type="hidden" value="">
Логин: <input name="user" value=""> Пароль: <input name="pss" type="password"> <input type="submit" value="Вход"><br>
<input name="ipskip" id="ipskip" type="checkbox" value="1"> <label for="ipskip">Не привязывать сессию к IP-адресу</label></form>
Если вы ещё не являетесь пользователем системы, <a href="reg">зарегистрируйтесь!</a><p>
Если вы забыли пароль, воспользуйтесь <a href="password">напоминанием пароля</a><p><ul><li><b>OpenID-авторизация</b></li></ul>
Введите ваш OpenID:
<form action="/op/" method="get">
<input name="qs" type="hidden" value="/account">
OpenID: <input name="openid"> <input type="submit" value="Вход"></form> Qwertiy » 30.05.2013 (Чт) 12:03
ala-x писал(а):Нет так вообще ни по какой не кликает
Dim Y As Object
Dim ClickIt As Boolean
ClickIt = False
For Each Y In WebBrowser1.document.getElementsByTagName("input")
If LCase(Y.Type) = "submit" And Y.Value = "Вход" Then
If ClickIt Then
Y.Click
Exit For
Else
ClickIt = True
End If
End If
Next Y Qwertiy » 30.05.2013 (Чт) 12:08
ala-x писал(а):вот сам код кнопочек со страницы
Qwertiy » 30.05.2013 (Чт) 22:48
ala-x писал(а):Нет.к сожалению опять по второй кликает
ala-x » 30.05.2013 (Чт) 22:52
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>JetSwap | Аккаунт</title>
<link href=http://dl3.jetswap.net/j/jetswap.css rel=stylesheet>
<link rel="shortcut icon" href=http://dl3.jetswap.net/j/favicon.ico type=image/x-icon>
</head>
<body>
<Table cellspacing=0 cellpadding=0 width=100%><tr><td Background=http://dl3.jetswap.net/j/i/resize.jpg Width=100% bgcolor=white><td align=right>
<table cellspacing=0 cellpadding=0 align=center class=toptable>
<tr><td><img src=http://dl3.jetswap.net/j/i/top_blue_left.gif width=23 height=37></td>
<td class=topBlueIcons><img src=http://dl3.jetswap.net/j/i/top_blue_icons.gif class=topBlueIcons usemap=#icons></td>
<map name=icons><area shape=rect alt=главная coords="0,0,74,15" href=http://www.jetswap.com>
<area shape=rect alt=контакты coords="82,0,155,15" href=http://www.jetswap.com/contacts.htm>
<area shape=rect alt=реклама coords="165,0,235,15" href=http://www.jetswap.com/r.htm>
</map>
<td><img src=http://dl3.jetswap.net/j/i/top_blue_right.gif width=23 height=37></td>
</tr><tr><td colspan=3>
<table cellspacing=0 cellpadding=0 border=0>
<tr>
<td><a href=http://www.jetswap.com><img src=http://dl3.jetswap.net/j/i/logo_left.jpg width=261 height=96 border=0 alt="JetSwap — система раскрутки сайтов"></a></td>
<td><img src=http://dl3.jetswap.net/j/i/logo_center_01.jpg width=127 height=96></td>
<td><img src=http://dl3.jetswap.net/j/i/logo_center_02.jpg width=129 height=96></td>
<td><img src=http://dl3.jetswap.net/j/i/logo_center_03.jpg width=128 height=96></td>
<td><img src=http://dl3.jetswap.net/j/i/logo_right.jpg width=135 height=96></td>
</tr></table></td></tr><tr>
<td colspan=3>
<table cellspacing=0 cellpadding=0 border=0>
<tr><td><a href=http://go.jetswap.com/reg><img src=http://dl3.jetswap.net/j/i/buttons/01.gif width=135 height=32 border=0 alt=Регистрация></a></td>
<td><a href=http://www.jetswap.com/full.htm><img src=http://dl3.jetswap.net/j/i/buttons/02.gif width=126 height=32 border=0 alt="О системе"></a></td>
<td><a href=http://go.jetswap.com/account><img src=http://dl3.jetswap.net/j/i/buttons/03.gif width=127 height=32 border=0 alt=Аккаунт></a></td>
<td><a href=http://go.jetswap.com/stat?mode=full><img src=http://dl3.jetswap.net/j/i/buttons/04.gif width=129 height=32 border=0 alt=Статистика></a></td>
<td><a href=http://www.jethosting.ru target=_blank><img src=http://dl3.jetswap.net/j/i/buttons/05.gif width=128 height=32 border=0 alt=Хостинг></a></td>
<td><a href=http://regjet.ru target=_blank><img src=http://dl3.jetswap.net/j/i/buttons/06.gif width=134 height=32 border=0 alt=Домены></a></td>
</tr></table></td></tr><tr>
<td><img src=http://dl3.jetswap.net/j/i/center_blue_left.gif width=23 height=18></td>
<td class=centerBlueBg> </td>
<td><img src=http://dl3.jetswap.net/j/i/center_blue_right.gif width=23 height=18></td>
</tr></table></table>
<table cellspacing=0 cellpadding=0 align=center class=contenttable>
<tr><td class=leftLine rowspan=4><img src=http://dl3.jetswap.net/j/i/no.gif width=12 height=1></td>
<td colspan=3><img src=http://dl3.jetswap.net/j/i/no.gif width=756 height=9></td>
<td class=rightLine rowspan=4><img src=http://dl3.jetswap.net/j/i/no.gif width=12 height=1></td>
</tr><tr><td></td><td class=content>
<!--КОНТЕНТ-->
<table cellspacing=0 cellpadding=0 border=0 width=100%>
<tr><td class=title><h1>Вход в аккаунт</h1></td>
</tr><tr><td class=contentTwo> <noscript><font color=red><b>Внимание! Для нормальной работы c системой у вас ДОЛЖНА быть включена поддержка JavaScript!<br>В частности, вы не можете использовать элементы меню аккаунта и зарабатывать кредиты для показа ваших сайтов!<P><a href=?mode=pay&cmd=noscriptmenu>Меню без использования скриптов</a></b></font><P></noscript>Введите данные для входа в систему:
<form method=post>
<input type=hidden name=qs value="">
Логин: <input name=user value=""> Пароль: <input type=password name=pss> <input type=submit value=Вход><br>
<input type=checkbox name=ipskip value=1 id=ipskip> <label for=ipskip>Не привязывать сессию к IP-адресу</label></form>
Если вы ещё не являетесь пользователем системы, <a href=reg>зарегистрируйтесь!</a><p>
Если вы забыли пароль, воспользуйтесь <a href=password>напоминанием пароля</a><P><ul><li><b>OpenID-авторизация</b></ul>
Введите ваш OpenID:
<form action=/op/ method=get>
<input type=hidden name=qs value="/account">
OpenID: <input name=openid> <input type=submit value=Вход></form><tr><td><img src=http://dl3.jetswap.net/j/i/no.gif width=505 height=1></td>
</tr></table><!--/КОНТЕНТ-->
</td><td class=rightside align=right>
<!--ПРАВАЯ КОЛОНКА-->
<table cellspacing=0 cellpadding=0 class=rightside>
<tr><td height=9><img src=http://dl3.jetswap.net/j/i/rightside_top.gif width=185 height=9></td></tr>
<tr><td class=rightsidePadding>
<!--КОНТЕНТ ПРАВОЙ КОЛОНКИ-->
<table cellspacing=0 cellpadding=0 class=rightside>
<tr><td class=rightsideTitle>
Поддержка
</td></tr>
<tr><td>
<!-- webim button --><a href="http://live.jetswap.net:8081/client.php?locale=ru" target="_blank" onclick="if(navigator.userAgent.toLowerCase().indexOf('opera') != -1 && window.event.preventDefault) window.event.preventDefault();this.newWindow = window.open('http://live.jetswap.net:8081/client.php?locale=ru&url='+escape(document.location.href)+'&referrer='+escape(document.referrer), 'webim', 'toolbar=0,scrollbars=0,location=0,status=1,menubar=0,width=640,height=480,resizable=1');this.newWindow.focus();this.newWindow.opener=window;return false;"><img src="http://live.jetswap.net:8081/b.php?i=simple&lang=ru" border="0" width="200" height="55" alt=""/></a><!-- / webim button -->
<tr><td class=rightsideTitle>
МЕНЮ
</td></tr>
<tr><td><table cellspacing=0 cellpadding=0 style="border: 0; width: 100%; padding-top: 5px;">
<tr><td>
<img src=http://dl3.jetswap.net/j/i/marker.gif width=10 height=10> <a href=/>Главная страница</a><br>
<img src=http://dl3.jetswap.net/j/i/marker.gif width=10 height=10> <a href=http://jetswap.com/news.htm>Новости</a><br>
<img src=http://dl3.jetswap.net/j/i/marker.gif width=10 height=10> <a href=http://jetswap.com/rules.htm>Правила</a><br>
<img src=http://dl3.jetswap.net/j/i/marker.gif width=10 height=10> <a href=http://jetswap.com/partner.htm>Партнерам</a><br>
<img src=http://dl3.jetswap.net/j/i/marker.gif width=10 height=10> <a href=http://jetswap.com/r.htm>Рекламодателям</a><br>
<img src=http://dl3.jetswap.net/j/i/marker.gif width=10 height=10> <a href=http://jetswap.com/rek.htm>Помощь</a><br>
<img src=http://dl3.jetswap.net/j/i/marker.gif width=10 height=10> <a href=http://jetswap.com/h>Путеводитель</a><br>
<img src=http://dl3.jetswap.net/j/i/marker.gif width=10 height=10> <a href=http://link.jetswap.com>Обмен ссылками</a><br>
<img src=http://dl3.jetswap.net/j/i/marker.gif width=10 height=10> <a href=http://list.jetswap.com>Каталог сайтов</a><br>
<img src=http://dl3.jetswap.net/j/i/marker.gif width=10 height=10> <a href=http://forum.jetswap.com>Форум</a>
<br><br></td></tr></table>
</td></tr><advtag><tr><td class=rightsideTitle>
РЕКЛАМА
</td></tr>
<tr><td align=center>
<br>
<a href=http://www.jethosting.ru target=_blank><img src=http://www.jethosting.ru/ban/hosted.gif border=0 width=88 height=31 alt=Хостинг от JetHosting.ru></a>
<P><a href="http://www.megastock.ru/" target="_blank"><img src="http://www.webmoney.ru/img/icons/88x31_wm_blue_on_white_ru.png" alt="www.megastock.ru" border="0"></a><P>
<P><a href="https://passport.webmoney.ru/asp/certview.asp?wmid=403351792224" target="_blank"><img src="http://www.webmoney.ru/img/icons/88x31_wm_v_blue_on_white_ru.png" alt="Здесь находится аттестат нашего WM идентификатора 403351792224" border="0"><br><span style="font-size: 0,7em;">Проверить аттестат</span></a><P>
<p>
<script src="http://tools.spylog.ru/counter2.2.js" type="text/javascript" id="spylog_code" counter="350499" ></script>
<noscript><a href="http://u3504.99.spylog.com/cnt?cid=350499&f=3&p=0" target="_blank"><img src="http://u3504.99.spylog.com/cnt?cid=350499&p=0" alt='SpyLOG' border='0' width=88 height=63></a></noscript>
</p></td></tr></advtag></table>
<!--/КОНТЕНТ ПРАВОЙ КОЛОНКИ-->
</td></tr></table><!--/ПРАВАЯ КОЛОНКА-->
</td></tr><tr><td colspan=2></td>
<td height=9 style="padding-bottom: 10px;"><img src=http://dl3.jetswap.net/j/i/rightside_bottom.gif width=185 height=9></td>
</tr><tr><td colspan=2></td>
<td class=copyright>© 2003-2013 <a href=http://www.jetswap.com>JetSwap.com.</a><br>Дизайн: <a href=http://manitu.metal.dn.ua>Giche Manitu</a></td>
</tr><tr><td align=center colspan=5><img src=http://dl3.jetswap.net/j/i/bottom.png width=100% height=13></td></tr>
</table></body></html> Qwertiy » 31.05.2013 (Пт) 1:45
ala-x писал(а):Вот полный код страницы
ala-x » 31.05.2013 (Пт) 10:18
Private Sub Command1_Click()
WebBrowser1.Navigate "http://go.jetswap.com"
End Sub
Private Sub Command2_Click()
WebBrowser1.Document.All("user").Value = Text3
WebBrowser1.Document.All("pss").Value = Text4
End Sub
Private Sub Command6_Click()
WebBrowser1.Document.All(427).Click
End Sub
Qwertiy » 31.05.2013 (Пт) 10:51
ala-x писал(а):не понял..код vb?
Вот этот:Qwertiy писал(а):код, который при её готкрытии в браузере получается
<table cellspacing="0" cellpadding="0" style="border: 0; width: 100%; padding-top: 5px;">
<form action="http://go.jetswap.com/account?mode=auth" method="post"></form>
<tbody><tr><td align="right"><img src="http://dl3.jetswap.net/j/i/txt_login.gif" width="35" height="6" alt="Логин"></td><td style="padding-left: 8px;" colspan="2"><input type="text" name="user" id="user" class="reg">
</td></tr><tr><td align="right"><img src="http://dl3.jetswap.net/j/i/txt_password.gif" width="41" height="6" alt="Пароль"></td><td style="padding-left: 8px;" colspan="2"><input type="password" name="pss" id="pss" class="reg">
</td></tr><tr><td align="right"> </td><td style="padding-left: 5px;"> </td><td><input type="submit" class="button" value="войти"></td></tr>
<tr><td colspan="3" class="smalltext"><a href="http://go.jetswap.com/password">! Напомнить пароль</a><br><a href="http://go.jetswap.com/account"><b>OpenID-авторизация</b></a> <br><br></td></tr>
</tbody></table> ala-x » 31.05.2013 (Пт) 10:59
Qwertiy » 31.05.2013 (Пт) 11:25
ala-x писал(а):WebBrowser1.Navigate "http://go.jetswap.com"
ala-x писал(а):http://go.jetswap.com/account
ala-x » 31.05.2013 (Пт) 18:10
<tr> … </tr><tr><td align="right"> … </td><td style="padding-left: 5px;"> … </td><td><input class="button" type="submit" value="войти"></input></td></tr><tr> … </tr></tbody></table></td></tr><tr> … </tr><tr> … </tr><tr> … </tr><tr> … </tr></tbody></table>
<!--/КОНТЕНТ ПРАВОЙ КОЛОНКИ-->
</td></tr></tbody></table>
<!--/ПРАВАЯ КОЛОНКА-->
</td></tr><tr> … </tr><tr> … </tr><tr> … </tr></tbody></table> Qwertiy » 31.05.2013 (Пт) 21:26
http://jetswap.com/ писал(а):
- Код: Выделить всё
document.getElementsByTagName("input")
- Код: Выделить всё
[
<input type="text" name="user" id="user" class="reg">,
<input type="password" name="pss" id="pss" class="reg">,
<input type="submit" class="button" value="войти">
]
http://go.jetswap.com/account писал(а):
- Код: Выделить всё
(function() {
var forms = document.getElementsByTagName("form");
for(var q=0; q<forms.length; ++q)
if(forms[q].method==="post")
return forms[q].getElementsByTagName("input");
})()
- Код: Выделить всё
[
<input type="hidden" name="qs" value>,
<input name="user" value>,
<input type="password" name="pss">,
<input type="submit" value="Вход">,
<input type="checkbox" name="ipskip" value="1" id="ipskip">
]
ala-x » 31.05.2013 (Пт) 21:28
Qwertiy » 31.05.2013 (Пт) 21:43
ala-x писал(а):ну это я тоже видел, только клика не получается
Сейчас этот форум просматривают: Google-бот, Yandex-бот и гости: 11