Code: Select all
ICQConnect(123456789,55555555 : String)
Code: Select all
procedure ICQSendText(тут уин куда стучать, Text : String)
Code: Select all
begin
while not dead do
begin
FindType(Man, Ground);
if FindCount > 0 then
begin
AddToSystemJournal('нашли_мужика');
ICQConnect(123456789,55555555 : String)
ICQSendText(тут уин куда стучать, Text : String)
PlayWav('D:\stealth\morse.wav');
end
else
FindType(Woman, Ground);
if FindCount > 0 then
begin
AddToSystemJournal('нашли_бабу');
ICQConnect(123456789,55555555 : String)
ICQSendText(тут уин куда стучать, Text : String)
PlayWav('D:\stealth\morse.wav');
end;
end;
end.
вот так нет отстука, помогите