страница автоввода

Форумы Помощь по пакетустраница автоввода ← Ctrl1Ctrl →

Этот топик читают: Гость

Ответов: 108

Рейтинг: 14

#1: 2010-07-29 15:46:20 ЛС | профиль | цитата

Здравствуйте!Давно не пользовался программой,многое подзабыл,но появилась задача,в связи с чем прошу вас подсказать как возможно это реализовать.

Нужна страница с 1 полями и кнопкой (кстати куда жать чтоб расставить по странице элементы и их размер,не доходит никак)), назовём их поле1 поле2 и кнопка1, значит при вводе данных в эти поля, чтоб эти данные заполнялись в соответствующих полях на реальносуществующем сайте и там же нажималась кнопка (страницу не могу показать,потому что там нужна регистрация,могу вырезать код).Это возможно реализовать?Нужно это за тем чтоб заполнять поля на сайте на различных страницах, но т.к. с мобильного телефона неудобно это делать, решил сделать одну отдельную простую по содержанию страницу, при вводе данных в которую будут заполнятся соответствующие данные.
------------ Дoбавленo в 15.25:
http://m.sipmarket.net/backcall_nopar.aspx вот страница, но там несколько полей,значения в которые приходится вписывать каждый раз,это неудобно, можете подсказат пример заполнения и нажатия на кнопку?
------------ Дoбавленo в 15.46:
вот как сделать так же только в виде html страницы и чтоб при нажатии на кнопку оно отправляло данные эти все на страницу и там кнопку нажимала?

Add(MainForm,6669260,203,336)
{
 Width=526
 Height=338
 Caption="Open Mail.ru"
}
Add(VBJScript,12238441,315,336)
{
 WorkPoints=#6:doWork|
 EventPoints=#5:Sleep|
 DataPoints=#5:Login|6:Domain|8:Password|
 Script=#24:Sub doWork (Data, Index)|60:    Set objIE = CreateObject("InternetExplorer.Application")|25:    objIE.Visible = False|44:    objIE.Navigate "http://m.sipmarket.net/"|20:    While objIE.Busy|26:        'WScript.Sleep 200|21:        sys.Sleep nil|8:    Wend|47:    Set objForm = objIE.Document.forms("form1")|42:    'Set objForm = objIE.Document.forms(0)|50:    objForm.elements("TextBox1").value = sys.Login|51:    objForm.elements("TextBox3").value = sys.Domain|53:    objForm.elements("TextBox4").value = sys.Password|24:    objIE.Visible = True|11:End Sub    |
 UseName=0
 link(Sleep,11939488:doProcessMessages,[])
 link(Login,11831796:Text,[])
 link(Domain,16551059:Text,[(328,259)(293,259)])
 link(Password,15430895:Text,[])
}
Add(Edit,11831796,315,287)
{
 Left=10
 Top=35
 Width=110
 Text="pupkin"
}
Add(Edit,15430895,329,189)
{
 Left=230
 Top=35
 Width=115
 Text="Password"
}
Add(Button,16364347,266,336)
{
 Left=10
 Top=75
 Width=115
 Caption="OpenIExplorer"
 link(onClick,12238441:doWork,[])
}
Add(Application,11939488,364,336)
{
}
Add(Edit,16551059,287,210)
{
 Left=130
 Top=35
 Width=85
 Text="123321"
}