Add(InlineCode,6524878,147,112)
{
 @Hint=#4:Лайк|
 WorkPoints=#25:Zap=Заполнить и отправить|
 DataPoints=#1:h|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|61:uses kol,Share,Debug,windows,ActiveX,KOLSHDocVw,Win,ShellApi;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|16:    wb:PControl;|9:   public|16:    h:THI_Event;|19:    Name:THI_Event;|4:    |46:    procedure Zap(var Data:TData; index:word);|4:    |5: end;|0:|15:implementation |0:|4:type|31:  TKOLWebBrowser = PWebBrowser;|31:  PKOLWebBrowser = PWebBrowser;|2:  |26:procedure THiAsmClass.Zap;|5:begin|35: wb := PControl(ToIntegerEvent(h));|60: PKOLWebBrowser(WB).OleObject.Document.Frames.item(0).click;|5: end;|0:|4:end.|
}