bg5
2012-03-04 19:47:18
I would try to FindText in ChatBox ,but what font is it?
2012-03-04 19:47:18
2012-03-04 19:50:02
If GetColor(234, 234) = 0 Then
TypeSend('28') something like that.2012-03-04 20:01:20
2012-03-04 20:05:22
2012-03-04 20:16:36
{$I SRL/SRL.Simba}
Function Find: Boolean;
var
str: String;
begin
str:= GetTextAtExWrap(353, 338, 604, 355, 0, 5, 2, 0, 20, 'UpcharsEx');
result:= ExecRegExpr('ithdraw', str);
end;
begin
setupsrl;
find;
end.
2012-03-04 20:28:03