Странно,вроде всё должно работать Но при попытке начать скрипт,тобиш по нажатию соц.Виктори как раз чз 2 секунды кикает)))
Код:
case x of
1: begin
//пакет на обмен коинов RequestBypassToServer
buf:=hstr('23 6D 00 65 00 6E 00 75 00 5F 00 73 00 65 00 6C 00 65 00 63 00 74 00 3F 00 61 00 73 00 6B 00 3D 00 2D 00 31 00 31 00 26 00 72 00 65 00 70 00 6C 00 79 00 3D 00 31 00 39 00 30 00 30 00 31 00 00 00 ');
SendToServerEx(Name);
inc(x);
end;
2: begin
//пакет на обмен коинов MultiSellChoose
buf:=hstr('B0 39 4A 00 00 03 00 00 00 14 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 00 00 00 ');
SendToServerEx(Name);
inc(x);
end;
3: begin
//пакет на покупку точек RequestBypassToServer (Какойто он сомтительно длинный=\ )
P.S:Понял ошибку 15 минут спустя,словил не тот пакет нужен был ('23 6D 00 65 00 6E 00 75 00 5F 00 73 00 65 00 6C 00 65 00 63 00 74 00 3F 00 61 00 73 00 6B 00 3D 00 2D 00 39 00 26 00 72 00 65 00 70 00 6C 00 79 00 3D 00 31 00 34 00 30 00 30 00 31 00 00 00')
/===================================================
buf:=hstr('D0 24 00 1C 00 00 00 D9 46 11 40 00 00 00 00 D7 46 11 40 01 00 00 00 D6 46 11 40 02 00 00 00 D5 46 11 40 03 00 00 00 D4 46 11 40 04 00 00 00 D3 46 11 40 05 00 00 00 D2 46 11 40 06 00 00 00 D1 46 11 40 07 00 00 00 D0 46 11 40 08 00 00 00 CF 46 11 40 09 00 00 00 CE 46 11 40 0A 00 00 00 CD 46 11 40 0B 00 00 00 C6 46 11 40 0C 00 00 00 BE 46 11 40 0D 00 00 00 BD 46 11 40 0E 00 00 00 BB 46 11 40 0F 00 00 00 BA 46 11 40 10 00 00 00 B9 46 11 40 11 00 00 00 B8 46 11 40 12 00 00 00 B5 46 11 40 13 00 00 00 B4 46 11 40 14 00 00 00 B2 46 11 40 15 00 00 00 B1 46 11 40 16 00 00 00 B0 46 11 40 17 00 00 00 AF 46 11 40 18 00 00 00 AE 46 11 40 19 00 00 00 AD 46 11 40 1A 00 00 00 AC 46 11 40 1B 00 00 00 ');
SendToServerEx(Name);
inc(x);
end;
4:begin
//пакет на покупку точек MultiSellChoose
buf:=hstr('B0 B1 36 00 00 25 00 00 00 64 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 00 00 00 ');
SendToServerEx(Name);
Timer01.enabled:=false; // отключили таймер
x:=0;
end;
end;
В общем ковыряюсь,щас буду пробовать выкинуть 2 действия отправки и отправлять только пакет MultiSellChoose.
Добавлено через 7 минут
Короче попробовал вот так изменить
Код:
case x of
1: begin
buf:=hstr('B0 39 4A 00 00 03 00 00 00 14 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 00 00 00 ');
SendToServerEx(Name);
inc(x);
end;
2: begin
buf:=hstr('B0 B1 36 00 00 25 00 00 00 64 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 00 00 00 ');
SendToServerEx(Name);
Timer01.enabled:=false; // отключили таймер
x:=0;
end;
end;
Всё таже беда,даже если слать пакеты с задержкой 1.2.3.4.5 секунд ни чего не покупает,отслеживаю чз лог пакеты посылаються.Если самому обменять кионы-->-Адена и купить Точки,то ответ от сервера приходит только на 2ой пакет тобиш на покупку точек ну и сообвецвенно на оборот еси купить точки потом коины,то приходит ответ ток на пакет коинов...Ломаю голову,думаю как это можно исправить=\
После исправления пакета,по новой пробывал отправлять скрипотом 4 пакета,ничё не пойму,продолжает кикать с серва=(((
Есть догатка что кикает из за пакета RequestBypassToServer...
Моя догадка подтвердилась...
Код:
23 6D 00 65 00 6E 00 75 00 5F 00 73 00 65 00 6C 00 65 00 63 00 74 00 3F 00 61 00 73 00 6B 00 3D 00 2D 00 31 00 31 00 26 00 72 00 65 00 70 00 6C 00 79 00 3D 00 31 00 39 00 30 00 30 00 31 00 00 00
После этого пакета кикает с сервера,хотя по идее не должно,кот выбран был в таргет,пробовал с открытым окном ГМ шопа и с закрытым результат 1 и тот же...
Ложусь наверно спать,утро вечера мудренее