求一个能控制远程重启的例子

Question

我想做一个控制局域网内另一台电脑从新启动的程序，就想木马一样的程序，那位朋友做过给些帮助

Answer 1

程序只需放一个udpserver即可.
客户端程序用此udpserver发一个特点的字符到服务端
服务端收到此字符，即重启计算机(重启计算机的代码很容易获得)

Answer 2

http://community.csdn.net/Expert/topic/3659/3659301.xml?temp=.2560388http://community.csdn.net/Expert/topic/3659/3659313.xml?temp=.5958063

Answer 3

{ 
注销:MyExitWindows(EWX_LogOff);
   重启:MyExitWindows(EWX_REBOOT);
    关机:MyExitWindows(EWX_SHUTDOWN);
}
function SetShutdownPrivilege(Enable: Boolean): Boolean;
var
  PrevPrivileges: TTokenPrivileges;
  Privileges: TTokenPrivileges;
  Token: THandle;
  dwRetLen: DWord;
begin
  Result := False;
  OpenProcessToken(GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES or TOKEN_QUERY, Token);
  Privileges.PrivilegeCount := 1;
  if LookupPrivilegeValue(nil,'SeShutdownPrivilege', Privileges.Privileges[0].LUID) then
  begin
    if Enable then
      Privileges.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED
    else
      Privileges.Privileges[0].Attributes := 0;
    dwRetLen := 0;
    Result := AdjustTokenPrivileges(Token, False, Privileges, SizeOf(PrevPrivileges), PrevPrivileges, dwRetLen);
  end;
  CloseHandle(Token);
end;procedure MyExitWindows(const P:Word);
begin
  Application.Terminate;
  if IsWin9x then
    ExitWindowsEx(EWX_FORCE or P, 0)
  else
  begin
    SetShutdownPrivilege(True);
    ExitWindowsEx(EWX_FORCE or P, 0);
    SetShutdownPrivilege(False);
  end;
end;

Answer 4

我在网上找了一些例程，在windows XP下控制重启的功能都不好用，不知道为什么