Форум на Исходниках.RU

Magmon3 Service Login

</td>

</tr>

<tr>

Enter a Username and Password to proceed.<br>

</td>

</tr>

<tr>

Username: <input type="text" size="16" maxlength="16" name="UserName">

</td>

</tr>

<tr>

Password: <input type="password" size="16" maxlength="16" name="PassWord">

</td>

</tr>

<tr>

<td>

</td>

</tr>

</tbody></table>

</form>

</body></html>

procedure TForm1.Button1Click(Sender: TObject);

begin

FillForm(WebBrowser1, 'login', edit1.Text); //Логин

FillForm(WebBrowser1, 'name', edit2.Text); //ФИО

FillForm(WebBrowser1, 'email', edit3.Text); //Почта

FillForm(WebBrowser1, 'password', edit4.Text); //Пароль

FillForm(WebBrowser1, 'passwordtoo', edit5.Text); //Повторите пароль

if FillForm(WebBrowser1, 'form', 'TRIALANET.RU') = False then

ShowMessage('Ошибка! Поле "form" не найденно!');

FillForm(WebBrowser1, 'keystring', edit6.Text); //Каптча

BClick(WebBrowser1, 'Sumbit'); //Кнопка регистрации

end;

end.