
Originally Posted by
Flight
In Simba, it's under "Tools > Bitmap conversion".
By the way, what's an "FF task"?
FireFox Task.
:P
Also, The example posted doesn't work. You forgot to add 'Ex' as a variable, and it fails at:
Code:
[Error] (41:15): Type mismatch at line 40
Compiling failed.
Which is:
Current script:
Code:
program Example;
{$i SRL\SRL.scar}
procedure ClickBitmap;
var
YourBMP, x, y, Ex: Integer;
begin
YourBMP := BitmapFromString(155, 39, 'meJztm4GxpCAMQC3FUizFUizFU' +
'izFUi4suxiSEEPw6+4cmczcfFchyQMS0FumYWE6gY5Bu3yhRDSTBO' +
'7Njuj4tMVdbBKxajriu+dhWYd1G7a96xcpEAEuQOcUa6I5Tp3jDyg' +
'wAlIlponmvDxvale7Ai+Jaaf5w5qYkukJy/Ljtv03Oi3LNF8X8FdK' +
'TZP0LY52YBmP+nR8fk4D0BD/6ZoG1/2YpI7pCQSPcYCqYvFmGIdpL' +
'SA24EWfPJWuQ0XHf5KLeLh5aQvLdvSrZx/sFFa4vtr6ikAD0/GaGZ' +
'EmaQTK46Z4XRKxPMbxL13ngyEJD2wJaBJ3fD7J6O2LFj3VBkswE9C' +
'IwB7/YoNrBPoJgvlBXXgcRKCv3oXrlwAdvExJy26ggwFQDjRoY0W6' +
'7pkB1mGwULMhdHhg87kmAh2nrBE30LjQ4dbSdUdM7FAsNtQCDUxdZ' +
'ov2Gx/BjuBZEGecWLZxoNkAKLhgBIqv42btHiXlqUSpQkUbSAt6ES' +
'sCjSn1KaDuR7CU1kYHUPJTbVYi42FQ02jJBsLUAbSlTGoEauyU+I7' +
'/VLKGDyjOCLUpSUyLtUC3PJsoIVKAusskD9D5eMSYp8isSaKXkU6g' +
'q/agMRqWaa7YgGe6so06A/pKqfOfAyXVqYUp9v20FmoEmgVTbZ8oX' +
'iqzUVEIqWIDbkoZVBagY+XJgwPotgvlnB66UoWvDz8fUONyxxWPBN' +
'x7aRkxAlVwGIFWlUk+oOLBgnLQVAJ6yZKbzh5hUGGaeuOKkfHB09p' +
'Pv+FaoEGhTFrrgO57hZKFF4eC36zswQFEqQsM1N6gpWW9OxiZe15c' +
'gbO6U1prUzmGVUBfZdKpU1iq3N+zt6uHiExJ/PFTMXqXAxUR6L6QZ' +
'7M8KBl5O9AwQ+3D0gE0Kt+7cfdJ/PlO7UKg01Q9N4kX6fEkowTlTq' +
'Ahh9qcage6SymVMMpS3muYkVq3BWjKoQ6OlhEieqQDJUVRI9CpkMj' +
'+DihnShhx33EKLrlsBNpithgHUfho0YAi77jxVUDjRsDnSGNMoOuS' +
'F9z3Le9atPk2oMrbQJ8NOBRKNj8/KSoPhhuAkt30qe+Z15LltwHFC' +
'RSsgj+TJuHLiGIDTihbuV8N6OjMID6gsaQnpirrjOg7vl+sOm4DSn' +
'aUxviUbCBnm2oYtWMEny9YLI1saGaRHQqvfE59J6c6TwFV4k+qr1M' +
'b9FrCArSqBOJ0aoGKbwwh4GRDaox/lnbnZ4DqFWm2Gi9FG0TRp6cE' +
'VN7wuoEaN+OYgig8IZbiTwx4BGh2IsQ6UnCf73S2KqCmc4OTBte3p' +
'WP8xzw8+GHCEXypEWP9QDy6B6iyqBIzSF8K0JCMzmhmQL0lEPVljj' +
'TfQAfbqhs1fEc0HzjG+PliwSr8xSNtZz1+4rtX8breoAOo3lT2Deo' +
'mX086zxWnjvi73Haa23vsHVN+qJmkXdsVVvjGpIn18+FBBnRwbWa7' +
'+nS7rqlPJUCrrFLO6vrNOss0M6aj651F15uV/P/Q0hFiEliWw1vy7' +
'XnLu2IFIqGYnA9Q6pkwxdrli8X6RrVj/XpRqP0DHKzwZw==');
if not(FindBitmap(YourBMP, x, y) )then
Ex := True;
FreeBitmap(YourBMP);
if Ex then
Exit;
Mouse(x, y, 0, 0, True);
end;
begin
ClickBitmap;
end.
I can't remember what to do here... XD
Sorry guys, it's been a long time :/