Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Низкоуровневое программирование > Win Api
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 28.03.2013, 22:57   #1
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию Удаленный помошник API

Всем доброго. Есть некая задача удаленно управлять компьютерами в локальной сети. Запрещено использование всего стороннего, кроме того что уже имеется в Windows 7 и ХР (Под которыми машинки и бегают).
Я знаю о существовании удаленного помошника, и этот инструмент меня бы устроил, если бы не его параноидальная безопасность - срок приглашения 30 дней максимум, требует обязательного участия пользователя на другой стороне.

Вопросы:
1) Есть ли возможность написать своего удаленного помошника, который будет лишен такой "трусости".
2) Смогу ли я подключаться вне зависимости от желания удаленного пользователя?
3) Есть ли вообще какое описание такого подключения?
Пока нашел только это: http://msdn.microsoft.com/en-us/libr...=vs.85%29.aspx
Но как понял не на каждой операционке сработает, а это уже минус.
4) Поможет ли в этом Microsoft RDP Client Control ActiveX известный в инете под кличкой "TMsRdpClient"? Этот работает:
Код:
unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, OleServer, MSTSCLib_TLB, StdCtrls, Menus;

type
  TForm2 = class(TForm)
    MainMenu1: TMainMenu;
    Connect1: TMenuItem;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var RDP:TMsRDPClient2;
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);

begin
    RDP.Server:='айпи;
    RDP.UserName:='юзер';
    RDP.AdvancedSettings2.Set_ClearTextPassword('пароль');
    RDP.Left:=0;
    RDP.Top:=0;
    RDP.Width:=Width;
    RDP.Height:=Height;
    RDP.Connect;
end;

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 if rdp.Connected<>0 then RDP.Disconnect;
 rdp.Free;
end;

procedure TForm2.FormCreate(Sender: TObject);
begin
    WindowState:=wsMaximized;
    RDP:=TMsRDPClient2.Create(Self);
    RDP.Parent:=self;

end;

end.
Но это удаленный рабочий сеанс, а не экран удаленного пользователя.

5) Что есть по этому вопросу из чтива, желательно на русском?
I'm learning to live...

Последний раз редактировалось Stilet; 28.03.2013 в 22:59.
Stilet вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Помошник на блог-сайт Oleggoosev Фриланс 1 15.12.2012 22:02
Помошник по проекту. PizZa Фриланс 3 11.06.2011 12:47
Помошник на экзамене adrscore Фриланс 2 07.01.2010 14:14
Помошник (beta) Simply-Art Софт 30 17.07.2008 21:54