Вверх ↑
Ответов: 1891
Рейтинг: 110
#1: 2007-10-14 00:36:31 ЛС | профиль | цитата
Можно так:
Add(MainForm,16526511,21,105)
{
Left=20
Top=105
}
Add(Button,5437802,63,182)
{
Left=125
Top=95
link(onClick,11765865:doEvent1,[])
}
Add(Hub,11765865,119,182)
{
link(onEvent1,10797090:doExecute,[])
link(onEvent2,14246114:doWork,[(215,195)(215,202)])
}
Add(VBJScript,14246114,280,196)
{
WorkPoints=#6:doWork|
DataPoints=#5:HTMLF|
Script=#27:Function doWork(Data,Index)|16:HTMLF= sys.HTMLF|56:Set objIE = CreateObject("InternetExplorer.Application")|20:objIE.Navigate HTMLF|16:While objIE.Busy|22: 'Wscript.Sleep 200|4:Wend|17:objIE.Visible = 0|41:'objIE.ExecWB 6, 1 'выдача диалога печати|37:objIE.ExecWB 6, 2 'немедленная печать|0:|12:End Function|
link(HTMLF,12567020:GetData,[])
}
Add(EventFromData,12567020,280,133)
{
}
Add(ODialog,10797090,175,182)
{
Filter="Файлы HTML|*.html"
FileName=""
link(onExecute,12567020:doData,[(230,188)(230,139)])
}
карма: 0
%time%
0