Нужна страница с 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"
}
Поиск
Друзья
Администрация