Вход
Логин: Пароль:Забыли пароль?
Запомнить вас на этом компьютере?
Войти скрытым?

Здравствуйте, гость ( Вход | Регистрация )

 
Ответить в данную темуНачать новую тему
Скрипт для перебора МС под ХФ

Sparkling
сообщение 15.10.2014, 16:19
Сообщение #1


Старейшина
***
Группа: Проверенные
Сообщений: 189
Регистрация: 2.4.2010
Пользователь №: 10952
Спасибо сказали: 23 раз(а)



Репутация:   0  
Долго искал готовый скрипт для перебора МС под комьюнити борд для ХФ серверов. Готового решения так и не нашел, по этому слепил свой из кусков других скриптов.
Скрипт создает файл по указанному адресу (изначально C:\GoodId.txt) со всеми id рабочих мультиселлов. Запускается любым соц действием.
Это позволяет вытащить на хот бар соц действие, и зажав кнопку на клавиатуре собрать все мультиселлы сервера. Потом отключив скрипт можно просматривать рабочие мультиселлы и перебирать вручную.
Такая структура запроса МС попадается очень часто на серверах ХФ, если нужно будет добавлю пример где проверял.
Свёрнутая информация:
var i:integer;
Stream:TFileStream;
procedure Init; //Вызывается при включении скрипта
begin;
i:=9000; //С какого мс начинать!!!!!
try //пытаемся создать файл, но если такой существует то открываем его
Stream := TFileStream.Create('C:\GoodId.txt', fmOpenReadWrite);
except
Stream := TFileStream.Create('C:\GoodId.txt', fmCreate);
end;
end;
procedure Free; //Вызывается при выключении скрипта
begin
Stream.free;
end;
//основная часть скрипта
//вызывается при приходе каждого пакета если скрипт включен
begin
if FromClient and (pck[1]=#$56) then begin //Ловим пакет соц действия
i:=i+1;
buf:=#$23;
Writes('_bbsmultisell:'+inttostr(i)+';_bbspage:shop'); //Тут пишем то на что должен быть похож пакет
sendtoserver;
end;
if (pck[1]+pck[6]=#$D0#$01) then
Stream.Write(inttostr(Readd(2))+' ',10);
end.





Автор slavez
Перейти в начало страницы
+Цитировать сообщение

Ответить в данную темуНачать новую тему
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

Свернуть

> Похожие темы

  Тема Ответов Автор Просмотров Последнее сообщение
Нет новых сообщений Скрипт на авто ресет
3 gfast 1130 27.3.2015, 12:51 Посл. сообщение: Swoop
Нет новых сообщений Скрипт
4 moloko 860 28.10.2013, 14:05 Посл. сообщение: moloko
Нет новых сообщений Скрипт Vip системы
Julia 4.6
2 Белый 886 28.7.2013, 23:22 Посл. сообщение: Белый
Нет новых сообщений Скрипт ресета!
8 KJloyH 1415 12.5.2013, 19:04 Посл. сообщение: epmak
Нет новых сообщений [Продаю] Простой скрипт рассылки эл. почты
1 N.Art 1274 17.9.2012, 13:38 Посл. сообщение: GrInYa

 

RSS Текстовая версия Сейчас: 14.10.2019, 10:58
Яндекс.Метрика  Перевод с помощью Google English French German Italian Portuguese Russian Spanish