ｿｽ@ ｿｽgｿｽbｿｽvｿｽyｿｽ[ｿｽWｿｽｿｽ

ｿｽeｿｽｿｽｿｽｿｽﾌ過具ｿｽｿｽｿｽｿｽO

ｿｽEC/C++
ｿｽEDelphi
ｿｽEVisual BasicｿｽｿｽｿｽSｿｽｿｽ
ｿｽ@(VB2-VB6ｿｽｿｽ.NETｿｽｿｽｿｽp)
ｿｽEVisual Basic(VB2-VB6)
ｿｽEVisual Basic .NET
ｿｽEVisual C++

ｿｽﾖ連ｿｽTｿｽCｿｽg

ｿｽEpapy's softwarelibrary

ss 2007/09/26(ｿｽｿｽ) 23:31:05

NTPｿｽｿｽgｿｽpｿｽｿｽｿｽﾈゑｿｽｿｽﾅ、ｿｽｿｽｿｽﾌマｿｽVｿｽｿｽｿｽiｿｽTｿｽ[ｿｽoｿｽ[ｿｽjｿｽｿｽｿｽ邇橸ｿｽｿｽｿｽｿｽ
ｿｽ謫ｾｿｽiDOSｿｽRｿｽ}ｿｽｿｽｿｽhｿｽｿｽNETｿｽ@TIMEｿｽﾌようｿｽﾈ）ｿｽﾅゑｿｽｿｽﾈゑｿｽｿｽﾅゑｿｽｿｽ蛯､ｿｽｿｽｿｽH

ｿｽﾊりすｿｽｿｽｿｽｿｽ 2007/09/27(ｿｽｿｽ) 12:35:45

ｿｽｿｽｿｽXｿｽｿｽｿｽtｿｽｿｽｿｽﾈゑｿｽｿｽ謔､ｿｽﾅゑｿｽｿｽﾌで．ｿｽDｿｽD

ｿｽｿｽｿｽｿｽAhttpｿｽﾖ連ｿｽﾌコｿｽｿｽｿｽ|ｿｽ[ｿｽlｿｽｿｽｿｽgｿｽｿｽﾖ撰ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽpｿｽﾅゑｿｽｿｽｿｽﾎ以会ｿｽｿｽｿｽ
http/GETｿｽｿｽｿｽNｿｽGｿｽXｿｽgｿｽﾅサｿｽ[ｿｽoｿｽ[ｿｽAｿｽNｿｽZｿｽXｿｽｿｽｿｽﾔゑｿｽｿｽｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾜゑｿｽｿｽB

ｿｽyｿｽｿｽｿｽMｿｽz
GET / HTTP/1.0¥r¥nHost: www.hogehoge.com¥r¥n¥r¥n

ｿｽyｿｽｿｽMｿｽｿｽz
HTTP/1.1 200 OK Date: Thu, 27 Sep 2007 03:25:11 GMT Server: Apache/2.0.59 (Win32) PHP/5.2.0 X-Powered-By: PHP/5.2.0 Connection: close Content-Type: text/html 

ｿｽTｿｽ[ｿｽoｿｽ[ｿｽﾈどの環具ｿｽｿｽﾅ表ｿｽｿｽｿｽｿｽeｿｽﾍ変ゑｿｽｿｽﾜゑｿｽｿｽﾌで抵ｿｽｿｽﾓ。
ｿｽiｿｽｿｽｿｽﾌ難ｿｽｿｽｿｽｿｽﾍゑｿｽｿｽﾜり利ｿｽpｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽﾌで、ｿｽﾚ細は厄ｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽj

ｿｽﾊりすｿｽｿｽｿｽｿｽ 2007/09/27(ｿｽｿｽ) 12:41:56

ｿｽ竭ｫｿｽDｿｽD
ｿｽTｿｽ[ｿｽoｿｽ[ｿｽｿｽｿｽAｿｽkｿｽ`ｿｽmｿｽﾌ具ｿｽｿｽLｿｽTｿｽ[ｿｽoｿｽ[ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽAｿｽｿｽﾅは厄ｿｽｿｽｿｽｿｽﾅゑｿｽｿｽB
ｿｽiｿｽvｿｽdｿｽaｿｽTｿｽ[ｿｽoｿｽ[ｿｽﾌ場合ｿｽﾅゑｿｽｿｽﾋ）

ｿｽﾃゑｿｽ 2007/10/09(ｿｽｿｽ) 08:00:32

ｿｽ^ｿｽﾕ：ｿｽuｿｽnｿｽｿｽｿｽRｿｽｿｽｿｽｿｽAｿｽﾇゑｿｽｿｽｿｽｿｽﾄゑｿｽEｿｽ}ｿｽNｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽだゑｿｽｿｽﾇ…ｿｽv
ｿｽtｿｽqｿｽFｿｽuｿｽｿｽｿｽHｿｽﾈにゑｿｽｿｽHｿｽv
ｿｽ^ｿｽﾕ：ｿｽuｿｽｿｽｿｽｿｽcｿｽAEdit1ｿｽﾉ托ｿｽｿｽｿｽﾌコｿｽｿｽｿｽsｿｽｿｽｿｽ[ｿｽ^ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾄボｿｽ^ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆ、Memo1ｿｽﾉ趣ｿｽｿｽｿｽｿｽｿｽｿｽoｿｽｿｽﾍゑｿｽｿｽﾈのに…ｿｽv

procedure TForm1.Button1Click(Sender: TObject);
const
  BUFFER_SIZE = $1000;
var
  hReadPipe, hWritePipe: THandle;
  SA: TSecurityAttributes;
  SD: TSecurityDescriptor;
  SI: TStartupInfo;
  PI: TProcessInformation;
  dwStdOut, dwRet: DWORD;
  aBuffer: array[0..BUFFER_SIZE] of Byte;
  sCmd: string;
  msStdOut: TStream;
begin
  SetLength(sCmd, 300);
  ZeroMemory(@SA, Sizeof(TSecurityAttributes));
  with SA do begin
   nLength := Sizeof(TSecurityAttributes);
   bInheritHandle := True;
   if Win32Platform = VER_PLATFORM_WIN32_NT then begin
    InitializeSecurityDescriptor(@SD, SECURITY_DESCRIPTOR_REVISION);
    SetSecurityDescriptorDacl(@SD, True, nil, False);
    lpSecurityDescriptor := @SD;
    GetSystemDirectory(PChar(sCmd), 255);
    sCmd := PChar(sCmd) +'¥Cmd.exe /C NET TIME ¥¥'+ Edit1.Text;
   end else begin
    lpSecurityDescriptor := nil;
    GetWindowsDirectory(PChar(sCmd), 255);
    sCmd := PChar(sCmd) +'¥Command.com /C NET TIME ¥¥'+ Edit1.Text;
   end;
  end;
  msStdOut := TMemoryStream.Create;
  CreatePipe(hReadPipe, hWritePipe, @SA, BUFFER_SIZE);
  try
   ZeroMemory(@SI, Sizeof(TStartupInfo));
   with SI do begin
    cb := Sizeof(TStartupInfo);
    dwFlags := STARTF_USESTDHANDLES;
    wShowWindow := SW_HIDE;
    hStdOutput := hWritePipe;
   end;
   Application.ProcessMessages;
   if CreateProcess(nil, PChar(sCmd), @SA, nil, True, DETACHED_PROCESS,
                    nil, nil, SI, PI) then begin
    try
     repeat
      dwRet := WaitForSingleObject(PI.hProcess, 100);
      PeekNamedPipe(hReadPipe, nil, 0, nil, @dwStdOut, nil);
      if (dwStdOut > 0) then begin
       ReadFile(hReadPipe, aBuffer, dwStdOut, dwStdOut, nil);
       msStdOut.Write(aBuffer, dwStdOut);
      end;
     until (dwRet = WAIT_OBJECT_0);
     GetExitCodeProcess(PI.hProcess, dwRet);
    finally
     CloseHandle(PI.hProcess);
     CloseHandle(PI.hThread);
    end;
   end else raise Exception.Create('CreateProcess ｿｽｿｽｿｽsｿｽI');
   msStdOut.Position := 0;
   Memo1.Lines.LoadFromStream(msStdOut);
  finally
   CloseHandle(hReadPipe);
   CloseHandle(hWritePipe);
   msStdOut.Free;
  end;
end;

ｿｽtｿｽqｿｽFｿｽuｿｽｿｽｿｽHｿｽcｿｽｿｽｿｽ`ｿｽｿｽｿｽAｿｽiｿｽｿｽｿｽzｿｽhｿｽA"NET TIME"ｿｽRｿｽ}ｿｽｿｽｿｽhｿｽｿｽDelphiｿｽﾌプｿｽｿｽｿｽOｿｽｿｽｿｽｿｽｿｽﾅ趣ｿｽｿｽsｿｽｿｽｿｽｿｽﾌネｿｽv
ｿｽ^ｿｽﾕ：ｿｽuｿｽｿｽｿｽｿｽｿｽﾈの、ｿｽAｿｽ^ｿｽVｿｽﾌパｿｽ¥ｿｽRｿｽｿｽｿｽﾅコｿｽｿｽｿｽｿｽｿｽsｿｽｿｽｿｽｿｽｿｽ鼾ｿｽﾍ、ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽWinXPｿｽpｿｽ¥ｿｽRｿｽｿｽｿｽﾌ趣ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽだゑｿｽｿｽﾇ…ｿｽv
ｿｽtｿｽqｿｽFｿｽuｿｽ}ｿｽRｿｽgｿｽﾌ包ｿｽｿｽｿｽｿｽﾌパｿｽ¥ｿｽRｿｽｿｽｿｽﾍ、OSｿｽAｿｽiｿｽjｿｽHｿｽv
ｿｽ^ｿｽﾕ：ｿｽuｿｽﾜゑｿｽｿｽAWin98ｿｽcｿｽv
ｿｽtｿｽqｿｽFｿｽuｿｽﾃゑｿｽｿｽ`ｿｽv
ｿｽ^ｿｽﾕ：ｿｽuｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽが前ｿｽﾉ使ｿｽｿｽｿｽﾄゑｿｽｿｽAｿｽｿｽｿｽﾃのパｿｽ¥ｿｽRｿｽｿｽｿｽBｿｽcｿｽｿｽｿｽｿｽｿｽﾇ、ｿｽ`ｿｽｿｽｿｽﾆ思ｿｽｿｽｿｽﾄ托ｿｽﾘにゑｿｽｿｽﾄゑｿｽﾌ」
ｿｽtｿｽqｿｽFｿｽuｿｽｿｽｿｽｿｽｿｽｿｽｿｽAｿｽSｿｽｿｽｿｽｿｽｿｽSｿｽｿｽｿｽｿｽｿｽv
ｿｽ^ｿｽﾕ：ｿｽuWin98ｿｽﾈらこｿｽﾌ包ｿｽｿｽ@ｿｽｿｽ ｿｽｿｽｿｽｿｽｿｽｿｽMemo1ｿｽﾉ托ｿｽｿｽｿｽﾌ趣ｿｽｿｽｿｽｿｽｿｽｿｽ¥ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌ、ｿｽﾅゑｿｽcｿｽv
ｿｽtｿｽqｿｽFｿｽuWinXPｿｽﾅゑｿｽｿｽﾌプｿｽｿｽｿｽOｿｽｿｽｿｽｿｽｿｽｿｽｿｽsｿｽｿｽｿｽｿｽﾆ、DOSｿｽｿｽｿｽｿｽｿｽｿｽuｿｽoｿｽ驍ｾｿｽｿｽｿｽﾅ、Memo1ｿｽﾉは会ｿｽｿｽｿｽ¥ｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽｿｽﾋ」
ｿｽ^ｿｽﾕ：ｿｽuｿｽｿｽｿｽｿｽｿｽﾇ、XPｿｽﾅゑｿｽRｿｽ}ｿｽｿｽｿｽhｿｽvｿｽｿｽｿｽｿｽｿｽvｿｽgｿｽｿｽ"NET TIME ¥¥..."ｿｽｿｽｿｽｿｽsｿｽｿｽｿｽｿｽｿｽOKｿｽﾈのに…ｿｽAｿｽﾈゑｿｽﾅ？ｿｽv 
ｿｽtｿｽqｿｽFｿｽuWin98ｿｽｿｽWinXPｿｽﾅは、ｿｽｿｽｿｽｿｽNET.EXEｿｽﾅゑｿｽｿｽｿｽgｿｽｿｽｿｽ`ｿｽｿｽｿｽbｿｽgｿｽ痰､ｿｽﾝゑｿｽｿｽｿｽｿｽﾋ、ｿｽｿｽｿｽｿｽｿｽｿｽXPｿｽﾅはダｿｽｿｽｿｽﾈんだゑｿｽv
ｿｽ^ｿｽﾕ：ｿｽuｿｽｿｽｿｽｿｽAｿｽﾇゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽCｿｽCｿｽだろぅｿｽcXPｿｽﾅはｿｽｿｽｿｽｿｽﾈの？ｿｽv
ｿｽtｿｽqｿｽFｿｽuｿｽ}ｿｽRｿｽgｿｽcｿｽAｿｽｿｽｿｽ痰滂ｿｽAｿｽvｿｽｿｽｿｽOｿｽｿｽｿｽｿｽｿｽﾌコｿｽRｿｽｿｽｿｽｿｽｿｽｿｽﾏゑｿｽｿｽﾄみゑｿｽｿｽｿｽHｿｽv

    ｿｽEｿｽcｿｽc
//  sCmd := PChar(sCmd) +'¥Cmd.exe /C NET TIME ¥¥'+ Edit1.Text;
    sCmd := PChar(sCmd) +'¥Net1.exe TIME ¥¥'+ Edit1.Text;
    ｿｽEｿｽcｿｽc

ｿｽ^ｿｽﾕ：ｿｽuｿｽｿｽｿｽｿｽｿｽAｿｽｿｽｿｽｿｽﾈゑｿｽMemo1ｿｽﾉアｿｽ^ｿｽVｿｽﾌ包ｿｽｿｽｿｽｿｽﾌパｿｽ¥ｿｽRｿｽｿｽｿｽﾌ趣ｿｽｿｽｿｽｿｽｿｽｿｽ¥ｿｽｿｽｿｽｿｽｿｽ黷ｽｿｽｿｽｿｽAｿｽﾅゑｿｽnｿｽｿｽｿｽRｿｽｿｽｿｽｿｽANet1.exeｿｽｿｽｿｽﾄ…ｿｽv
ｿｽtｿｽqｿｽFｿｽuNTｿｽnｿｽｿｽNet.exeｿｽﾍ、Net1.exeｿｽｿｽﾄび出ｿｽｿｽｿｽﾄゑｿｽﾝゑｿｽｿｽｿｽｿｽﾈんだ…ｿｽｿｽｿｽｿｽﾅネｿｽv
ｿｽ^ｿｽﾕ：ｿｽuｿｽﾓ〜ｿｽｿｽAｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾆなんだゑｿｽｿｽcｿｽv
ｿｽtｿｽqｿｽFｿｽuｿｽAｿｽ^ｿｽVｿｽｿｽ ｿｽｿｽｿｽｿｽｿｽｿｽgｿｽRｿｽﾚゑｿｽｿｽｿｽｿｽﾍ知ｿｽｿｽﾈゑｿｽｿｽｿｽｿｽﾇネｿｽv

Created by board of various Programming Library.