L2PacketHack 3.5.x

[xkor]

в соседней теме выложил основные сведения по плагинам, с примерам и полезными функциями к плагинам придётся немного подождать...

[Breadfan]

Кстати: возможно ли сделать опции выключения компа по команде, и при обрыве всех соединений ?

[Grinch]

Breadfan, думаю можно имхо длл это самостоятельная программа с доступам к системным функциям, в общем хз я б не стал так экспериментировать

[xkor]

Ревизия: 46
Автор: xkor
Дата: 19:10:00, 12 октября 2008 г.
[+] Из плагинов теперь можно добавлять в скрипты свои функции, для этого в плагине должны быть две функции: OnCallMethod и OnRefreshPrecompile;
[!] Внимание! Для корректной работы плагинов они должны быть скомпилированны в том же режиме что и L2PacketHack, тоесть если пакетхак скомпилирован с директивой Relise, то и плагины должны быть скомпилированными с ней же, в противном случае возможны конфликты в модуле FastMM4;

[xkor]

PS всё время забываю указывать лог ревизии и никак не могу понять как сделать чтоб его можно было менять поже, так что об изменениях можно почитать в change.log...

[Argot]

Ну исправте вы строчку

    while not Thread[id].Connect do Sleep(1);

Несерьезно это. Предлагал вам идею проигнорили. Ну может с кодом проблем меньше будет

procedure Server(Param: Pointer);
 ................
 ................
 Thread[id].ConnectEvent:= CreateEvent(nil, true,false, PChar(NameEvent));
 Thread[id].CH:=BeginThread(nil, 0, @Client, Param, 0, Thread[id].CTH);
 ...............
 if WaitForSingleObject(Thread[id].ConnectEvet, TimeOut)<>0 then
 begin
   TerminateThread(Thread[id].CH,0); 
   ExitThread(0);
 end;
 .............
 .............
end;

procedure Client(Param: Pointer);
 ..........
 ..........
 PulseEvent(Thread[id].ConnectEvent);
 ..........
 ..........
end;

дальше сами разберетесь ))

[NLObP]

Argot, может ты бы помог с кодом ListenServer, Server и Client. У меня плохо получается, а ты, я вижу, сечёш добро.

[xkor]

Сообщение от Argot

Несерьезно это.

работоспособность ухудшает?, сильно сомневаюсь...

[Argot]

Сообщение от xkor

работоспособность ухудшает?, сильно сомневаюсь...

еще как ухудшает. Вот вам Смоделирую ситуацию.

 if not ConnectToServer(Thread[id].CSock,Thread[id].Port,Thread[id].IP) then begin
      DeInitSocket(Thread[id].CSock);
      exit;
 end;

При не удачной попытке подключится к серверу. Завершается Поток "Client", а
а Потоке "Server" весит бесконечный цикл.

  while not Thread[id].Connect do Sleep(1);

в Итоге Получаем Количесво не завершеных потоков равное количесву Неудачных попыток.

Хотя если у вас мощные компы. )) и Вам не мешают лишних например 100 потоков. Пожалуйста. Хотя об этой проблеме писали уже давно.

ЗЫ да и WaitFor... так не грузит проц как цикл.

Добавлено через 13 минут

Сообщение от NLObP

Argot, может ты бы помог с кодом ListenServer, Server и Client. У меня плохо получается, а ты, я вижу, сечёш добро.

Как помочь? Есть вопросы задавай если смогу отвечу )

[xkor]

Ревизия: 47
Автор: xkor
Дата: 15:50:00, 13 октября 2008 г.
[ * ] исправлен вход в бесконечный цикл при неудачном подключении к серверу, теперь при неудачных конектах не будут плодиться потоки, спасибо Argot;