delphi Код:
//автоматизация закупки
const
//==========================================================================================
myname='TAMBIK'; //<<== пишем свой НИК
//==========================================================================================
// должно быть открыто окно у кота
// меняет кол а птом покупает свитки
var
timer:TTimer;
x,:integer;
//===================
procedure init;
begin
timer:=TTimer.Create(nil);timer.OnTimer:=@OnTimer;
timer.enabled:=false;timer.interval:=1000;//интервал
x:=0;
SendMsg2(' **** ПРИВЕТ ***** ');
SendMsg2(' * пуск -- Hello * ');
SendMsg2(' * стоп -- Victory * ');
end;
procedure SendMsg2(msg:string);
begin
buf:=#$4A;WriteD(0);WriteD(10);WriteS('');WriteS(msg);
SendToClientEx(myname);
end;
//=====================
procedure free;
begin
timer.free;
end;
//=====================
procedure MultisellBypass(cmd1,cmd2 : string);
begin
buf:=#$23;
WriteS('menu_select?ask='+cmd1+'&reply='+cmd2);
SendToServerEx(myname);
end;
//======================
procedure OnTimer(Sender:TObject);
begin
case x of
1:begin // начать обмен COL
buf:=#$22;
WriteS('zzz_relax_cat1_960.htm');
SendToServerEx(myname);
SendMsg2(' начать обмен COL ');
inc(x);
end;
2:begin
MultisellBypass('-11','19001'); //list id magazina col'ov
inc(x);
end;
3:begin
buf:=#$B0;
WriteD(19001);
WriteD(3);//entryid
WriteD(20); // << === количество COL
buf:=buf+HStr('00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00');
SendToServerEx(myname);
inc(x);
end;
4:begin
buf:=#$22;
WriteS('zzz_relax_cat1_001.htm');
SendToServerEx(myname);// закончили обмен COL
SendMsg2(' закончили обмен COL ');
inc(x);
end;
5:begin // начать покупку свитков
buf:=#$22;
WriteS('zzz_relax_cat1_900.htm');
SendToServerEx(myname);
SendMsg2(' начать покупку свитков ');
inc(x);
end;
6:begin
buf:=#$22;
WriteS('zzz_relax_cat1_905.htm');
SendToServerEx(myname);
inc(x);
end;
7:begin
MultisellBypass('-9','14001'); //list id vtoroi pokypki
inc(x);
end;
8:begin
buf:=#$B0;
WriteD(14001); //list id
WriteD(37);//entryid 37
WriteD(100); // << === количество свитков
buf:=buf+HStr('00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00');
SendToServerEx(myname);
inc(x);
end;
9:begin
buf:=#$22;
WriteS('zzz_relax_cat1_001.htm');
SendToServerEx(myname);// закончили покупку свитков
SendMsg2(' закончили покупку свитков ');
x:=0; // если поставить 1
timer.enabled:=false;// и эту строку убрать то - начнет сначало по новой
end;
end;
end;
//******************
begin
if FromClient and (ConnectName=myname) and (pck[1]=#$34) then begin
CASE ReadD(2) OF
2:begin //Hello
x:=1; //
timer.enabled:=true;
SendMsg2(' П У С К ');
pck:='';exit;
end;
3:begin //Victory
x:=0;
timer.enabled:=false;
SendMsg2(' С Т О П ');
pck:='';exit;
end;end;end;
end.
__________________
Тут не форум гадалок, если ты делаешь все правильно и по пунктам - то все должно работать
Последний раз редактировалось TAMBIK, 31.12.2009 в 11:17.
|