nesco писал(а):
Add(MainForm,1351679,98,175)
{
Width=1010
Height=561
}
Add(WebBrowser,15563951,378,168)
{
Left=5
Top=80
Width=985
Height=435
URL="http://forum.hiasm.com/guilogin/"
Silent=0
Point(PHandle)
Point(doFromText)
}
Add(Edit,15375584,161,175)
{
Left=705
Top=5
Width=135
Text="login"
}
Add(Edit,12692327,203,175)
{
Left=845
Top=5
Width=135
Text=""
}
Add(Button,3488175,98,238)
{
Left=850
Top=55
Width=130
TabOrder=-1
Caption="Войти"
link(onClick,3134972:doAdd,[])
}
Add(Edit,3057939,280,252)
{
Left=705
Top=30
Width=135
Text="pass"
}
Add(Edit,6191608,322,252)
{
Left=845
Top=30
Width=135
Text=""
Password=0
}
Add(InlineCode,10977955,392,238)
{
WorkPoints=#16:doSetValueByName20:doSetFocusByName |17:doSetFocusByValue|13:doClickByName|15:doClickByValue |
EventPoints=#10
nSetValue|10
nSetFocus|
DataPoints=#2:ph|4:name|5:value|
Code=#15:unit HiAsmUnit;|0
9:interface|0
40:uses kol,Share,Debug,ActiveX,KOLSHDocVw;|0
4:type|28: THiAsmClass = class(TDebug)|10: private|0
9: public|18: ph: THI_Event;|20: name: THI_Event;|21: value: THI_Event;|26: onSetValue: THI_Event;|26: onSetFocus: THI_Event;|27: onClick: THI_Event; |0
57: procedure doSetValueByName(var dt:TData; index:word);|61: procedure doSetFocusByName(var dt:TData; index:word); |58: procedure doSetFocusByValue(var dt:TData; index:word);|58: procedure doClickByName(var dt:TData; index:word); |64: procedure doClickByValue(var dt:TData; index:word); |0
5: end;|0
14:implementation|0
4:type|31: TKOLWebBrowser = PWebBrowser;|31: PKOLWebBrowser = PWebBrowser;|0
74:function FindIdx(pc: PControl; val: string; FindByName: boolean): Integer;|3:var|13: i: integer;|5:begin|15: Result := -1;|85: for i := 0 to PKOLWebBrowser(pc).OleObject.Document.all.tags('input').length - 1 do|22: if FindByName then|13: begin |88: if PKOLWebBrowser(pc).OleObject.Document.all.tags('input').Item(i).name = val then|11: begin|20: Result := i;|15: break; |10: end;|7: end|12: else |9: begin|89: if PKOLWebBrowser(pc).OleObject.Document.all.tags('input').Item(i).value = val then|11: begin|20: Result := i;|15: break; |10: end;|8: end;|6:end; |0
39:procedure THiAsmClass.doSetValueByName;|3:var|15: pc: PControl;|19: txt, val: string;|15: idx: integer;|5:begin|37: pc := PControl(ToIntegerEvent(ph));|32: if not Assigned(pc) then exit;|30: txt := ReadString(dt, name);|33: val := ReadString(dt, value); |32: idx := FindIdx(pc, txt, true);|24: if idx < 0 then exit; |81: PKOLWebBrowser(pc).OleObject.Document.all.tags('input').Item(idx).value := val;|26: _hi_onEvent(onSetValue);|4:end;|0
39:procedure THiAsmClass.doSetFocusByName;|3:var|15: pc: PControl;|14: txt: string;|15: idx: integer;|5:begin|37: pc := PControl(ToIntegerEvent(ph));|32: if not Assigned(pc) then exit;|30: txt := ReadString(dt, name);|32: idx := FindIdx(pc, txt, true);|24: if idx < 0 then exit; |74: PKOLWebBrowser(pc).OleObject.Document.all.tags('input').Item(idx).focus;|26: _hi_onEvent(onSetFocus);|4:end;|0
40:procedure THiAsmClass.doSetFocusByValue;|3:var|15: pc: PControl;|14: val: string;|15: idx: integer;|5:begin|37: pc := PControl(ToIntegerEvent(ph));|32: if not Assigned(pc) then exit;|33: val := ReadString(dt, value); |33: idx := FindIdx(pc, val, false);|24: if idx < 0 then exit; |74: PKOLWebBrowser(pc).OleObject.Document.all.tags('input').Item(idx).focus;|26: _hi_onEvent(onSetFocus);|4:end;|0
36:procedure THiAsmClass.doClickByName;|3:var|15: pc: PControl;|14: txt: string;|15: idx: integer;|5:begin|37: pc := PControl(ToIntegerEvent(ph));|32: if not Assigned(pc) then exit;|30: txt := ReadString(dt, name);|32: idx := FindIdx(pc, txt, true);|24: if idx < 0 then exit; |74: PKOLWebBrowser(pc).OleObject.Document.all.tags('input').Item(idx).click;|23: _hi_onEvent(onClick);|4:end;|0
37:procedure THiAsmClass.doClickByValue;|3:var|15: pc: PControl;|14: val: string;|15: idx: integer;|5:begin|37: pc := PControl(ToIntegerEvent(ph));|32: if not Assigned(pc) then exit;|33: val := ReadString(dt, value); |33: idx := FindIdx(pc, val, false);|24: if idx < 0 then exit; |74: PKOLWebBrowser(pc).OleObject.Document.all.tags('input').Item(idx).click;|23: _hi_onEvent(onClick);|4:end;|0
4:end.|
link(ph,15563951
Handle,[])
}
Add(MT_AddData,3134972,161,238)
{
link(onAdd,3087097:doEvent1,[])
link(Data1,15375584:Text,[])
link(Data2,12692327:Text,[(174,215)(209,215)])
}
Add(MT_AddData,1475487,280,315)
{
link(onAdd,3095249:doWork3,[(368,321)])
link(Data1,3057939:Text,[])
link(Data2,6191608:Text,[(293,292)(328,292)])
}
Add(HubEx,3095249,364,238)
{
link(onEvent,10977955:doSetValueByName,[])
}
Add(DoData,5921312,280,357)
{
Data=String(Войти)
link(onEventData,10977955:doClickByValue ,[(375,363)(375,272)])
}
Add(Hub,3087097,210,238)
{
OutCount=3
link(onEvent1,3095249:doWork2,[])
link(onEvent2,1475487:doAdd,[(270,251)(270,321)])
link(onEvent3,5921312:doData,[(263,258)(263,363)])
}
Схема
Поиск
Друзья
Администрация