program FirstProgram;
var
RefreshButton: integer;
rx,ry: integer;
procedure LoadBMP;
begin
RefreshButton := BitmapFromString(17, 15, 'beNo1UgtP01AU5ie' +
'RIaJiNFFjZGSyMQSW4AMUAQkqY4ARBJnyWIUEmsyBvJXXBqgQ SJzI' +
'W4ERCEEUNASmQUPCxsbWdu1672087bA5+XLu7fed542Kgi8UJ rxIw' +
'GFDImDPuzkF51c33HATxlIYSX6G7xqaBWbEgB9GZH7lR6bJqs 58oc' +
'luSsqzavNsgLnlr5fWdgKMAEFK6wZELPPBFxCxjy2osyjNXTr 5fnu' +
'KsTfNNJAKVtQPvv5hx52ybvhVQY8jIoVEOcXq919XbtZezbWm m3pt' +
'juUtt2ffE9zaPWh2uDIeD6UV268Z+0Brbp7CWJKrQpKhoEmTT acUv' +
'lla3yNEQlgSsYyHAe6e2ZFq7E8vGTaUDj9rmUWK5Mvqz8s3aj W5La' +
'+GloEPnfJKan+Qzyq2Jdxu1BZ0JRf2640DlS8nESasQFr6Ji5 dt6h' +
'zWt1/fRCEEwkXls0xvlhWb7e0Ohs6Zxq65sAGnevQPiNgqvn9hQyL' +
'Nr99/yAgKHyWJ8EQ4gQSFglSKoyYiI53YetxnjPUXsy07u55jyUCh' +
'JIR/Mh8wMCR73kcCOEZ12Z8ivl8RlNj9xRsB7pjFRUbWVmY0B1jD5' +
'62dTqmGZ4A/4jDEEp9y3ImnYo3NHxa2IRE/H8yBB/56IpRF8Vpnzy' +
'i7HA8CmEfh6GdxbXtk7qq06nU2TSLmX67srHj/uMBrKjvjU00ndCU' +
'xelrVr79htb8HDpkEeRiBdwxOB2nrz6pr4tNfq7SlKsSS6ITT NEJJ' +
'eCf0tf0jLiUWREfK0tgApAO+pr4vJGUQ8foamJ01SqtWaWtAt Tl22' +
'aXtzG8E4H4WXzIIG9QlkB5oAryeN/LjE6uUa0fKulRqs05Nv3Vd8T' +
'BS2Dl+NjLIA+Dov4BqpkheQ==');
end;
procedure FindRefreshButton;
begin
if FindBitmapToleranceIn(RefreshButton, rx, ry, 3, 28, 102, 58, 25) then
begin
ClickMouse(rx,ry,True);
end else
begin
Writeln('Could Not Find Refresh Button');
end;
end;
begin
LoadBMP;
FindRefreshButton;
end.