Радмин (Управление ПК по сети)

[GunSmoker]

То что знаний у меня в делфи не много это факт....но Для чего такие форумы сушиствуют??? я думаю что бы развиватся....

Это верно. Но браться за постройку ракеты, когда ты не умеешь держать в руках молоток - глупо. Начинать надо с посильных задач и постепенно развиваться.

[vovken1997]

Может чатик между двумя компами напишите, а потом на его основе и Рдамин?
Создайте два проекта, в одном сервер в другом клиент и киньте на форму сервера idTCPServer, а на форму клиента idTCPClient. Компоненты с закладок Indy server, Indy client.
У компонента idTCPServer в инспекторе поставьте свойство activate в true. Так же в инспекторе откройте свойство bindings, ip-all, а порт 12345 и добавте add. У сервера есть обработчик событий execute. Напишите там это :
begin
label1.caption:=ATHread.Connection. readln;
AThread.connection.disconnect;
end;
В проекте клиента на форму киньте два едита,кнопку и idTCPClient. На кнопке напишите:
idTCPClient1.host:=edit1.text;
idTCPClient1.port:=12345;
idTCPClient1.connect;
idTCPClient1.writeln(edit1.text);
idTCPClient1.disconnect ;
Запускаете сервер, затем клиент, если на одном компе запущен и сервак и клиент то в первом едите 127.0.0.1 ,если на другом компе, IP того компа. Во втором едите вводите что хотите и нажимайте на кнопку. Сервер получит ваше сообщение.

[Denutrror]

vasa01, вы избрали неудачный путь... чтобы получить доступ к удалённой машине, можно воспользоваться готовым решением. А написание программы реализующей данную потребность требует определённых знаний.
Так, что вот вам совет:
Если вы хотите получить доступ к удалённому компу, воспользуйтесь уже готовой программой.
А если хотите научится писать подобные программы, то лучше начать изучение программирования с более простых примеров...
P.S. Реализация удалённого доступа на Delphi задача вполне реальная и вполне может быть решена, если вы изучите хотя бы что-то о клиент-серверных приложениях и работе с файлами...

[vasa01]

Сообщение от Denutrror

vasa01, вы избрали неудачный путь... чтобы получить доступ к удалённой машине, можно воспользоваться готовым решением. А написание программы реализующей данную потребность требует определённых знаний.
Так, что вот вам совет:
Если вы хотите получить доступ к удалённому компу, воспользуйтесь уже готовой программой.
А если хотите научится писать подобные программы, то лучше начать изучение программирования с более простых примеров...
P.S. Реализация удалённого доступа на Delphi задача вполне реальная и вполне может быть решена, если вы изучите хотя бы что-то о клиент-серверных приложениях и работе с файлами...

Так я начинал с простейшего.... нашол одну троянскую програмку которая состоит из двух частей и возможен Видео и звуко передачу.....

Был у трояна недостаток .. он не прописывался в реестр я это исправил и дописал что бы высылал отчёт на мыло) просто другой недостаток его палят некоторые антивиры Нод 32 и KIS 6 каспер тока 6 версия палит )))


пользовался скрытым радмином но его уже палят многие... хочется что то своё....

[vasa01]

Сообщение от vovken1997

Может чатик между двумя компами напишите, а потом на его основе и Рдамин?
Создайте два проекта, в одном сервер в другом клиент и киньте на форму сервера idTCPServer, а на форму клиента idTCPClient. Компоненты с закладок Indy server, Indy client.
У компонента idTCPServer в инспекторе поставьте свойство activate в true. Так же в инспекторе откройте свойство bindings, ip-all, а порт 12345 и добавте add. У сервера есть обработчик событий execute. Напишите там это :
begin
label1.caption:=ATHread.Connection. readln;
AThread.connection.disconnect;
end;
В проекте клиента на форму киньте два едита,кнопку и idTCPClient. На кнопке напишите:
idTCPClient1.host:=edit1.text;
idTCPClient1.port:=12345;
idTCPClient1.connect;
idTCPClient1.writeln(edit1.text);
idTCPClient1.disconnect ;
Запускаете сервер, затем клиент, если на одном компе запущен и сервак и клиент то в первом едите 127.0.0.1 ,если на другом компе, IP того компа. Во втором едите вводите что хотите и нажимайте на кнопку. Сервер получит ваше сообщение.

Спасибо Большое за версию ! думаю нет разницы на сокетах или на TCP!!! на любителя)

[vasa01]

Сообщение от GunSmoker

Это верно. Но браться за постройку ракеты, когда ты не умеешь держать в руках молоток - глупо. Начинать надо с посильных задач и постепенно развиваться.

Вот имено что взлётная часть ракеты как бы построена) осталось управлять дисками.... програмка конектится... осталось зделать так что бы диски выводить...

[vovken1997]

Вам надо найти все файлы на сервере и отправить их клиенту???

[vasa01]

Сообщение от vovken1997

Вам надо найти все файлы на сервере и отправить их клиенту???

да нада найти диск с разделами и файлы на них и передать клиенту...

[vovken1997]

Писать вам кучу api функций я не очень хочу тем более я этого в своей проге не делал, но у меня есть книга по делфи которую советую вам почитать Александ Чиртик "программирование в Delphi".Глава 4-Диски,папки,файлы; глава 11- сетевое взаимодействие. В данной книге полностью приведены готовые коды построения дерева файлов и считывание дисков, также можете более подробно почитать про сеть.

[vasa01]

Сообщение от vovken1997

Писать вам кучу api функций я не очень хочу тем более я этого в своей проге не делал, но у меня есть книга по делфи которую советую вам почитать Александ Чиртик "программирование в Delphi".Глава 4-Диски,папки,файлы; глава 11- сетевое взаимодействие. В данной книге полностью приведены готовые коды построения дерева файлов и считывание дисков, также можете более подробно почитать про сеть.

Благодарчик !!!!