Кружок нубов(Вопрос-Ответ)

[murc]

alexteam, например вот так ?

function WSPStartup(wVersionRequested: WORD; lpWSPData: LPWSPDATA;
  lpProtocolInfo: LPWSAPROTOCOL_INFOW; UpcallTable: WSPUPCALLTABLE;
  lpProcTable: LPWSPPROC_TABLE): Integer; stdcall;
var
  WSPStartupFunc : LPWSPSTARTUP;
  WSAData: TWSADATA;
  Buf: PWSAPROTOCOL_INFOW;
  hDLL : Cardinal;
  wDLLpath: PWideChar;
  sDllpath: String;
  Len, Layerid, NextLayerid: dword;
  iLen, i, Count, Error: Integer;
begin
  WSAStartUp($202, WSAData);
  Count := WSCEnumProtocols(nil, buf, len, error);
  if Count = -1 then begin
    GetMem(Buf, Len+1);
    Count := WSCEnumProtocols(nil, buf, len, error);
  end;
    for i:=1 to Count do begin
      if @buf.ProviderId = @LSPGUID then begin
        Layerid := buf.dwCatalogEntryId;
        break;
      end;
        buf := Pointer(Dword(buf) +$274);
    end;
    for i:=0 to lpProtocolInfo.ProtocolChain.ChainLen do begin
      if lpProtocolInfo.ProtocolChain.ChainEntries[i] = Layerid then begin
        NextLayerid := lpProtocolInfo.ProtocolChain.ChainEntries[i+1];
        break;
      end;
    end;
    for i:=1 to Count do begin
      if NextLayerid = buf.dwCatalogEntryId then begin
        iLen := 255;
        WSCGetProviderPath(buf.ProviderId, wDLLpath, iLen, Error);
        sDLLpath := WideCharLenToString(wDLLpath, Length(wDLLpath));
        Break;
      end;
      buf := Pointer(Dword(buf) +$274);
    end;
  hDLL := Loadlibrary(Pchar(sDLLpath));
    if hDLL = 0 then Exit;
  WSPStartupFunc := LPWSPSTARTUP(GetProcAddress(hDLL,pchar('WSPStartup')));
    if assigned(WSPStartupFunc) then
      begin
        result := WSPStartupFunc(wVersionRequested,lpWSPData,lpProtocolInfo,UpcallTable,lpProcTable);
          if result = 0 then
            begin
              NextProcTable:=lpProcTable^;
              lpProcTable.lpWSPRecv := WSPRecv;
          end;
    end;
end;

[murc]

Ага, что-то не могу понять ..

[alexteam]

ты последний в очереди - тебя вызовут первым.
ты первый в очереди - тебя вызовут последним.
ты предпоследний в очереди - тебя вызовут вторым.
по идее так.

[Макся]

ааа хелп! случилось нечто мистическое :\ Пакетхак 3.5.28.151 перестал детектить л2.ехе ---> запускаю пх потом л2, захожу в игру, делаю alt+tab но прога вообще не показывает ничего (как в режыме оффлайна). настройки не крутил, ничего неменял с последнего (удачного) использования ... в чём проблема может быть?

[TAMBIK]

Макся,
а куда исчезли настройки перехвата

[JIeIlIka]

люди помогите, на сервере работает пакеты , но мульти селл не находит чем его можно заменить или как найти?)))

[alexteam]

WSAStartUp($202, WSAData);

(немой вопрос)

[murc]

ну хз надо ли вызывать, но WSCEnumProtocols и WSCGetProviderPath работать вроде как не будут

[alexteam]

ну, если тебя не будет смущать то что в таком случае всастартап будет вызываться дважды в приложении... то все впорядке..

[murc]

alexteam, Dll пашет до тех пор пока не выставляю хук на какую либо функцию (здесь WSPRecv). Перехват вроде как происходит, но инет отпадает как будто я дропаю wsprecv. В чем может быть проблема ?

function WSPRecv(s: TSocket; lpBuffers: LPWSABUF; dwBufferCount: DWORD;
    var lpNumberOfBytesRecvd, lpFlags: DWORD; lpOverlapped: LPWSAOVERLAPPED;
    lpCompletionRoutine: LPWSAOVERLAPPED_COMPLETION_ROUTINE; lpThreadId: LPWSATHREADID;
    var lpErrno: Integer): Integer; stdcall;
begin
result := NextProcTable.lpWSPRecv(s,lpBuffers,dwBufferCount,lpNumberOfBytesRecvd,
                                lpFlags,lpOverlapped,lpCompletionRoutine,lpThreadId,
                                lpErrno);
end;

function WSPStartup(wVersionRequested: WORD; lpWSPData: LPWSPDATA;
  lpProtocolInfo: LPWSAPROTOCOL_INFOW; UpcallTable: WSPUPCALLTABLE;
  lpProcTable: LPWSPPROC_TABLE): Integer; stdcall;
var
  Count, Error, i, iLen: integer;
  EnumBuf: LPWSAPROTOCOL_INFOW;
  Len, LayerID, NextLayerID, hDLL: dword;
  wDllPath, DllPath: PWideChar;
  WSPStartupFunc: LPWSPSTARTUP;
begin
  Len := $ffff;
  GetMem(EnumBuf, Len);
  Count := WSCEnumProtocols(nil, EnumBuf, Len, Error);
  // Ищем свой номерок в каталоге
  for i:=0 to count-1 do begin
    if string(EnumBuf.szProtocol) = Layer then begin
      LayerID := EnumBuf.dwCatalogEntryId;
      break;
    end;
    EnumBuf := Pointer(Dword(EnumBuf)+SizeOf(TWSAPROTOCOL_INFOW));
  end;
  // Ищем следующего провайдера относительно нас
  for i:=0 to lpProtocolInfo.ProtocolChain.ChainLen-1 do begin
    if lpProtocolInfo.ProtocolChain.ChainEntries[i] = LayerID then begin
      NextLayerID := lpProtocolInfo.ProtocolChain.ChainEntries[i+1];
      break;
    end;
  end;
  GetMem(EnumBuf, Len);
  Count := WSCEnumProtocols(nil, EnumBuf, Len, Error);
  for i:=0 to count-1 do begin
    if EnumBuf.dwCatalogEntryId = NextLayerID then begin
      iLen := 256;
      GetMem(DllPath, iLen);
      WSCGetProviderPath(EnumBuf.ProviderId, DllPath, iLen, Error);
      GetMem(wDllPath, iLen);
      ExpandEnvironmentStringsW(DllPath, wDllPath, iLen);
      Break;
    end;
    EnumBuf := Pointer(Dword(EnumBuf)+SizeOf(TWSAPROTOCOL_INFOW));
  end;
  hDLL := LoadLibraryW(wDllPath);
  WSPStartupFunc := LPWSPSTARTUP(GetProcAddress(hDLL,Pchar('WSPStartup')));
  result := WSPStartupFunc(wVersionRequested, lpWSPData, lpProtocolInfo, UpcallTable, lpProcTable);
  NextProcTable := lpProcTable;
  lpProcTable.lpWSPRecv := WSPRecv;
end;