Add(MainForm,2953706,112,252)
{
 WindowsState=2
}
Add(WebBrowser,8393036,217,98)
{
 Width=384
 Height=262
 Align=5
 URL=""
 Silent=0
 Point(PHandle)
}
Add(Button,1280226,175,252)
{
 Left=5
 Top=5
 link(onClick,14080455:doNavigate,[])
}
Add(VisualStrings,7688419,238,168)
{
 Lines=#15:https://2ip.ru/|
 Width=74
}
Add(VisualStrings,5423951,252,140)
{
 Lines=#77:Mozilla/5.0 (Windows NT 6.1; Win64; x64; rv:72.0) Gecko/20100101 Firefox/72.0|
 Width=403
}
Add(GetDataEx,15221596,238,217)
{
 link(Data,7688419:Text,[])
}
Add(InlineCode,14080455,231,252)
{
 WorkPoints=#10:doNavigate|
 DataPoints=#2:WB|3:Url|3:Ref|5:Agent|
 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:|12:   public   |32:     Agent,Ref,Url,WB:THI_Event;|3:   |50:     procedure doNavigate(var dt:TData; idx:WORD);|5: end;|0:|14:implementation|0:|33:procedure THiAsmClass.doNavigate;|3:var|56:  Flags, Headers, TargetFrameName, PostData: OLEVariant;|29:  _Url, _Ref, _Agent: string;|25:  WebBrowser:PWebBrowser;|5:begin|46:  WebBrowser:=PWebBrowser(ToIntegerEvent(WB));|15:  Flags := '1';|24:  TargetFrameName := '';|17:  PostData := '';|29:  _Url := ReadString(dt,Url);|33:  _Agent := ReadString(dt,Agent);|29:  _Ref := ReadString(dt,Ref);|79:  Headers := 'Referer: ' + _Ref + #10 + #13'User-Agent: ' + _Agent + #10 + #13;|71:  Webbrowser.Navigate(_Url, Flags, TargetFrameName, PostData, Headers);|4:end;|0:|4:end.|
 link(WB,8393036:PHandle,[])
 link(Url,15221596:Var2,[])
 link(Ref,15221596:Var3,[(251,222)])
 link(Agent,5423951:Text,[])
}