о, наконец-то вспомнил, что хотел скрипт на лог пакетов всего лишь подправил тот скрипт, который сразу был в папке wpsc.
он назывался RFO-GetChars-1.fsc
вот [Ссылки могут видеть только зарегистрированные пользователи. ]
Добавлено через 5 минут
или таг))
Код:
//Логгер пакетов в текстовый документ "log.txt" в папке wpf/custom.
var
log : TStringList;
logg,s1 : string;
Procedure OnCreate;
begin
logg := _gCustomDir+'Log.txt';
try
log := TStringList.create;
log.CaseSensitive := false;
if FileExist(logg) then try
log.LoadFromFile(logg); // загрузим ранее созданный файл, чтобы дополнить список
except
writelogln(' Ошибка чтения файла : '#39+logg+#39);
end;
except
log := nil;
end;
end;
Procedure OnDestroy;
begin
if log <> nil then
try
if log.count > 0 then
try
log.SaveToFile(logg);
writelogln(format(' Файл '#39'%s'#39' успешно создан, %d записей',[logg,log.count]));
except
writelogln(' Ошибка записи в файл '#39+logg+#39);
end;
finally
log.free;
end;
end;
var
logm : string;
le, id : integer;
BEGIN
ID := gInt(_gBuff,1,2); //Присваиваем ID первые два байта. 1 = второй байт (отсчёт с нуля), 2 = сколько байтов считать
if ID = $00F3 then begin //здесь ID. чтобы сохранять в текстовик все пакеты, нужно удалить эту и строчку выше.
if log.indexOfName(logm) = -1 then begin //если нужно, чтобы пакеты не повторялись, то отставьте эту строчку.
logm := BuftoHex(_gBuff);
log.add(logm);
end;
end; //и тогда эту строчку удалить, если нужно чтобы сохранялись все пакеты, end лишнее
end.
Добавлено через 1 час 34 минуты
у кого скрипт не пашет, скачайте впф6.58f.. и не забудьте проверить, что стоит fs движок.
Последний раз редактировалось Leo_ня; 14.11.2008 в 12:21.
Причина: Добавлено сообщение
блин у меня не получается 3 процес я вроде все делаю правельно все работает, но когда нажимаю load я не знаю куды нажимать чтобы логи в скриптах появились подскажите плиз
хм.. как сделать так, чтобы соединение не закрывалось по просьбе программы, которая его открыла, а только через впф?
например я обновляю страницу жука, а как обновление заканчивается, соединение обрывается.. как сделать чтобы соединение было постоянным? (с жуком я ничё делать не собираюсь, просто привел пример, чтобы никто не понял моего коварного замысла ^^)
пакеты светятся в Autologger'е.
чел, лучше вообще на читы забей.. сколько я твоих сообщений смотрел, везде было "аа, нимагу ничё сделать"....
Последний раз редактировалось Leo_ня; 14.12.2008 в 11:55.
блин у меня не получается 3 процес я вроде все делаю правельно все работает, но когда нажимаю load я не знаю куды нажимать чтобы логи в скриптах появились подскажите плиз
Какие логи?! В каких скриптах?!
Если самому ниче не писать, то в логах будут оставляться сообщения только об ошибках скрипта и все. Если вам нужны какие-то другие логи надо прописывать это самому.
Цитата:
Сообщение от Leo_ня
хм.. как сделать так, чтобы соединение не закрывалось по просьбе программы, которая его открыла, а только через впф?
По идее каждая прога посылает запрос о завершении коннекта. Находишь и BlockPacket. Если это веб-прога, то придеццо немного попариццо =)
Цитата:
Сообщение от Angelo
я не могу найти вообще эти покеты когда я нажимаю редоктировать онлайн там вообще не чего нету а когда нажимаю лоад я без понятие че открывать
Когда нажимаешь лоад - открываешь скрипт, который хочешь загрузить.
Просьба не писать мне в ЛС по поводу того, что что-то не работает/выложить тему из подполья/рассказать о последних багах, читах, глюках. Не отвечу! Задавайте конкретные вопросы. Чем смогу - тем помогу. И в теме указывайте суть вопроса, а то смотреть вообще не буду - удалю и все.
__________________
Предоставляю услуги Гаранта/Проверяющего. Все подробности здесь.
Связь только через ПМ. В теме писать "Гарант/Проверка".
__________________
Ну не запрос, а уведомление.. Если она тупо обрубает сокет со своей стороны не уведомляя удаленную машину об окончании конца сессии, то это не есть хорошо. и я тогда хз че делать (это если в частности. В общих чертах - реверсинг проги и отключение дисконнекта)
Просьба не писать мне в ЛС по поводу того, что что-то не работает/выложить тему из подполья/рассказать о последних багах, читах, глюках. Не отвечу! Задавайте конкретные вопросы. Чем смогу - тем помогу. И в теме указывайте суть вопроса, а то смотреть вообще не буду - удалю и все.
__________________
Предоставляю услуги Гаранта/Проверяющего. Все подробности здесь.
Связь только через ПМ. В теме писать "Гарант/Проверка".
__________________
Просьба не писать мне в ЛС по поводу того, что что-то не работает/выложить тему из подполья/рассказать о последних багах, читах, глюках. Не отвечу! Задавайте конкретные вопросы. Чем смогу - тем помогу. И в теме указывайте суть вопроса, а то смотреть вообще не буду - удалю и все.
__________________
Предоставляю услуги Гаранта/Проверяющего. Все подробности здесь.
Связь только через ПМ. В теме писать "Гарант/Проверка".
__________________
да и ещё.. у меня никак не получается ни в ВПЕ ни в ВПФ открыть сокет.. или чё там) ну типа
Код:
var
ip, port, : integer;
pck : string;
Server : TSocket;
block : boolean;
Begin
block:=true;
ip:=inet_addr('123.123.123.123');
port:=htons(15121);
pck:=HStr('12 34 56');
Server:=gWSA.TCPsocket(block);
gWSA.connect(Server,ip,port);
gWSA.send(Server,pck);
end.
по идеи должен при каждом пакете открывать соединение с 123.123.123.123 (ну айпи я настоящий тыкал), и отправлять пакет 12 34 56.
ток вот ничего не открывается
в ВПЕ так же.. если выбираешь новый коннект по такому-то айпи, то он выдаёт ошибку соединения...
Добавлено через 3 часа 3 минуты
Глюк.. убей меня =(
Я туплю.. не могу даж самое простое сделать..
Короче вот. На одном соединение пакеты серверу записываются в блокнотег. На других читаются из него и отправляются.
Со скриптом первого соединения я разобрался.. он уже готов... а во втором выходит одна проблемка..
Код:
var
log:TStringList;
file:string;
Procedure OnCreate;
begin
file:=_gCustomDir+'Log.txt';
log:=TStringList.create;
end;
Begin
log.LoadFromFile(file);
gSys.ensends(log.Text);
end.
Я уже и так и сяк пробовал.. Вообщем если в текстовике написано "123456789abcde0f", то он отправит 31 32 33 34 35 36 37 38 39 61 62 63 64 65 30 66 так ещё и 0D 0A какие-то в конце добавит.
Если вставляешь Hstr(Log.text) или Hpck, то говорит
Цитата:
.ERROR: EXCEPT: HSTR: '$??' is not a valid integer value at [14:1]
я хз чё делать.. подскажи плз.. а лучше вообще, другой способ.. без текстовика)
Последний раз редактировалось Leo_ня; 16.12.2008 в 11:47.
Причина: Добавлено сообщение
После многоточий появляется проблема. И не могу понять, то ли сокет не создаётся, то ли не коннектится, то ли пакет не шлётся...
(в моём случае пакет выглядит как '8B0001002B0036000100')