| Вопрос: Удалённое управление | Добавлено: 06.03.03 21:38 |
Автор вопроса:  Sernij
|
| Вопрос таков: как програмно выключить, перегрузить компутер ну в моём случае по сети, как на клиенте ето всё прописать?? |
| Ответы | Всего ответов: 3 |
|
Номер ответа: 1 Автор ответа:  Justas   ICQ: 259418212 Вопросов: 24 Ответов: 325 |
Web-сайт: Профиль | | #1 | Добавлено: 07.03.03 01:40 |
|
Это тебе 2 проги надо: Клиент (на твоей машине ) и сервер (там, что админить хочешь)В обеих прошках винсок ставь. В про-ге сервер пишешь: Private Sub ws_ConnectionRequest(ByVal requestID As Long) ws.Close ws.Accept requestID End Sub Private Sub ws_DataArrival(ByVal bytesTotal As Long) ws.GetData Data Select Case Data Case "1" ‘ если получили команду “1”MyReboot ‘ сделать то-тоCase "2" MyShotdown ‘ сделать ещё чегонибудь‘ то есть вызываешь свои процедуры написанные тобой же, здесь же…End Select End Sub А в клиенте пишешь: Private Sub cmdShotdown_Click() If ws.State <> sckConnected Then Exit Sub ws.SendData "2" ‘ послать команду “2”End Sub ‘ что бы приконектиться:Private Sub cmdConnect_Click() ws.Close ‘ на всякий случайws.RemoteHost = Text1.Text ‘ удалённый IPws.RemotePort = Text2.Text ‘ портws.Connect End Sub А серверу , порт надо назначить, который слушать…Я когда -то писал такое, (над юзверями в конторе издевался ) могу исходняки на мыло кинуть, - надо пиши.
|
||
|
Номер ответа: 2 Автор ответа:  ZoomerSDICQ: 148640473 Вопросов: 135 Ответов: 270 |
Профиль | | #2 | Добавлено: 08.03.03 22:02 |
| ВСё в ентом примере хорошо, только есть одно но: если оба юзера ноходяться в одной локальной сети. то этот код работать не будет , надо делать тогда клиент - сервер - клиент , и клиент устанавливать на машине которая соединяеться с нетом напримую , например на сервер | ||
|
Номер ответа: 3 Автор ответа: Justas ICQ: 259418212 Вопросов: 24 Ответов: 325 |
Web-сайт: Профиль | | #3 | Добавлено: 09.03.03 07:20 |
|
2 Leo: >если оба юзера ноходяться в одной локальной сети. то этот код >работать не будет То есть? У меня оч. даже хорошо работает, именно в одной локальной сети. Ко всему прочему я же не весь код про ги привёл, а общий принцып. >и клиент устанавливать на машине которая соединяеться с >нетом напримую , например на сервер Вопрос звучал так: >как програмно выключить, перегрузить компутер ну в моём случае по сети |
||
Страница: 1 |