<div id="blk549118" style="border:1px solid #CCCCCC;position:absolute;z-index:82;background:url('http://s22.ucoz.net/img/fr/g.gif');display:none;"></div><form id="frmLg549118" method="post" style="margin:0" onsubmit="sendFrm549118();return false;">
<table border="0" cellspacing="1" cellpadding="0" width="100%">
<tr><td width="20%" nowrap="nowrap">E-mail:<a href="javascript://" onclick="new _uWnd('HelpWd','Помощник',360,150,{align:'justify'},{url:'http://centom.at.ua/index/90-7'});return false;" class="noun"><img title="uID поддержка" src="http://s22.ucoz.net/img/ma/uid.gif" border="0" style="vertical-align:-4px;"></a></td><td><input class="loginField" type="text" name="user" value="" size="20" style="width:100%;" maxlength="50" /></td></tr>
<tr><td>Пароль:</td><td><input class="loginField" type="password" name="password" size="20" style="width:100%" maxlength="15" /></td></tr>
</table>
<table border="0" cellspacing="1" cellpadding="0" width="100%">
<tr><td nowrap><input id="remregister" type="checkbox" name="rem" value="1" checked /><label for="remregister">запомнить</label> </td><td align="right" valign="top"><input class="loginButton" name="sbm" type="submit" value="Вход" /></td></tr>
<tr><td colspan="2"><div style="font-size:7pt;text-align:center;"><a href="javascript://" onclick="new _uWnd('Prm','Напоминание пароля',270,130,{autosize:0},{url:'/index/5'});return false;">Забыл пароль</a> | <a href="http://centom.at.ua/index/3">Регистрация</a></div></td></tr>
</table>
<input type="hidden" name="a" value="2" /><input type="hidden" name="ajax" value="1" /><input type="hidden" name="rnd" value="118" /></form></td></tr>
</table>
WebBrowser1.Navigate "сайт"
Do While WebBrowser1.Busy '
DoEvents
Loop
On Error Resume Next
WebBrowser1.Document.All("login").Value = j
WebBrowser1.Document.All("password").Value = q
WebBrowser1.Document.All("submit").Click
DeMONiZ писал(а):Авторизацию помню делал как то вот так:
- Код: Выделить всё
WebBrowser1.Navigate "сайт"
Do While WebBrowser1.Busy '
DoEvents
Loop
On Error Resume Next
WebBrowser1.Document.All("login").Value = j
WebBrowser1.Document.All("password").Value = q
WebBrowser1.Document.All("submit").Click
j - само собой логин
q - пароль
программа заполняет эти формы и жмет кнопку
разбирайся думаю этот пример тебе поможет
WebBrowser1.Document.All("login").Value = j
WebBrowser1.Document.All("password").Value = q
WebBrowser1.Document.All("submit").Click
В место ("login")("password") ("submit")у меня могут быть другие параметры --или на всех сайтах одинаково?
ala-x писал(а):Да снифер у меня есть...Большое спасибо вам....
А к примеру как сделать чтоб программа определила что по заполненным данным не выполнил вход в акаунт или выполнил??
ala-x писал(а):нет...не спамбота...просто открываю сайт раскрутки и рекламы и ввожу дополнительную опцию серфинга из программы..На подобии програмки как у сайта JetsWap
Maxxx.!!!. писал(а):Загрузи страницу, да и ищи в ней слово "Привет". Чтобы загрузить можешь, например, использовать это: viewtopic.php?t=19857
ala-x писал(а): Так это TestLink -ом надо искать?
Кашмар.ala-x писал(а):так же как это: WebBrowser1.Document.All("subject").Value = Text1.Text
Maxxx.!!!. писал(а):Тупо высчитай, с какого по счету символа с начала html документа идет у тебя слово "привет"
А ты считаешь его панацеей?Про RegExp никогда не слышал?
В любом случае это намного лучше, чемNord777 писал(а):А ты считаешь его панацеей?
уж согласись.Maxxx.!!!. писал(а):Тупо высчитай, с какого по счету символа с начала html документа идет у тебя слово "привет"
MIT писал(а):В любом случае это намного лучше, чемNord777 писал(а):А ты считаешь его панацеей?уж согласись.Maxxx.!!!. писал(а):Тупо высчитай, с какого по счету символа с начала html документа идет у тебя слово "привет"
Сейчас этот форум просматривают: Yandex-бот и гости: 81