怎样用程序方式登陆对方电脑(50分)

  • 主题发起人 主题发起人 liujzi
  • 开始时间 开始时间
L

liujzi

Unregistered / Unconfirmed
GUEST, unregistred user!
大家看看这个远程关机程序,我想用程序方式先以管理员登录上对方电脑,然后再控制对方电脑,但没有什么反映(应该是还没登录上对方电脑),请指点。
注:本地机名:LJZ
对方电脑名:WQW
对方user:administrator PASSWORD:microsoft
谢谢!
procedure Tserver.Button1Click(Sender: TObject);
var
aa:TNetResource;
retval : integer;
begin
aa.dwScope := RESOURCE_CONNECTED;
aa.dwType := RESOURCETYPE_ANY;
aa.lpLocalName := '';
aa.lpRemoteName := 'wqw';
aa.lpProvider := Nil;
RetVal := WNetAddConnection2(aa,'microsoft','administrator',0);
showmessage(inttostr(retval));
InitiateSystemshutdown('wqw','HELLO',10,true,true);

end;
 
WinExec(Pchar('net use //computername password /user:username',sw_Hide);
 
应该有两个程序,一个在客户端,另一个在服务器端,客户端发一个命令,让服务器端
执行关机命令,客户端就关机了。
{强制Windows 95/98/98SE/Me关机}
ExitWindowsEx(EWX_SHUTDOWN+EWX_FORCE,0);
//重新启动计算机
ExitWindowsEx(EWX_REBOOT,2);
//关闭计算机
ExitWindowsEx(EWX_SHUTDOWN and EWX_POWEROFF ,1);
 
你到底要做什么?要操纵服务器,必须有服务器端程序支持,DCOM,SOCKET等方式可以支持。
 
后退
顶部